摘要:
在实际工作中,需要把窗体的BorderStyle设置为bsNone,但这样窗体却无法拖动了.那只好自己写代码实现:private {Private declarations} OldX,OldY:integer; //定义变量procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton; Shift:TShiftState;X,... 阅读全文
posted @ 2009-06-24 08:43
novel
阅读(569)
评论(0)
推荐(0)