Передвинуть окно

[MalCer]

W0LF, я все прекрасно понял. Вывести их(координаты) в лэйбел это просто пример. Ну ладно...
Тогда посмотри как переместить вторую созданную форму(брал где-то из и-нета очень давно):

    private
   procedure OnMove(var Msg: TWMMove); message WM_MOVE;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Prepare: Boolean = False;
implementation
 uses Unit2;
{$R *.dfm}
procedure TForm1.OnMove(var Msg: TWMMove);
begin
   inherited;
   if Prepare then
    begin
     Form2.Left:=Self.Left;
     Form2.Top:=Self.Top + 225;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
// SendMessage(Form1.Handle, WM_MOVE, 0, MAKELPARAM(100, 100));
end;

и второе окно

procedure TForm2.FormCreate(Sender: TObject);
begin
   Unit1.Prepare:=True;
end;

[Kotofff]

procedure TForm1.Button3Click(Sender: TObject);
var
  h: HWND;
begin
  h := findwindow(nil, 'Документ - Wordpad'); // нужен полный заголовок чужого окна
  if h <> 0 then
    SetWindowPos(h, HWND_BOTTOM, 1, 1, 20, 20, swp_nosize);// смещаем у левый верхний угол
end;

Подробности :
тут

[W0LF]

Сообщение от Kotofff

procedure TForm1.Button3Click(Sender: TObject);
var
  h: HWND;
begin
  h := findwindow(nil, 'Документ - Wordpad'); // нужен полный заголовок чужого окна
  if h <> 0 then
    SetWindowPos(h, HWND_BOTTOM, 1, 1, 20, 20, swp_nosize);// смещаем у левый верхний угол
end;

Извините, но я писал в третем посте:

Не, мне надо чужое окно переместить, SetWindowPos не подходит говорю почти сразу

Мне нужен просто пример перемещения окна чужой программы на заданные координаты через сообщение wm_move(ing), а не то, что мне MalCer так долго пытался мне обьяснить... Я не могу отлавливать это сообщение чужим окном, так это ЧУЖОЕ окно и код туда не всунуть...
Эта строка уже ближе к делу

SendMessage(Form1.Handle, WM_MOVE, 0, MAKELPARAM(100, 100));

Но она не работает у меня на Delphi 7, окно остаеться на своем месте...

[Kotofff]

SetWindowPos не подходит говорю почти сразу

Хорошо. Объясни почему ?

[W0LF]

Кгхм... уважнее читайте топик, а именно сообщение №5, там ясно и чотко сказанно:

...Видети ли, я запускаю программу, скрываю её и изменяю координаты, затем показую, но эти 2 функции делают такое:
1. показуют окно преждевременно
2. на виду у пользователя с дефолтовских координат меняет расположение окна (а это не очень эстэтично выглядит)...

Все, тему можно закрывать...

[MalCer]

SendMessage(Form1.Handle, WM_MOVE, 0, MAKELPARAM(100, 100));

Хэндл получил нужного окна?

Все, тему можно закрывать...

Получилось хоть?