请高手指教：如何调整无边界窗口的大小(12分)

我需要使用无边界窗口但又需要保留通过拖动鼠标来改变其大小。哪位高手能指点谜津，先谢了！我已倾所有，请帮忙。

可以通过捕获鼠标事件来实现。

覆盖窗体CreateParams()方法<br>用Params.style := ws_thickframe or ws_popup or ws_border；

unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; procedure FormCreate(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; &nbsp; procedure CreateParams(var Params: TCreateParams); override;<br>&nbsp; end;<br><br>var<br>&nbsp; Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; Form1.BorderStyle := bsNone;<br>end;<br><br>procedure TForm1.CreateParams(var Params: TCreateParams); <br>begin <br>&nbsp; inherited CreateParams(Params); <br>&nbsp; Params.Style := (Params.Style or WS_THICKFRAME); <br>end;<br><br>end.<br>

我的意思是想仍然保留纯平界面风格，如果这样的话，界面就变成带边框的立体了。