在应用程序的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 阅读(492) 评论(0) 推荐(0)
浙公网安备 33010602011771号