窗体API问题！！！(200分)

[blue][/blue] &nbsp; 无边框窗体的拉伸问题？？<br>&nbsp; &nbsp;form1.borderStyle:=bsNone;之后用鼠标拖动边框可以拉伸窗体，求源码！！！

先给窗体设置为bsNone<br>type <br>&nbsp; TForm1 = class(TForm) <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.CreateParams(var Params: TCreateParams); <br>begin <br>&nbsp; inherited CreateParams(Params); <br>&nbsp; Params.Style := (Params.Style or WS_THICKFRAME); <br>end;

接受答案了.