Координаты курсора мыши за пределами формы

[NIKOLAYY2]

Как отловить? Мне нужно типа что-то через WH_LL_MOUSE.
Просто нужно писать в лейблы что на форме эти координаты.

[Stilet]

Не знал что винда позволяет мышке выходить за пределы экрана...
Разве что речь идет о игрухе.

[NIKOLAYY2]

За пределами формы я написал.

[Stilet]

Прошу прощения, тупанул.
А в таймере или потоке получать Mouse.CursorPos не хочешь?

[NetSpace]

типа так?

procedure TForm1.Timer1Timer;
начало
   Label1.Caption:=IntToStr(Mouse.CursorPos.X);
   Label2.Caption:=IntToStr(Mouse.CursorPos.Y);
конец;

[NIKOLAYY2]

Не у меня сложнее задача по таймеру Mouse.CursorPos.X мне не подойдет так так таймер будет менять там значения по своему интервалу.
А у меня задача по клику по любой части экрана я должен получить координаты в список ну в мемо-поле. Еще раз кликнул- еще раз получил.
Вобщем список запоминать должен, а это задача нетакая то и простая.. Не могу ее решить.

[NetSpace]

Stilet, что посоветуешь ему - хук, отлавливать щелчок мыши?

[Stilet]

Есть хук WH_MOUSE.
http://yandex.ua/yandsearch?text=WH_...2015&numdoc=50

отлавливать щелчок мыши?

Кстати кстати... Хорошо что напомнил: Кажется GetKeyState() в таймере сможет помочь отлов клика.
Можно попробовать с ним примеры поискать.

[NetSpace]

Stilet'ушка, пожалей новичка. он же совсем ещё зелёный... какие (извиняюсь) нахрен хуки в его возрасте, ему же ещё жить и радоваться...
напиши ему процедуру с таймером и отловом клика мыши. пусть человечек немного порадуется доброте людской.... НО с ошибками напиши, пусть хоть что-то сам исправит =))))

[Stilet]

Да тут и писать-то нечего:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if GetKeyState(VK_LBUTTON)<0 then Caption:='Нажата левая'
 else Caption:='Отжата левая'
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:=10;
end;

end.

P.S А насчет хуков там помутнее. Там без DLL не обойтись...