摘要:
在控件的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)
编辑
posted @ 2013-12-14 10:17
潴潴黠
阅读(207)
推荐(0)
编辑