OnMouseMove

Résolu
Warium Messages postés 36 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 27 janvier 2010 - 16 août 2008 à 16:57
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 22 août 2008 à 11:37
Salut tout le monde. ma question est :
Comment inverser l'evenement OnMouseMove d'un Panel lorsque je passe dans un autre panel
j'eclaircis : j'ai plusieurs panels et sont tous liés a un meme evenement OnMouseMove , je voudrai qu'il soit activé a un seul panel au meme temps et tous les autres reviennent a l'état initial(avant cet évenement).
Merci D'avance.  

5 réponses

JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
22 août 2008 à 11:37
Salut !
J'ai mis cette procédure sur mes panels et ça fonctionne (peut importe le nombre de panels) :

procedure TForm1.PanelMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i: Integer;
begin
  for i:=0 to ComponentCount-1 do
    if (Components[i] is TPanel) then
      (Components[i] as TPanel).Color:= clBtnFace;
  (Sender as TPanel).Color:= clRed;
end;

Bonne journée
3
Rejoignez-nous