Menü automatisch schließen

[Baeuerle]

@Luckie

ok, sorry wird nicht wieder vorkommen

@all

leider funktioniert das mit dem Klick nur bedingt!

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
with TForm3.create(Application) do
 begin
 try
 ShowModal;
 finally
  Free;
  end;
 end;
end;

Habe diese proc leider erscheint das Menu auf Form3 nicht wenn dieses durch den Timer initialisiert wird und das Menu von Form1 geöffnet ist!