如何在窗体1最大化的时候把窗体2同时也最大化?高分送.

Question

我遇到一个问题,窗体1中调用窗体2显示,当窗体1最小化后,窗体2也最小化了.当窗体1最大化后,窗体2仍就是最小化.我希望窗体1最大化的时候把窗体2同时也最大化.如何实现.谢谢.

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApI;type
  TForm1 = class(TForm)
     private
    { Private declarations }
    procedure WMSysCommand(var msg:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
   uses unit2;
{$R *.dfm}
procedure TForm1.WMSysCommand(var msg:TWMSysCommand);
begin
  //SC_MAXIMIZED 最大化
  if (Msg.CmdType=SC_MAXIMIZE)  THEN
  begin
     form2.WindowState :=  wsMaximized;
     form2.show;
  end;
END;end.

Answer 2

监测form2的消息状态
 form1.WindowState  :=wsMinimized; //wsNormal, wsMinimized, wsMaximized

Answer 3

我编写了如下程序,但没有达到效果.另外,TForm1.FormResize(Sender: TObject)中如何设断点调试?
谢谢.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  flag:integer;
implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
      flag:=1;
      form2.show;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
        flag:=0;
end;procedure TForm1.FormResize(Sender: TObject);
begin
      if (flag=1) then
      begin
      if (form1.WindowState=wsNormal) then
         begin
            form2.WindowState:=wsMaximized;
            form2.Show;
         end;
    end;
      
end;end.

Answer 4

为什么不考虑naner_china(naner)的做法呢。
OnReSize在最大化可能没有效果，所以在那里设断点没有什么用处。

Answer 5

在form1最大化时，给form2也发个最大话的消息！