procedure TForm1.FormCreate(Sender: TObject);begin SetWindowLong( Handle, GWL_STYLE, not (WS_THICKFRAME) and GetWindowLong(Handle, GWL_STYLE) or Integer(WS_POPUP) ); SetWindowPos(Handle, 0, 0, 0, 1920, 1080, SWP_NOZORDER or SWP_NOMOVE);end;
本文共 298 字,大约阅读时间需要 1 分钟。
procedure TForm1.FormCreate(Sender: TObject);begin SetWindowLong( Handle, GWL_STYLE, not (WS_THICKFRAME) and GetWindowLong(Handle, GWL_STYLE) or Integer(WS_POPUP) ); SetWindowPos(Handle, 0, 0, 0, 1920, 1080, SWP_NOZORDER or SWP_NOMOVE);end;
转载于:https://my.oschina.net/hermer/blog/320951
转载地址:https://blog.csdn.net/weixin_34072857/article/details/91788493 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!