Mega Code Archive

 

Categories / Delphi / Examples

 

Fare imlecinin pencere üzerinde olup olmadığının kontrolü

..:: 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;