Delphi 设置窗体无标题栏和边框

来源:互联网 发布:通用接口软件 编辑:程序博客网 时间:2024/06/02 21:27

只需要在窗体的创建时,添加如下代码

procedure TMainForm.FormCreate(Sender: TObject);begin    SetWindowLong(handle, gwl_style, getwindowlong(handle, gwl_style) xor ws_caption);    hide;    show;end;