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; :wink:

[wicht]

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

[lbccaleb]

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

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

Delphi-Quellcode:

//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 :-D :
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

[thomas2009]

Zitat:

Zitat von himitsu (Beitrag 1090859)

wäre, wie z.B.
- SubForms ausblenden
- VCL-Popup-Menüs ausblenden

Obwohl mein Problem 100% gelöst ist, trotzdem bin ich neugierig auf deinen Vorschlag.

Du meinst mit "SubForms ausblenden" die neben Forms ?
VCL-Popup-Menüs ausblenden ?
Was meinst Du damit ?

Kannst Du mir mehr erklären? Ich habe doch lang versucht:|

[mkinzler]

Wenn ein Haupt-/Popup-Menü geöffnet ist, während du minimierst, würde das dann geöffnet bleiben.

[thomas2009]

Was meinst du mit Haupt-/Popup-Menü
Meinst Du TMainMenu ?

[mkinzler]

Ja oder halt ein Popupmenü

[hans ditter]

ja, zum Beispiel ein TMainMeu. Aber du kannst ja auch noch für verschieden Komponenten ein PopUp-Menü erstellen, so eins, dass man mit einem Rechtsklick öffnen kann...:roll:

[Luckie]

Wenn vorhanden einfach mal in die Quelltexte von Borland reingucken.

[thomas2009]

Zitat:

Zitat von mkinzler (Beitrag 1090907)

Wenn ein Haupt-/Popup-Menü geöffnet ist, während du minimierst, würde das dann geöffnet bleiben.

Ja ich minimiere die Anwendung von einer TMainMenu
Ich habe nun versucht, die Anwendung durch Klick auf ein Button und nicht über einer Popupmenu oder MainMenu aber
das hat leider nichts gebracht.
Das Programm bleibt immer über das Windows-Symbol "Start" !

Ich hoffe, ich habe deine Meinung gut verstanden. oder meinst was anderes ?

[Luckie]

Nein, das war nicht gemeint. Wenn zum Zeitpunkt des Minimierens ein Popupmenü geöffnet ist, wird dies geöffnet bleiben.

[thomas2009]

Ich glaube alle Popup menus sind nicht geöffnet
Wie kann ich wissen?
Allerdings, das Programm hat ein TrayIcon neben uhr :roll:

[himitsu]

Zitat:

Zitat von thomas2009 (Beitrag 1090951)

Wie kann ich wissen?

Anders gefragt: Wieso willst du das wissen? Application.Minimize macht doch alles automatisch, aber du hast ja immernoch nicht gesagt, warum du das nicht verwenden willst.

Ich steig dann solange mal hier aus ... ist ja sinnlos, wenn man keine Antworten bekommt.

[mkinzler]

Wenn das Fenster in den try soll, wäre vielleicht auch eine Hide der MainForm eine Alternative, aber auch dass wird dir zur profan sein.

Wenn man die Türe öffnen will, kann man natürlich auch das Haus sprengen. :stupid: