Klick simulieren ?

[thomas2009]

Hi

wie kann ich einen Procedure erstellen , der 100% den gleichen Effekt hat, als wäre ich auf das Symbol angeklickt habe, aber bitte nicht mir einfach sagen, Application.Minimize;

[wicht]

............................................______ __
....................................,.-‘”...................``~.,
.............................,.-”...................................“-.,
.........................,/...............................................”:,
.....................,?........................... ...........................\,
.................../.................................................. .........,}
................./.................................................. ....,:`^`..}
.............../.................................................. .,:”........./
..............?.....__............................ .............:`.........../
............./__.(.....“~-,_..............................,:`........../
.........../(_....”~,_........“~,_....................,:`..... ..._/
..........{.._$;_......”=,_.......“-,_.......,.-~-,},.~”;/....}
...........((.....*~_.......”=-._......“;,,./`..../”............../
...,,,___.\`~,......“~.,....................`..... }............../
............(....`=-,,.......`........................(......;_,,-”
............/.`~,......`-...............................\....../\
.............\`~.*-,.....................................|,./.....\,__
,,_..........}.>-._\...................................|........... ...`=~-,
.....`=~-,_\_......`\,.................................\
...................`=~-,,.\,...............................\
................................`:,,.............. .............`\..............__
.....................................`=-,...................,%`>--==``
........................................_\........ ..._,-%.......`\
...................................,<`.._|_,-&``................`\

[lbccaleb]

Falls du in diesem Forum, die Forensuche noch nicht gefunden hast, dann klicke bitte HIER

[Luckie]

ShowWindow. aber Application.Minimize wird auch keine andere API Funktion aufrufen.

[mkinzler]

Zitat:

aber bitte nicht mir einfach sagen, Application.Minimize;

Das wäre auch zu einfach.

[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;

[thomas2009]

Problem gelöscht mit :

Delphi-Quellcode:

Form1.Hide;// muss man zuerst forms unvisible machen
ShowWindow(Application.Handle, SW_HIDE);

Gruß

[himitsu]

Wenn man die VCL nutzt, warum dann mit WinAPI etwas versuchen, wozu es eine VCL-Methode gibt?

Und nein, Application.Minimize macht eben nicht einfach nur ein "billiges" SW_HIDE, sondern da läuft noch wesentlich mehr im Hintergrund ab, welches man so unterdrückt und was eventuell doch sinnvoll gewesen wäre, wie z.B.
- SubForms ausblenden
- VCL-Popup-Menüs ausblenden
- es versteckt sich auch noch ein SetActiveWindow oder SC_MINIMIZE mit drin
- usw.

Also, warum darf Application.Minimize nicht genutzt werden, obwohl es 100%ig das macht, was du willst?

PS: Eventuell kann dich ein Mod auch nochmal über die Sache mit den Doppelposts aufklären.

[nuclearping]

Die Threads von "thomas" lesen sich immer so:
http://www.panoptikum.net/optischeta...gen/treppe.gif

[p80286]

[OT]Vielleicht sind seine Kenntnisse der deutschen Sprache nicht so ausgeprägt?[/OT]

Gruß
K-H