Zitat von
jbg:
Zitat von
Andreas L.:
onEnter und onExit habe ich auch schon probiert, geht auch nicht...
Das ist ja auch klar, denn OnEnter und OnExit beziehen sich auf den Focus. Und der ändert sich nicht, wenn man mit der Maus über ein Control fährt (obwohl, da gibt es irgendein Tool das das so macht, wird aber auf dauer sehr lästig).
Da ich annehme, dass du keine eigene Panel-Komponenten von TPanel ableiten willst, könntest du das so lösen:
Delphi-Quellcode:
private
FOrgPanelWndProc: TWndMethod;
procedure PanelWndProc(var Msg: TMessage);
end;
procedure TForm1.FormCreate(...);
begin
FOrgPanelWndProc := Panel1.WindowProc;
Panel1.WindowProc := PanelWndProc;
end;
procedure TForm1.FormDestroy(...);
begin
Panel1.WindowProc := FOrgPanelWndProc;
end;
procedure TForm1.PanelWndProc(...);
begin
FOrgPanelWndProc(Msg);
case Msg.Msg of
CM_MOUSEENTER:
begin end; // Farbe ändern
CM_MOUSELEAVE:
begin end; // Farbe ändern
end;
end;
Ich werde das gleich mal ausprobieren
Danke
