随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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;
posted on 2008-02-11 22:16  万一  阅读(...)  评论(...编辑  收藏