Delphi의 현재 마우스 위치 가져오기(GetCursorPos)

1720 단어 Delphi
최근에 캡처 도구를 쓰고 있기 때문에 마우스의 위치를 얻을 수 있습니다. 사실은 매우 간단합니다. 함수 하나만 있으면 됩니다.
GetCursorPos procedure
---------------------------------------------------------------
마우스 위치로 돌아갑니다.
Unit
QControls
Category
mouse handling utilities
Delphi 구문:
procedure GetCursorPos(var P: TPoint);
설명:
GetCursorPos를 호출하여 현재 화면에서 마우스의 좌표를 판단합니다.
 
TPoint는 하나의 구조체로 두 개의 인자 X, Y를 포함한다
TPoint = packed record
    X: Longint;
    Y: Longint;
  end;

다음은 구체적인 사용법이다
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CurCursor:TPoint;//        
implementation

{$R *.dfm}


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //GetCursorPos(CurCursor);
end;
//    
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  GetCursorPos(CurCursor);//             
end;
//       
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage(IntToStr(CurCursor.X)+' '+InttoStr(CurCursor.Y));//           
end;

end.

좋은 웹페이지 즐겨찾기