Перемещение двух форм одновременно

@Xaker · Регистрация: 19.09.2009

Author24 — интернет-сервис помощи студентам

В общем хочу перемещать сразу 2 формы нажимая на изображение...но не выходит...работает только для первого кода.

Delphi

procedure TForm1.WfonMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
releasecapture;  
Form3.perform (wm_syscommand, $f012, 0);
Form1.Perform(wm_syscommand, $f012, 0);
end;

Добавлено через 21 час 58 минут
неужели никто не знает..? я просто хочу передвигать обе формы одним нажатием...

@Harlequin · 05.01.2010, 18:32

используй бродкаст

@Inadequate · 06.01.2010, 04:40

Как вариант можно сделать следующее

Delphi

var
    Form1: TForm1;
  Fl: boolean;
  L,T: integer;
...
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  fl:=true;
  L:=x;
  T:=y;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Fl then
  begin
    Form1.Left := Form1.Left + X - L;
    Form1.top := Form1.top + Y - T;
    Form2.Left := Form2.Left + X - L;
    Form2.top := Form2.top + Y - T;
  end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Fl:=not FL
end;

@Harlequin 42 / 42 / 7 Регистрация: 08.11.2009 Сообщений: 167
	05.01.2010, 18:32	2
	используй бродкаст 0

	06.01.2010, 04:40

Опции темы