Entwickler-Ecke

Windows API - MoveWindow und SetWindowPos funktionieren nicht wie gewollt


cramer - Fr 16.12.05 20:35
Titel: MoveWindow und SetWindowPos funktionieren nicht wie gewollt
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 - Mi 08.02.06 16:11

Damit klappts bei mir:


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;