Changer la couleur d'un texte au passage de la souris
Résolu
cs_mathieu49
Messages postés
3
Date d'inscription
mardi 20 avril 2004
Statut
Membre
Dernière intervention
28 novembre 2005
-
17 nov. 2005 à 19:30
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 18 nov. 2005 à 13:46
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 18 nov. 2005 à 13:46
A voir également:
- Changer la couleur d'un texte au passage de la souris
- Changer la couleur d'un bouton au clic - Forum Visual Basic 6
- Changer der couleur un bouton. - Forum Javascript / DHTML
- Changer la couleur d'un bouton lorsque l'on click dessus - Forum Visual Basic
- Changé la couleur d'un bouton ✓ - Forum C
- Position souris - Conseils pratiques -Javascript
3 réponses
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
11
18 nov. 2005 à 13:46
18 nov. 2005 à 13:46
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 !
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 !
neodelphi
Messages postés
442
Date d'inscription
jeudi 4 avril 2002
Statut
Membre
Dernière intervention
11 août 2008
18 nov. 2005 à 07:01
18 nov. 2005 à 07:01
Utilise les évènement d'un TLabel, je croit que c'est onMouseEnter et onMouseLeave.
neodelphi
neodelphi
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
18 nov. 2005 à 10:33
18 nov. 2005 à 10:33
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
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