解决Lazarus中窗体不能正确最大化显示的问题

池龙

于 2017-11-08 16:49:31 发布

阅读量989

点赞数

分类专栏： Delphi / Lazarus 文章标签： Lazarus 窗体最大化

本文链接：https://blog.youkuaiyun.com/poolord/article/details/78480558

版权

25 篇文章

订阅专栏

某些情况下虽然已经设置了窗体的WindowState为wsMaximized，但是创建窗体并显示的时候窗体并不能正确最大化。此时可以尝试将窗体的WindowState依然设置为wsNormal，再在窗体的OnShow事件中设置窗体的状态。

uses LCLIntf, LCLType;

procedure TForm1.FormShow(Sender: TObject);
begin
  LCLIntf.ShowWindow(Form1.Handle, SW_MAXIMIZE);
end;