procedure TForm1.GroupBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; TgroupBox(sender).perform(WM_SysCommand, $F012, 0);end;
posted on 2011-08-16 14:23 dps 阅读(457) 评论(0) 编辑 收藏 举报