这样的窗口怎样实现？

[ZeeGee]

我想做一个窗口，没有边框（即没有标题栏也没有立体边框），但是可以改变大小，请问该怎么做？

[chechy]

呵呵，将BorderStyle设为bsNone
然后在Form声明中写：
protected
procedure CreateParams(var Params: TCreateParams); override;

代码是：

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;

Params.Style := Params.Style or WS_THICKFRAME
end;