Changer la couleur d'un texte au passage de la souris

[Résolu]
Signaler
Messages postés
3
Date d'inscription
mardi 20 avril 2004
Statut
Membre
Dernière intervention
28 novembre 2005
-
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
Bonjours à tous, j'aimerais savoir comment modifier l'aspect d'un texte
au passage de la souris mais sans avoir à cliquer dessus.



Merci

3 réponses

Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
13
Et si tu veux appliquer cette procédure à plusieurs labels différents,
tu n'as qu'à mettre ces procédures dans les événements de tous tes
labels :



procedure TForm1.LabelsMouseEnter(Sender: TObject);

begin

(Sender as TLabel).Font.Color := clBlue;

end ;



procedure TForm1.LabelsMouseLeave(Sender: TObject);

begin

(Sender as TLabel).Font.Color : = clWindowText;

end;


@+

Nico { http://www.ni69.new.fr/ }




<hr size="2" width="100%">

N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !
Messages postés
442
Date d'inscription
jeudi 4 avril 2002
Statut
Membre
Dernière intervention
11 août 2008

Utilise les évènement d'un TLabel, je croit que c'est onMouseEnter et onMouseLeave.

neodelphi
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
tu peux faire comme ça:

procedure TForm1.Label1MouseEnter(Sender: TObject);


begin


label1.Font.Color:= clblue;//change la couleur à l'entrée


end;

procedure TForm1.Label1MouseLeave(Sender: TObject);

begin

label1.Font.Color:= clWindowText;//la rétablie à la sortie

end;



@+

jlen