Текущий архив: 2004.10.03;
Скачать: CL | DM;
Вниз
Перетаскивание формы Найти похожие ветки
← →
Antonmm2 (2004-09-17 22:11) [0]Как сделать так, чтобы форму можно было перетаскивать за любое место?
← →
Ученик (2004-09-17 22:46) [1]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;
← →
Гаврила © (2004-09-18 00:18) [2]а не проще перехватить WM_NCHITTEST ?
и что такое $F012 ?????
← →
Yanis © (2004-09-18 00:23) [3]To [2]
Меня тоже такой вопрос интересовал. НО работает.
← →
DiamondShark © (2004-09-18 00:39) [4]
> и что такое $F012 ?????
SC_MOVE с какой-то шаманской приправой.
← →
olookin © (2004-09-18 02:25) [5][2] Гаврила © (18.09.04 00:18)
и что такое $F012 ?????
Очевидно, что wParam от WM_SYSCOMAND, не так ли?
← →
Зейдлиц © (2004-09-18 02:33) [6]
> Antonmm2 (17.09.04 22:11)
> Как сделать так, чтобы форму можно было перетаскивать за
> любое место?
Распечатать её на принтере
Страницы: 1 вся ветка
Текущий архив: 2004.10.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
