Мышь за пределами формы Опции

[-Роман-]

Как определить нажатие кнопки мыши за пределами формы?

[-Роман-]

Кажется сам разобрался.

Создаём Timer1, В OnTimer пишем:

procedure TForm1.Timer1Timer(Sender: TObject);
var
MyMouse: TMouse;
MyPosX, MyPosY: integer;
sm:smallint;
begin
MyPosX := MyMouse.CursorPos.X;
MyPosY := MyMouse.CursorPos.Y;
Label8.Caption := IntToStr(MyPosX);
Label9.Caption := IntToStr(MyPosY);
sm := GetKeyState(VK_LBUTTON);
if OldZn <> sm then
begin
Label10.Caption := Label8.Caption;
Label11.Caption := Label9.Caption;
end;
OldZn:= sm;
end;

Не забываем создать глобальную OldZn: smallint;