2014年6月20日
坐标转换 GetCursorPos与转换
摘要： //获取鼠标在窗体中的当前位置procedure TForm1.FormMouseDown(Sender: TObject; Button:TMouseButton;　Shift: TShiftState; X, Y: Integer);var　str: string;begin　str :=... 阅读全文
posted @ 2014-06-20 01:05 Wishmeluck 阅读(1089) 评论(0) 推荐(0) 编辑