MoveWindow und SetWindowPos funktionieren nicht wie gewollt

cramer · Hält's aus hier Beiträge: 6

Hallo,
ich benutze zum verschieben einer andere Anwendung:

Delphi-Quelltext

1:
2:

hWindow := FindWindow('AnderesFenster');
MoveWindow(hWindow, Left, Top, Width, Height, true);

Mit einem Explorerfenster funktioniert das problemlos.

Bei der Anwendung um die es geht, wird aber statt dessen an der Stelle zu der verschoben werden sollte ein zweites Fenster mit dem gleichen Titel des Originalen angezeigt.

Hat jemand eine Idee wo der Wurm ist?
Thanks in advance
Uwe Cramer

Calyptus · Beiträge: 386 Win Xp Prof D3, D6 Pers, D7 Ent

Damit klappts bei mir:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure MyMoveWindow(WindowTitle: String; Left, Top, Width, Height: Integer; Repaint: Boolean);
var hWindow: THandle;
begin
 hWindow := FindWindow(nil, PChar(WindowTitle));
 if hWindow <> 0 then
  MoveWindow(hWindow, Left, Top, Width, Height, Repaint)
 else
  ShowMessage('Progamm wurde nicht gefunden');
end;

_________________
Luft- und Raumfahrtechnik an der Uni Stuttgart

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme