Discussion :

[zounar_j5]

Bonjour à tous,
Voilé mon petit problème, j'ai un panel de couleur grise et je voudrais qu'il change de couleur quand je passe dessus avec la souris, j'ai essayé plusieurs façons, mais ça ne marche pas, pourrait-on me donner un tuyau. Merci de votre aide.

[gbegreg]

Bonjour,

Vous êtes en VCL ou Firemonkey ?

En VCL, vous pouvez jouer avec la propriété color du TPanel sur l'évènement OnMouseMove.
En Firemonkey, j'avoue ne plus vraiment utiliser les TPanel. En effet, sous Firemonkey, n'importe quel composant peut contenir d'autres composants. Du coup, un simple TRectangle avec sa propriété Fill peut remplacer un TPanel. La propriété Fill permet de remplir le fond avec une couleur, un dégradé, une image...

[franckcl]

Si c'est en VCL, il faut retirer l'élément seClient de la propriété StyleElements du panel.

Exemple de code qui doit fontionner à tous les coups:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.StyleElements:=[];
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Panel1.color:=clred;
end;

[zounar_j5]

Si c'est en VCL, il faut retirer l'élément seClient de la propriété StyleElements du panel.

Exemple de code qui doit fontionner à tous les coups:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.StyleElements:=[];
end;
 
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Panel1.color:=clred;
end;

Super, merci, ça marche qu'à moitié, je pense que je me suis mal exprimé dans la demande, en fait, ce que je cherche, c'est le changement de couleur quand je survole avec la souris le panel et qu'il revienne à l'état initial quand je suis hors du panel.
Ex: normal, panel=gris, je survole, panel=rouge(ça, maintenant c'est bon), je quitte le panel, panel=gris.
Merci pour votre aide.

[Lung]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Panel.StyleElements := [];
end;
 
procedure TForm1.PanelMouseEnter(Sender: TObject);
begin
   Panel.Color := clRed;
end;
 
procedure TForm1.PanelMouseLeave(Sender: TObject);
begin
   Panel.Color := clBtnFace;
end;

[zounar_j5]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Panel.StyleElements := [];
end;
 
procedure TForm1.PanelMouseEnter(Sender: TObject);
begin
   Panel.Color := clRed;
end;
 
procedure TForm1.PanelMouseLeave(Sender: TObject);
begin
   Panel.Color := clBtnFace;
end;

Merci pour l'aide. ça marche, juste que :

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.StyleElements:=[];
end;

Panel.StyleElements n'est pas reconnu, Je l'ai pas mis et ça fonctionne très bien.

Merci encore.