2004年9月2日

限制FORM的大小

摘要： 在FORM私有声明部分加上如下一行： procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo );message WM_GETMINMAXINFO; 在声明部分加上如下几行: procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo ); begin with Messa... 阅读全文

posted @ 2004-09-02 08:53 曙光女神之怜悯 阅读(356) 评论(0) 推荐(0)

拖动无标题栏窗体的方法

摘要： 在任何控件MouseDown事件中加入相似代码，可以实现任何控件拖动窗体。procedure TVolumeForm.Panel1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);const SC_DRAGMOVE:Longint=$F012;begin ReleaseCapture... 阅读全文

posted @ 2004-09-02 08:48 曙光女神之怜悯 阅读(206) 评论(0) 推荐(0)

导航