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

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

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



你可能感兴趣的:(Delphi)