Eigene Programme verschieben

[Starworld1000]

:mrgreen: Hallo Liebe Gemeinde

Ich habe ein kleines Problem

Ich habe mehrere Programme die ich gerne alle samt verschieben möchte.
Alle Programme sind gleich und sollen an den gleichen Positionen stehen.

Der Anwender kann also irgendein Programm verschieben und alle anderen
Programme setzen sich an die gleiche Position.

Nur wie stell ich das am besten an ? :wall:


Grüße Starworld

[SirThornberry]

Handelt es sich wirklich um Programme oder nur Forms?
Wenn es sich wirklich um Programme handelt musst du alle Fenster des anderen Prozesses ermitteln (EnumWindows, FindWindow, FindWindowEx etc.) und dann mit SetWindowPos etc. verschieben.

[Starworld1000]

Danke für die schnelle Antwort

Ja es handelt sich um Programme :P

Ja gut ich weis nur nicht genau wie ich das anstelle ? :oops:

Grüße Starworld

[Starworld1000]

Hallo @ all

Also ich hab mal etwas rumprobiert und hab es so gelöst

Delphi-Quellcode:

var
  AHandle : HWND;
  POSLeft, POSTop : Integer;
begin

AHandle :=  FindWindow(nil, Pchar('Programmname'));
SetWindowPos(AHandle, HWND_TOPMOST,POSLeft,POSTop,0,0,SWP_NOSIZE);
end;

Es funktioniert auch, jedoch wenn ich die Anwendung auf einen anderen Desktop/Monitor
lege funktioniert es nicht mehr, nur wieso ? :wall:

Grüße Starworld