Discussion :

[CreedApollo]

Salut, Svp je veux savoir comment on procède pour faire ça sur Delphi 7

[gbegreg]

Bonjour,

Que souhaitez vous faire exactement ?
Une interface graphique comme on le voit sur votre exemple (via l'utilisation de TImage) ou le fait d'afficher un libellé dans une zone lors du survol d'un bouton par le pointeur de souris (TImage pour simuler le bouton avec l'image de votre choix et son événement OnMouseMove pour afficher un libellé lors du survol de l'image par le pointeur de souris).

[CreedApollo]

[QUOTE=gbegreg;10783983]Bonjour,

Je souhaite le fait d'afficher un libellé dans une zone lors du survol d'un bouton par le pointeur de souris (TImage pour simuler le bouton avec l'image de votre choix et son événement OnMouseMove pour afficher un libellé lors du survol de l'image par le pointeur de souris).

[sergio_is_back]

Salut, Svp je veux savoir comment on procède pour faire ça sur Delphi 7

Tu commences par potasser tes cours de développement.... On ne le fera pas à ta place !
Et tu cherches des exemples sur le net...

Après si t'a des questions techniques particulières : utiliser un composant à la place d'un autre par exemple, ou la meilleur méthode pour faire ci ou ça... On peut y répondre (du moins te donner un avis ou une piste de réflexion)

[Charly910]

Bonjour,

avant de penser à l'interface de ton application, il faut décrire ses fonctionnalités (savoir ce que tu veux faire ...)

Après tu pourras faire une maquette d'interface si tu veux.

A+
Charly

[Paul TOTH]

Quelque chose comme ça ?
https://github.com/tothpaul/DelphiTi...ster/DrawCards

[CreedApollo]

[QUOTE=Paul TOTH;10786697] Salut
Je souhaite le fait d'afficher un libellé dans une zone lors du survol d'un bouton par le pointeur de souris (TImage pour simuler le bouton avec l'image de votre choix et son événement OnMouseMove pour afficher un libellé lors du survol de l'image par le pointeur de souris).

[Charly910]

Bonjour,

bin tu fais comme a dit gbegreg :

si Image1 est posée sur Panel1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
// Pour afficher si la souris est sur image1
begin
  Label1.Caption :='Texte à afficher' ;
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
// pour effacer si on sort de image1
begin
  Label1.Caption :='' ;
end;

A+
Charly