大家好,我是新手,请问为什么我们在新建一个空窗体时,它的属性为Visible默认为false,但是在运行时却能够看到呢?我查看了联机文档,说到只有当窗体调用到show()或者showmodal()方法才会被显示出来,但是我参看了工程内相关文件的代码,都没有发现这两个方法被调动,这是为什么呢?谢谢!

解决方案 »

  1.   

    你点击 菜单--project--view source 将会看到类似代码
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    然后你可以查看到TApplication.Run的代码
    procedure TApplication.Run;
    begin
      FRunning := True;
      try
        AddExitProc(DoneApplication);
        if FMainForm <> nil then
        begin
          case CmdShow of
            SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
            SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
          end;
          if FShowMainForm then
            if FMainForm.FWindowState = wsMinimized then
              Minimize else
              FMainForm.Visible := True;
          repeat
            try
              HandleMessage;
            except
              HandleException(Self);
            end;
          until Terminated;
        end;
      finally
        FRunning := False;
      end;
    end;