Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: Mouseover für Panel + Inhalt

  Alt 25. Jan 2008, 18:45
Hallo Moritz,

du könntest im MouseLeave-Handler prüfen, ob sich der Mauszeiger noch im Bereich des Panels befindet:

Delphi-Quellcode:
procedure Form1.Panel1MouseLeave(Sender: TObject);
var
  Panel : TPanel;
  P : TPoint;
begin
  Panel := Sender as TPanel;
  P := Panel.ScreenToClient(Mouse.CursorPos);
  if (not PtInRect(Panel.ClientRect, P)) then
    Panel.Color := clBtnFace;
end;
Gruß Hawkeye
  Mit Zitat antworten Zitat