delphi – wsMaximized形式不会出现最大化

长期的bug：这是我在2003年Borland新闻组第一次提出的问题：

> Accepted fix for WindowState = wsMaximized?

然后在2006年再次：

> wsMaximized breaks it,NOT caused by Position=poScreenCenter,reproducible dfm

然后在2008年再次：

> Forms not starting maximized

有人在2012年的Embarcadero论坛上问过：

> Thread: Application not starting with maximized window

现在是时候把这个18岁的bug移植到Stackoverflow。也许有人最终想出了一个解决方法。

重现步骤：

我的帖子包含六个故障模式，但最简单的是：

>在表单上拖放标签和编辑：

>为TEdit添加OnEnter事件：

procedure TForm1.Edit1Enter(Sender: TObject);
begin
   Label1.Font.Style := Label1.Font.Style + [fsBold];
end;

>并设置形式：

> WindowState to wsMaximized
> AutoScroll为False

和bazinga，失败。

从2008年的帖子开始的另一组步骤之一：

1. Create a new app and a form.
2. Set the form to maximized (WindowState = wsMaximized) at design time.
3. Drop a ListView control on the form

4. During OnShow,add 20 empty items to the list view:

   06001

5. Set the form’s AutoScroll property to false (AutoScroll = False) at design time

当然，我不是在“固定在RadStudio的版本n，只是使用”。我正在寻找一个实际的修复(如果有一个);这可能包括引用对VCL源的相关更改，当CodeGear终于修复它。 (如果它甚至固定)。

注意：将位置从poDesigned更改为其他位置不会解决它。

解决方法

一个可怕的，丑陋的，可怕的，令人厌恶的，解决方法我一直在使用是在OnShow期间启动一个定时器，然后当定时器触发时，最大化形式：

procedure TForm1.tmrVclMaximizeHackTimer(Sender: TObject);
begin
   Self.WindowState := wsMaximized;
end;

我后来改进了这个黑客在OnShow期间发布消息;其基本上与定时器消息相同，而不必使用定时器：

const
  WM_MaximizeWindow = WM_APP + $03;

procedure TForm1.FormShow(Sender: TObject);
begin
  if (Self.WindowState = wsMaximized) then
  begin
     Self.WindowState := wsNormal;
     PostMessage(Self.Handle,WM_MaximizeWindow,0);
  end;
end;

private
   procedure WMMaximizeWindow(var Message: TMessage); message WM_MaximizeWindow;

procedure TForm1.WMMaximizeWindow(var Message: TMessage);
begin
   Self.WindowState := wsMaximized;
end;

有时我发明Delphi从来没有做过的OnAfterShow事件：

const
  WM_AfterShow = WM_APP + $02;

procedure TForm1.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle,WM_AfterShow,0);
  if (Self.WindowState = wsMaximized) then
  begin
     Self.WindowState := wsNormal;
     FMaximizeNeeded := True;
  end;
end;

private
   procedure WMAfterShow(var Message: TMessage); message WM_AfterShow;

procedure TForm1.WMAfterShow(var Message: TMessage);
begin
   if FMaximizeNeeded then
   begin    
      FMaximizeNeeded := False;
      Self.WindowState := wsMaximized;
   end;
end;

但没有黑客比黑客更好。