Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перетаскивание формы [D7, WinXP]

Antonmm2 © (2004-09-17 22:11:00)
Как сделать так, чтобы форму можно было перетаскивать за любое место?

Зейдлиц (2004-09-18 02:33:00) [1]

> Antonmm2 (17.09.04 22:11)
> Как сделать так, чтобы форму можно было перетаскивать за
> любое место?

Распечатать её на принтере

olookin (2004-09-18 02:25:00) [2]
[2] Гаврила © (18.09.04 00:18)
и что такое $F012 ?????

Очевидно, что wParam от WM_SYSCOMAND, не так ли?

DiamondShark (2004-09-18 00:39:00) [3]

> и что такое $F012 ?????

SC_MOVE с какой-то шаманской приправой.

Yanis (2004-09-18 00:23:00) [4]
To [2]
Меня тоже такой вопрос интересовал. НО работает.

Гаврила (2004-09-18 00:18:00) [5]
а не проще перехватить WM_NCHITTEST ?
и что такое $F012 ?????

Ученик (2004-09-17 22:46:00) [6]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0)
end
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »