//聲明:
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;