Zitat von
DeddyH:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not PtInRect(Rect(Left,Top,Left + Width, Top + Height),Mouse.CursorPos) then
Close;
end;
So z.B.
Schon ausprobiert und funktioniert sehr gut
.
Ich wollte den selben Code um das Form2 aufzurufen (und zu beenden), dann wird das Form2 zwar aufgerufen auch wenn ich sehr schnell den Cursor bewege, erscheint aber danach eine Fehlermeldung:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if PtInRect(Rect(Left,Top,Left + Width, Top + Height),Mouse.CursorPos) then
Form2.ShowModal();
end;