2014年4月8日
FormMove
摘要： private { Private declarations } procedure WMMOVE(var Msg: TMessage); message WM_MOVE;procedure TForm1.WMMOVE(var Msg: TMessage);begin inherited; if (Left 0) and (Top 0) then // 设定移动到左上角 10 点范围内时贴到边... 阅读全文
posted @ 2014-04-08 13:46 XE2011 阅读(150) 评论(0) 推荐(0)