OnMouseEnter bzw. -Leave-Events realisieren

[DeddyH]

Oder etwas kürzer (ungetestet):

Delphi-Quellcode:

var
  IsInside: Boolean;

procedure TForm2.Panel1MouseEnter(Sender: TObject);
begin
  IsInside := true;
end;

procedure TForm2.Panel1MouseLeave(Sender: TObject);
begin
  IsInside := PtInRect(TPanel(Sender).ClientRect, 
    TPanel(Sender).ScreenToClient(Mouse.CursorPos));
end;