Delphi中创建一个可以改变大小的无边框窗口
procedure TForm1.CreateParams(var Params: TCreateParams) ;
begin
BorderStyle := bsNone;
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
Params.Style := Params.Style or WS_SIZEBOX;
end;
本文来自Delphi之窗,原文地址:http://www.52delphi.com