OnMouseEnter bzw. -Leave-Events realisieren

[Zacherl]

Ganz anderer Ansatz:

Delphi-Quellcode:

var
  IsInside: Boolean;

procedure TForm2.Panel1MouseEnter(Sender: TObject);
begin
  if not IsInside then
  begin
    IsInside := true;
    // TODO: 
  end;
end;

procedure TForm2.Panel1MouseLeave(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  Panel1.ScreenToClient(P);
  if not PtInRect(Panel1.ClientRect, P) then
  begin
    IsInside := false;
    // TODO:
  end;
end;