@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!