ugetcurrentpositionex.pas

来自「Delphi Win32核心API参考光盘源码 本书包含了常用的Windows」· PAS 代码 · 共 67 行

unit UGetCurrentPositionEX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  CurPosPt: TPoint;       // holds the current position
begin
  {set the background mode to transparent}
  SetBkMode(Canvas.Handle, TRANSPARENT);

  {display the first point}
  MoveToEx(Canvas.Handle, 60, 20, NIL);
  GetCurrentPositionEx(Canvas.Handle, @CurPosPt);
  TextOut(Canvas.Handle, CurPosPt.x-55, CurPosPt.y, PChar('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)), Length('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)));

  {display the second point}
  LineTo(Canvas.Handle, 160, 20);
  GetCurrentPositionEx(Canvas.Handle, @CurPosPt);
  TextOut(Canvas.Handle, CurPosPt.x+2, CurPosPt.y, PChar('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)), Length('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)));

  {display the third point}
  LineTo(Canvas.Handle, 160, 120);
  GetCurrentPositionEx(Canvas.Handle, @CurPosPt);
  TextOut(Canvas.Handle, CurPosPt.x+2, CurPosPt.y, PChar('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)), Length('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)));

  {display the fourth point}
  LineTo(Canvas.Handle, 60, 120);
  GetCurrentPositionEx(Canvas.Handle, @CurPosPt);
  TextOut(Canvas.Handle, CurPosPt.x-55, CurPosPt.y, PChar('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)), Length('X: '+IntToStr(CurPosPt.X)+
          ' Y: '+IntToStr(CurPosPt.Y)));

  {close the figure}
  LineTo(Canvas.Handle, 60, 20);
end;

end.