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

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

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