2013 年 12月 14 日随笔档案 - 潴潴黠

2013年12月14日

摘要：在控件的MouseDown事件中加入if (ssleft in Shift) thenbegin ReleaseCapture; Perform(WM_syscommand, $F012, 0);end;如form1：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginif (ssleft in Shift) thenbegin ReleaseCapture; Perform(WM_syscommand, $F012, 0);en 阅读全文

posted @ 2013-12-14 10:41 潴潴黠阅读(368) 评论(0) 推荐(0) 编辑

Delphi安装sockt 控件和正则表达式控件

摘要： gary 阅读全文

posted @ 2013-12-14 10:17 潴潴黠阅读(207) 评论(0) 推荐(0) 编辑