Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Ein Fenster einer anderen Anwednung verschieben (https://www.delphipraxis.net/72811-ein-fenster-einer-anderen-anwednung-verschieben.html)

Ajin 7. Jul 2006 09:55


Ein Fenster einer anderen Anwednung verschieben
 
Hallo!

Bescheidene Frage: ist es möglich ein Fenster einer anderen Anwendung zu verschieben?

Delphi-Quellcode:
//Fenster finden anhand des Fensternamens
clientHandle := FindWindow('#32770', Pchar(Edit4.Text));
Ich möchte clientHandle in die obere rechte Ecke verschieben, ist das mit Delphi möglich?

Tyrael Y. 7. Jul 2006 10:29

Re: Ein Fenster einer anderen Anwednung verschieben
 
Schon SetWindowPos ausprobiert?

Edit: ..befindet sich in der Windows.pas

Ajin 7. Jul 2006 10:42

Re: Ein Fenster einer anderen Anwednung verschieben
 
Ich habe per suche folgendes gefunden:

(1)
Delphi-Quellcode:
if IsWindow(AppHWnd) then
MoveWindow(AppHWnd, Left, Top, Width, Height, True);
und

Delphi-Quellcode:
setwindowpos(bla bla bla..siehe oh);
Leider ist dieses bla bla bla oben in der Anweisung sehr wichtig für mich. Ich weiss nicht so recht wie ich die Funktion nutzen soll:

Delphi-Quellcode:
//Fenster finden anhand des Fensternamens
clientHandle := FindWindow('#32770', Pchar(Edit4.Text));
setwindowpos(clienthandle, 0, 0,?);
Für die obere rechte ecke des Screens.

Luckie 7. Jul 2006 11:17

Re: Ein Fenster einer anderen Anwednung verschieben
 
MSDN-Library durchsuchenSetWindowPos. Guck dir da mal die Parameter an.

Ajin 7. Jul 2006 12:45

Re: Ein Fenster einer anderen Anwednung verschieben
 
Danke, danke ihr beiden!

Folgendes hat gefruchtet:
Delphi-Quellcode:
SetWindoPos(clientHandle, HWND_TOPMOST,0,0,0,0,SWP_NOSIZE);
Somit bleibt die Originalgrösse erhalten und das Fenster wandert in die obere rechte Ecke!

/bow

Souverän wie immer :dp:


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:37 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