Wie schnell reagiert Delphi

[taktaky]

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;