problem z onmousemove

Witam, mam problem ze zdazeniem onmousemove, mam procedure kursor z ktora mialem problemy i postanowilem przypisac ja recznie i sprawdzic co sie dzieje jednak gdy w Form1 w onmousemove napisalem "kursor;" kompilator wywalil komunikat ze jest za malo parametrów i najprawdopodobniej tym bylo spowodowane nieprzypisanie jej w trybie runtime, jednak dalej nie wiem dlaczego pokazuje mi sie blad ze jest za malo parametrow. Ponizej znajduje sie procedura kursor ktorą przypisuje do onmousemove aby uniknac innych bledow niz tych dotychczasowych nalezy wzucic pageControl na forme i utworzyc na nim tabsheeta a nastepnie jakis button i w nim zdazenie onclick:

Form1.onmousemove:=kursor;

A to procka kursor:

procedure TForm1.kursor(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
if not (X>pgctrlFiles.Pages[pgctrlFiles.ActivePageIndex].Left-1) and  (x<pgctrlFiles.Pages[pgctrlFiles.ActivePageIndex].Left+1+pgctrlFiles.Pages[pgctrlFiles.ActivePageIndex].width) and (Y>pgctrlFiles.Top+2) and (Y<pgctrlFiles.Top+2+pgctrlFiles.Pages[pgctrlFiles.ActivePageIndex].top) then
  begin
    Showmessage('ruszasz sie po foremce');
    pgctrlFiles.PopupMenu.Free;
    pgctrlFiles.Cursor:=crDefault;
  end;
end;

Za pomoc z góry dzieki.

<font color="green">Form1.onclick:=kursor; </span>

Zdaje się, że miałes przypisać onMouseMove - może dlatego ten błąd :-P (albo tu źle przepisałeś :)

to jest dziwne, nie latwiej byloby przechwycic komunikat??

n_a_v_ wlasnie chyba bylo by latwiej ale ten przykladzik z download o hooku lokalnym na myszke nie dziala mi dobrze, chyba ze moglbys mi cos innego podeslac na maila to bylbym bardzo wdzieczny ...

...

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    lastmsg:Tmessage;
    procedure mysz(var Msg:TMessage);message WM_MOUSEMOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.mysz(var Msg: TMessage);
begin
if (msg.lparam=lastmsg.LParam) and (msg.WParam=lastmsg.WParam) then exit;
showmessage('ruszasz mysza po formie');
lastmsg:=msg;
end;

jak bedziesz ruszal to ci pokaze komunikat, a w msg.lparamlo i lparamhi jet x i y myszki, ale nie pamietam ktore to ktore

Ale ja bym potrzebowal hooka na klikniecie prawego przyciska myszy ...

juz doszlismy na gg. nie pisac wiecej.

<font size="18">EOT;</span>