![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать статус нажатых кнопок мыши и позицию курсора? [D6, WinXP]
zam © (2002-08-26 13:55:00)Подскажите, как узнать статус нажатых кнопок мыши и позицию курсора?
Задача в том, что у меня сделана форма, перетаскивающаяся за всю клиентскую область с помощью обработчика wm_NCHitTest.
У меня написано:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;//mous.cbSize:=sizeof(mous);
if M.Result = htClient then{
Song (2002-08-26 16:10:00) [1]GetAsyncKeyState()
GetCursorPos()
greenrul (2002-08-26 14:05:00) [2]2zam:
могу посоветовать на все control"ы на форме повесить
OnMouseDown:
releasecapture; Form1.perform (WM_syscommand, $F012, 0);
тогда форма будет "правильно" таскаться