changer la couleur d'un label au survol de la sourisRésolu

Question

salut, j'essaie de changer la couleur d'un label
au survol de la souris, pour cela dans la propri&#233;t&#233;  MouseMove
d'un Panel, j'ai mis ce code :


Code:, 		----
Label1.Font.Color := clYellow;
mais le probl&#232;me, c'est que quand la souris quitte le label, la couleur reste jaune, comment faire pour qu'elle devienne noir?

Merci

japee · Accepted Answer

Tu vasfaire tourner jmp77 en bourrique, Maniaxman 



Bon, je crois que j'ai ta soluce, si j'ai bien compris ton probl&#232;me.



procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var i: Integer;

begin

  for i := 0 to ComponentCount -1 do

    if Components[i] is TLabel then

      if TLabel(Components[i]).Parent = Sender then

      begin

        TLabel(Components[i]).Font.Color := ClYellow;

        TLabel(Components[i]).Tag := 9;

      end;

  Cursor := crHandPoint;

end;



procedure TForm1.TabSheet1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

  var i: Integer;

begin

  for i := 0 to ComponentCount -1 do

    if Components[i] is TLabel then

      if TLabel(Components[i]).Tag = 9 then

        TLabel(Components[i]).Font.Color := clBlack;

end;



Et n'oublie pas de cliquer sur r&#233;ponse accept&#233;e si &#231;a te va !



Bonne prog'

jmp77 · Answer

Hello, Voici comment faire : Tu declares dans les evenement suivant de tes TLabels:

OnMouseEnter tu mets LabelOnMouseEnter

OnMouseLeave tu mets LabelOnMouseLeave

Puis tu copies ces codes : procedure TForm1.LabelOnMouseEnter(Sender: TObject); begin //Passe le label en jaune quand la souris passe dessus TLabel(Sender).Font.Color := ClYellow; end; procedure TForm1.LabelOnMouseLeave(Sender: TObject); begin //Passe le label en noir quand la souris n'est plus sur le label TLabel(Sender).Font.Color := ClBlack; end; L'avantage de ce code c'est qu'il est unique pour tout tes labels. Bonne prog, JMP77. N'oubliez pas de cliquer sur réponse acceptée.

WhiteHippo · Answer

bonjour

Met plutot ton code "Label1.Font.Color := clYellow;" dans le OnEnter de ton Panel
et dans le OnExit ajoute "Label1.Font.Color := clBlack;" 

Cordialement.

Maniaxman · Answer

oui, merci jmp77, mais c'est quand le
curseur passe au-dessus d'un panel que je veux que la couleur du label
change, et dans les &#233;v&#232;nement panel, il n'y a pas LabelOnMouseEnter ni LabelOnMouseLeave

jmp77 · Answer

Ah desole mais regarde le titre de ton message : changer la couleur d'un label au survol de la souris



Je regarde ce que l'on peut faire pour un panel.


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Maniaxman · Answer

merci jmp77, et d&#233;sol&#233; j'ai &#233;t&#233; trop vite dans le titre

jmp77 · Answer

Re,



Alors voici comment faire :



Tu cr&#233;es l'&#233;venement OnMouseMove de tes tpanels et tu mets :

procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

//Passe le label en jaune quand la souris passe dessus


TPanel(Sender).Font.Color := ClYellow;

end;


Ensuite tu cr&#233;es l'&#233;venement OnMouseMove de ta form et tu mets :

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);



var

I : Integer;



begin

//On recherche tous les tpanels de la form et on les mets en noir

   For I:=0 to TForm(Sender).ComponentCount-1 do

   begin



      If TForm(Sender).Components[I] is TPanel then

      TPanel(TForm(Sender).Components[I]).Font.Color := ClBlack;

   end;

end;


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Maniaxman · Answer

merci jmp77, mais le probl&#232;me, c'est que les labels sur un TPageControl, j'ai donc mis :



procedure TForm2.PageControl1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

var

I : Integer;


begin

//On recherche tous les tpanels de la form et on les mets en noir

   For I:=0 to TForm(Sender).ComponentCount-1 do

   begin



      If TForm(Sender).Components[I] is TPanel then

      TPanel(TForm(Sender).Components[I]).Font.Color := ClBlack;

   end;

end;



mais le label reste jaune, pourquoi ?

et aussi, les labels sont en dehors des Panels

roud59 · Answer

Salut Maniaxman,

Une petite info, OnMouseMove d'un contr&#244;le est d&#233;clench&#233; quand la souris bouge au dessus du contr&#244;le. Quand la souris sort du contr&#244;le, le OnMouseMove du contr&#244;le n'est plus d&#233;clench&#233;, et c'est pour &#231;a que ton label reste jaune. Maintenant, quand la souris quitte ton pannel elle arrive forc&#233;ment (presque) sur autre controle, sont parent par exemple. Recup&#232;re alors le OnMouseMove du controle parent ou des controles &#224; cot&#233; du panel pour en d&#233;duire que la souris est sur un autre contr&#244;le et donc qu'elle a quitt&#233; ton panel pour remettre ton label en noir.

Roud59

Maniaxman · Answer

la r&#233;ponse de jmp77 me plaisait bien, sauf que les labels restaient jaunes, c'est aprce que je n'avais pas pr&#233;cis&#233; que les labels &#233;taient sur un PageControl, mais non pas sur la fiche directement, et les labels ne se trouvaient pas dans les Panels, d'ailleurs je n'arrive toujours pas &#224; s&#233;l&#233;ctionner tous les labels du PageControl

jmp77 · Answer

Re,



Et bien c'est simple :


Tu cr&#233;es l'&#233;venement OnMouseMove de tes tpanels et tu mets :

procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

//Passe le label en jaune quand la souris passe dessus


TPanel(Sender).Font.Color := ClYellow;

end;


Ensuite tu cr&#233;es l'&#233;venement OnMouseMove de tes TTabSheets et tu mets :

procedure TForm1.TabSheetMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);



var

I : Integer;

Form : TForm;



begin

//On r&#233;cup&#232;re la form o&#249; est pos&#233; le TpageControl

Form := TForm(TTabSheet(Sender).PageControl.Parent);



   For I:=0 to Form.ComponentCount-1 do

   begin

      //On recherche tous les tpanels de la form et on les mets en noir


      If Form.Components[I] is TPanel then

      TPanel(Form.Components[I]).Font.Color := ClBlack;

   end;

end;


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Maniaxman · Answer

est-ce qu'au lieu de mettre le code pour que les labels redeviennent
noirs dans chaque &#233;v&#232;nement OnMouseMove de chaque Tabsheet, il n'y
aurait pas moyen de mettre le code une seule fois ?

jmp77 · Answer

Mais tu ne mets le code qu'une seule fois.



Juste pour chaque ttabsheet tu mets la meme procedure dans l'evenement OnMouseMove

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Maniaxman · Answer

une question, comment s&#233;l&#233;ctionner tous les labels d'un TPanel, uniquement les labels?

jmp77 · Answer

Quand t'entends tu par "s&#233;lectionner" tous les labels? Si tu es en conception ou en execution?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Maniaxman · Answer

En fait, je me suis rendu compte que pour mon application, &#231;a serait plus simple de mettre mes labels dans des TPanels, donc comment faire pour que uniquement les Labels deviennent jaunes quand le curseur passe au-dessus d'un Panel, j'avais mis ceci dans l'&#233;v&#232;nement OnMouseMove des Panels : 

TPanel(Sender).Font.Color := ClYellow;

suivi de ceci :

procedure TForm1.TabSheetMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

var
I : Integer;
Form : TForm;

begin
//On r&#233;cup&#232;re la form o&#249; est pos&#233; le TpageControl
Form := TForm(TTabSheet(Sender).PageControl.Parent);

   For I:=0 to Form.ComponentCount-1 do
   begin
      //On recherche tous les tpanels de la form et on les mets en noir
      If Form.Components[I] is TPanel then
      TPanel(Form.Components[I]).Font.Color := ClBlack;
   end;
end;

mais les &#233;l&#233;ments qui sont contenus dans le Panels comme les RadioButton deviennent jaunes sans que je le veuille, je voudrais que seulement les labels deviennent jaunes.

jmp77 · Answer

c tres simple 



tu fais juste ceci :

procedure TForm1.TabSheetMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

var
I : Integer;
Form : TForm;

begin
//On r&#233;cup&#232;re la form o&#249; est pos&#233; le TpageControl
Form := TForm(TTabSheet(Sender).PageControl.Parent);

   For I:=0 to Form.ComponentCount-1 do
   begin
      //On recherche tous les tpanels de la form et on les mets en noir
      If Form.Components[I] is TLabel then
      TLabel(Form.Components[I]).Font.Color := ClBlack;
   end;
end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jmp77 · Answer

Mais dans ce cas la je ne comprends plus rien a ta demande. Est ce que
ces sont les labels ou les panels que tu veux passer en jaune puis en
noir? Explique bien ce que tu veux faire car la je pense que l'on est
entrain de faire une usine a gaz alors ce que tu veux faire est simple
je pense.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jmp77 · Answer

Mais fais le au demarrage de ton appli tu mets ceci :

procedure TForm1.FormCreate(Sender: TObject);



var

I : Integer;



begin



   For I:=0 to Form1.ComponentCount-1 do

   begin



      If Form1.Components[I] is TPanel then

      TPanel(Form1.Components[I]).OnMouseMove := PanelMouseMove;

   end;

end;


Et voila avec ce code tous tes panels auront l'evenement OnMouseMove qui pointera sur la procedure PanelOnMouseMove


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jmp77 · Answer

Alors si c'est les TLabel que tu veux eviter qu'ils deviennent jaune c'est cette procedure que tu dois modifier :

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);




const

LabelAExclure : Array[0..1] of string = (Label1',Label2'); //Ici tu saisis les Labels a exclure





var i,j: Integer;



begin

  for i := 0 to ComponentCount -1 do

    if Components[i] is TLabel then

      if TLabel(Components[i]).Parent = Sender then

      begin



        
 For J:=0 to High(LabelAExclure) do
                    
begin            

                         
If 

LowerCase(TLabel(Components[i])

.Name) <>
LowerCase(LabelAExclure[J]) then


 
                   
    begin
               


  

         TLabel(Components[i]).Font.Color := ClYellow;

          TLabel(Components[i]).Tag := 9;

           end;


      end;

  Cursor := crHandPoint;

end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

Changer la couleur d'un label au survol de la souris

36 réponses

Votre réponse

Discussions similaires