Здравствуйте.
Дайте совет, как сделать что бы при передвижении своей программы (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.
Подскажите, как можно сделать, спасибо заранее.