Текущий архив: 2008.04.27;
Скачать: CL | DM;

Вниз

Перетаскивание двух форм одновременно   Найти похожие ветки 

← →
XRMiPO   (2008-04-04 15:59) [0]

Как сделать, чтобы можно было перетаскивать две формы за одну панель одновременно?
Пробовал с этим кодом что-то сделать, но он перетаскивает только одну форму, даже если указать там две.
ReleaseCapture;
Form2.Perform(WM_SYSCOMMAND, $F012, 0);

---

← →
easy ©   (2008-04-04 16:31) [1]

var
 downPoint:TPoint;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Width:=200;
 Height:=100;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.Show;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 if assigned(Form2) then
   MoveWindow(Form2.Handle,Left+Width,Top,Width,Height,true);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 downPoint:=Point(X,Y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 if ssLeft in Shift then begin
   Left := Left + (X - downPoint.X);
   Top := Top + (Y - downPoint.Y);
   MoveWindow(Form2.Handle,Left+Width,Top,Width,Height,true);
 end;
end;

---

← →
XRMiPO   (2008-04-04 19:30) [2]

чето у меня вся прога поворачивается куда то, но скрипт работает, но как-то не свосем правильно

---

← →
XRMiPO   (2008-04-04 19:34) [3]

почему то форма меняет значение высоты с длиной

---

← →
XRMiPO   (2008-04-04 19:36) [4]

все, разобрался, там width и height местами поменять надо, спасибо за помощь.

---

← →
ProgRAMmer Dimonych ©   (2008-04-04 19:42) [5]

> XRMiPO   (04.04.08 19:30) [2]
> чето у меня вся прога поворачивается куда то, но скрипт
> работает, но как-то не свосем правильно

Скрипт? Ну-ну...

---

Страницы: 1 вся ветка

Текущий архив: 2008.04.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c