Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.48 MB
Время: 0.053 c
3-1094302756
Arnold
2004-09-04 16:59
2004.10.03
Как создать свой файл gdb


14-1095206568
Мазут Береговой
2004-09-15 04:02
2004.10.03
Хакеры иногда бывают полезны.


14-1095079217
marsden
2004-09-13 16:40
2004.10.03
А как войти зарегистрированному пользователю?


6-1090333677
Jedi
2004-07-20 18:27
2004.10.03
Как выполнить учет Интернета?


1-1095747881
drew
2004-09-21 10:24
2004.10.03
VB макрос...может кто поможет в листе Excel надо сравнить ячейки