Ereignise abfangen

[mimi]

habe was gefunden im internet:

Delphi-Quellcode:

procedure TMycaption.MM(var Msg: tagMSG;var Handled: Boolean);
var
  Point:Tpoint;
begin

  if msg.message = WM_MOUSEMOVE then begin
     Point.X:=( Msg.lParam         and $FFFF);
     Point.Y:=((Msg.lParam shr 16) and $FFFF);
     mx:=Point.x; my:=point.y;
     isSel:=GetSel(-1,-1);
  end;
end;