..:: MyTolga ::..
********************************************************************************
Form'un OnMouseMove olayında;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
P : TPoint;
begin
P.X := X;
P.Y := Y;
if PtInRect (ClientRect,P) then {bütün pencere için sadece "rect"}
MouseCapture := True
else
begin
MouseCapture := False;
ShowMessage ('Benim üzerimde değil');
end;
end;