您的位置:首页 > 编程语言 > Delphi

Delphi中创建一个可以改变大小的无边框窗口

2009-11-26 09:49 543 查看
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
;

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐