Как узнать статус нажатых кнопок мыши и позицию курсора?

← →
zam © (2002-08-26 13:55) [0]

Подскажите, как узнать статус нажатых кнопок мыши и позицию курсора?
Задача в том, что у меня сделана форма, перетаскивающаяся за всю клиентскую область с помощью обработчика wm_NCHitTest.
У меня написано:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;//mous.cbSize:=sizeof(mous);
if M.Result = htClient then{

← →
greenrul © (2002-08-26 14:05) [1]

2zam:
могу посоветовать на все control"ы на форме повесить
OnMouseDown:
releasecapture; Form1.perform (WM_syscommand, $F012, 0);

тогда форма будет "правильно" таскаться

GetAsyncKeyState()
GetCursorPos()

Как узнать статус нажатых кнопок мыши и позицию курсора? Найти похожие ветки