OnMouseHover Event et SatusBar

Question

Salut, 
Je veux avoir le code de l'evenement du survol de la sourie sur un StatusBar. 
Par exemple : 
Procedure OnMouseHover; 
begin 
StatusBar1.Panels[0].Text:='Copyright 2002'; 
end; 

et quand la sourie est hors StatusBar l'evenement de la sourie sera : 

Procedure OnMouseHover; 
begin 
StatusBar1.Panels[0].Text:=''; 
end; 

Merci !

cs_Delphiprog · Answer

Utiliser l'événement OnMouseMove :

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  StatusBar1.Panels[0].Text:= 'Copyright 2002';
end;

procedure TForm1. FormMouseMove (Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.Panels[0].Text: ='';
end;

May Delphi be with you.

cs_apz · Answer

Salut, 
je me repond moi meme !
Allez dans l'inspecteur d'objet et dans la propriete hint de statusbar1 ecrivez le text qui apparaitra lors du survol de la souris. mettre la propriete showhint a false pour la bulle d'aide n'apparait pas.
pour le text apparait ecrire ceci :
statusbar1.Panels[0].text:=GetLongHint(Application.Hint); 

C'est tout !

OnMouseHover Event et SatusBar

2 réponses

Votre réponse

Discussions similaires