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

[W0LF]

Как с помошью сообщения wm_move(ing) переместить окно на заданные координаты ?

[Kotofff]

А причем тут само сообщение ?
Просто задавай форме координаты и всё.

Form1.Left:=100;
Form1.Top:=100;

Так же и с шириной, высотой.

[W0LF]

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

[MalCer]

Ну может тогда так?
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

[W0LF]

Она тоже не подходит... Видети ли, я запускаю программу, скрываю её и изменяю координаты, затем показую, но эти 2 функции делают такое:
1. показуют окно преждевременно
2. на виду у пользователя с дефолтовских координат меняет расположение окна (а это не очень эстэтично выглядит).
Я и подумал, может перместить его послав сообщение wm_move(ing), но там надо в lparam задать 2 значения ("x" в hword и "y" в lword - так я дето прочитал), но без понятия как это зделать...

[Kotofff]

Видети ли, я запускаю программу, скрываю её и изменяю координаты, затем показую,

Так нужно двигать всё-таки свою программу ????
В обработчик OnShow пропиши установку координат.
Все прекрасно работает.
Да и не забудь в Инспекторе Объектов выставить для своей формы Position:=poDesigned

[zmey31313]

Пример

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012; { a magic number }
begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

[W0LF]

Та нет, каждый раз хочу написать, но забываю.... ЧУЖУЮ программу

[MalCer]

Вот через WM_MOVE:

  private
    Procedure WMMove(Var Message : TWMMove); message WM_MOVE;
...
Label1.Caption := 'X = '+IntToStr(Message.XPos)+', Y = '+IntTOStr(Message.YPos);

Хендл окна сможешь сам получить?

[W0LF]

Мне нужно изменить координаты, а не ввести в Label их при передвижении окна...