Menü automatisch schließen

[Baeuerle]

Hallo,

zunächst danke für die Antworten habe ich aber schon alles versucht!!
Ich habe euch mal gepostet was ich schon so gemacht habe OHNE ERFOLG.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
//SendMessage(self.Handle,WM_KEYDOWN,VK_CANCEL,1);
//SendMessage(self.Handle,WM_KEYUP,VK_CANCEL,1);
//SendMessage(self.Handle,WM_KEYDOWN,VK_CANCEL,1);
//SendMessage(self.Handle,WM_KEYUP,VK_CANCEL,1);
SendMessage(self.Handle,WM_CANCELMODE,0,0);
//Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
//Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Application.ProcessMessages;
form3:=TForm3.create(Application);
with form3 do
 begin
 try
 ShowModal;
 finally
  Free;
  end;
 end;
end;