Form schliessen wenn die Maus das Form verlässt.

[Kostas]

Funkt schon, wenn ich langsam aus dem Form fahre.

ich habe es in FormCloseQuery und in WMMouseLeave probiert.
Das gleiche verhalten.

In diesem Form habe ich nur ein TLaben. Wäre es nicht
besser in WMMouseLeave das TLabel abzufangen?
Irgend eine Idee wie das gehen könnte?


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := not PtInRect(BoundsRect, Mouse.CursorPos);
end;



procedure TForm1.WMMouseLeave(var Msg: TMessage);
begin
if not PtInRect(BoundsRect, Mouse.CursorPos)
then frBlase.close;

end;