Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Программа и интерфейс » Перемещение окна мышью за поверхность формы

Перемещение окна мышью за поверхность формы

Автор: Aleksey

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

Интернет магазины алкоголь

Календарь выставок. Вина, коньяк, шампанское, виски, текила и др.

winestyle.ru
Usb rs 485

Компьютерный еженедельник. О компании.

insat.ru

Просмотров: 2991

Обсудить на форуме

(05.01.2010)

2. Unnamed User

Ну если перемещать две формы одновременно, то надо сперва добавить обработчик перемещений для первой формы

...
private
procedure OnFormMove(var Msg: TWMMove); message WM_MOVE;
...

И в реализации этого метода написать

procedure TForm1.OnFormMove(var Msg: TWMMove);
begin
inherited;
Form2.Left:=Form1.Left;
Form2.Top:=Form1.Top + 175; // вторая форма будет болтаться за 1й
end;