Mouse - saber se esta sobre o form |
Top Previous Next |
Is Mouse Over Form? { To tell if the mouse is over Delphi Form, we can use the GetCapture() windows API function to capture the mouse. See the Windows documentation for additional information and limitations on mouse capturing. }
procedure TForm1.FormDeactivate(Sender: TObject); begin ReleaseCapture; end;
procedure TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState; X,Y: Integer); begin If GetCapture = 0 then SetCapture(Form1.Handle); if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) then Form1.Caption := 'Mouse is over form' else Form1.Caption := 'Mouse is outside of form'; end;
|