Einzelnen Beitrag anzeigen

Tau

Registriert seit: 17. Mär 2003
Ort: Bludenz
221 Beiträge
 
Delphi 7 Enterprise
 
#1

Panel color ändern beim Verlassen vom Panel

  Alt 22. Mär 2005, 01:13
Hallo zusammen

ich möcht ein Panel mit einer anderen Farbe befüllen
wenn der Mauszeiger sich über dem Panel befindet.

Code:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  case TComponent(Sender).Tag of
    10: begin
          Panel1.Color := clAqua;
        end;
    20: begin
          Panel2.Color := clAqua;
        end;
    30: begin
          Panel3.Color := clAqua;
        end;
    end;
end;
habe aber Schwierigkeiten wenn der Mauszeiger nicht mehr
über dem Panel ist die Farbe wieder umzustellen z.B. auf clBtnFace.

Kann mir vielleicht jemand einen Tipp geben wie ich feststellen
kann das der Mauszeiger nicht mehr über dem Panel ist.

Schöne Grüsse
Tau

PS. Ich hoffe ich habe mich verständlich ausgedrückt.
http://www.quad-offroad.com
wer kämpft kann verlieren aber wer nicht kämpft hat verloren
( Delphi 7 )
  Mit Zitat antworten Zitat