做写操作
ClientToScreen(const Point: TPoint): TPoint;//传递一个当前控件在窗体中的位置,然后返回一个在桌面中的坐标
ScreenToClient(const Point: TPoint): TPoint;//传递一个桌面中的坐标,返回一个在窗体中的坐标的位置
GetCursorPos(var lpPoint: TPoint): BOOL;//返回当前鼠标位置
创建一个DC
DC1 : HDC;
DC1 := GetDC(0)为0的时候是正个桌面的DC,否则为参数句柄的DC
ReleaseDC(0,PDC);为0的时候是把整个桌面的那个指定的(第2个参数)关闭
decodedate(date,y,m,d)
function gf_round(R:Real;P:integer=0):real;// 四舍五入函数
function Power(B,P:Integer):Real;
var
i : integer;
begin
result :