Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Klick simulieren ? (https://www.delphipraxis.net/159364-klick-simulieren.html)

thomas2009 24. Mär 2011 19:43

Klick simulieren ?
 
Liste der Anhänge anzeigen (Anzahl: 1)
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 24. Mär 2011 19:44

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

lbccaleb 24. Mär 2011 20:14

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

Luckie 24. Mär 2011 20:22

AW: Klick simulieren ?
 
MSDN-Library durchsuchenShowWindow. aber Application.Minimize wird auch keine andere API Funktion aufrufen.

mkinzler 24. Mär 2011 20:23

AW: Klick simulieren ?
 
Zitat:

aber bitte nicht mir einfach sagen, Application.Minimize;
Das wäre auch zu einfach.

thomas2009 24. Mär 2011 22:49

AW: Klick simulieren ?
 
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 25. Mär 2011 00:46

AW: Klick simulieren ?
 
Problem gelöscht mit :
Delphi-Quellcode:
Form1.Hide;// muss man zuerst forms unvisible machen
ShowWindow(Application.Handle, SW_HIDE);
Gruß

himitsu 25. Mär 2011 01:17

AW: Klick simulieren ?
 
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 25. Mär 2011 07:59

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

p80286 25. Mär 2011 11:13

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

Gruß
K-H

thomas2009 25. Mär 2011 11:23

AW: Klick simulieren ?
 
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 25. Mär 2011 11:25

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

thomas2009 25. Mär 2011 11:34

AW: Klick simulieren ?
 
Was meinst du mit Haupt-/Popup-Menü
Meinst Du TMainMenu ?

mkinzler 25. Mär 2011 11:35

AW: Klick simulieren ?
 
Ja oder halt ein Popupmenü

hans ditter 25. Mär 2011 11:36

AW: Klick simulieren ?
 
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 25. Mär 2011 11:42

AW: Klick simulieren ?
 
Wenn vorhanden einfach mal in die Quelltexte von Borland reingucken.

thomas2009 25. Mär 2011 13:20

AW: Klick simulieren ?
 
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 25. Mär 2011 13:46

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

thomas2009 25. Mär 2011 13:58

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

himitsu 25. Mär 2011 14:47

AW: Klick simulieren ?
 
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 25. Mär 2011 15:06

AW: Klick simulieren ?
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz