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.