在应用程序的GroupBox控件的OnMouseDown事件中加入如下响应函数,即可通过鼠标移动位置。
摘要:
procedure TForm1.GroupBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; TgroupBox(sender).perform(WM_SysCommand, $F012, 0);end; 阅读全文
posted @ 2011-08-16 14:23 dps 阅读(457) 评论(0) 推荐(0) 编辑