Klick simulieren ?

[thomas2009]

Danke Michael für das Stickwort
Nun funktioniert aber fehlt nur eine Sache :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Hide;
  ShowWindow(Application.Handle, SW_HIDE);
end;

Was fehlt nun, es soll ein Fenster in Desktop aktviert werden
Das Programm wird mit dem Code zwar richtig in Taskbar unten wie Gewünscht minimiert, aber kein Fenster in Desktop, dass den Fokus bekommt !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Hide;
  ShowWindow(Application.Handle, SW_HIDE);
end;

Aber wenn ich das Programm durch das "-" minimiere dann bekommt das letzte aktivierte Fenster automatisch den Fokus
What to do ?

//SW_HIDE : Hides the window and activates another window. Allerdings, ich habe als Test wieder ein neues Projekt erstellt, dann ging
Also was konnte das Problem sein, dass es bei meinem Programm nicht gut funktioniert ?

Editiert :
Lösung gefunden Leute :
Das Problem lag an neben Forms, die sichtbar sind.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
// zuerst alle sichtbare Forms unvisible machen
  Form1.Hide;
Form2.Hide;
Form3.Hide;
// FormX.Hide;
  ShowWindow(Application.Handle, SW_HIDE);
end;