WinAPI: GetCurrentPositionEx - 获取当前的画笔位置

//声明:

GetCurrentPositionEx(

  DC: HDC;      {设备场景句柄}

  Point: PPoint {点指针}

): BOOL;


 
   




//举例:

var

  pt: TPoint;

begin

  GetCurrentPositionEx(Canvas.Handle, @pt);

  ShowMessage(Format('%d,%d',[pt.X,pt.Y])); {0,0}



  MoveToEx(Canvas.Handle, 100,100, nil);

  GetCurrentPositionEx(Canvas.Handle, @pt);

  ShowMessage(Format('%d,%d',[pt.X,pt.Y])); {100,100}

end;