[Gareth]

Здравствуйте.

Дайте совет, как сделать что бы при передвижении своей программы (form1), сторонняя программа двигалась вместе с ней, точнее в ней.
На форме есть прозрачный кусок, я хочу в этот прозрачный кусок поместить программу (заставить двигаться относительно координатам left и top form1).
Что бы если я переместил Form1, сторонняя программа двигалась тоже.

Допустим это будет cmd.exe
Делаю так:
запускаю программно cmd.exe
В глобальных переменных x,y: integer;

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
 var
  h: HWND;
begin
  x:=form1.Left;
  y:=form1.Top+12;
  h := findwindow(nil, 'C:\WINDOWS\system32\cmd.exe');
  if h <> 0 then
    SetWindowPos(h, HWND_BOTTOM, x, y, 0,0,  swp_nosize);
end;

Само окно cmd.exe появляется там где мне надо, но таким образом не получается переместить form1.

Подскажите, как можно сделать, спасибо заранее.