OnMouseOut-Event

[bitsetter]

Versuche es mal hiermit:

Delphi-Quellcode:

function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg; Sender: TObject): Integer; stdcall;
var
 aPoint: TPoint;
begin
 Result:=CallNextHookEx(aHook, Code, wParam, Longint(@EventStrut));
 if Code<0 then Exit;
 if Code=HC_SYSMODALON then Exit;
 if Code=HC_ACTION then
 begin
  if (EventStrut.message=WM_MOUSEMOVE) then
  begin
   GetCursorPos(aPoint);
   Alpha.Label1.Caption:=IntToStr(aPoint.x)+' '+IntToStr(aPoint.y)
  end;
 end;
end;

procedure TAlpha.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
 Handled:=False;
 if (Msg.message=WM_CANCELJOURNAL) and FHookStarted then aHook:=SetWindowsHookEx(WH_JOURNALRECORD,@JournalProc,0,0);
end;

Die Function JournalProc muss wohl global sein, sie war bei dir unter der Klasse TAlpha eingetragen.