Mauszeiger im Form oder nicht? Ereigniss?

[marabu]

Vielleicht hilft das:

Delphi-Quellcode:

interface

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FMouseInForm: boolean;
    procedure OnIdle(Sender: TObject; var Done: Boolean);
  public
    property MouseInForm: boolean read FMouseInForm;
  end;

implementation

procedure TForm1.OnIdle(Sender: TObject; var Done: Boolean);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  FMouseInForm := PtInRect(ClientRect, ScreenToClient(pt));
  Done := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle := OnIdle;
end;