关于MDI程序的全屏幕问题。

各位，请问如何能做到像WPS2000那样，在一个MDI程序中(Parent含有菜单、工具条），将一个含有TMEMO的子窗口做成全屏幕? 问题点数：50、回复次数：4Top

1 楼redice（雷帝）回复于 2000-07-06 01:44:00 得分 40

呵呵，不想多讲。我做了一个简单的例子  
  ftp://ftp.cs.uestc.edu.cn/incoming/Program/fullScreen.zip  
  仅供参考；  
   
  //MDI   FORM  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      ComCtrls,   ToolWin,   Menus;  
   
  type  
      TForm1   =   class(TForm)  
          MainMenu1:   TMainMenu;  
          ToolBar1:   TToolBar;  
          StatusBar1:   TStatusBar;  
          ToolButton1:   TToolButton;  
          ToolButton2:   TToolButton;  
          file1:   TMenuItem;  
          exit1:   TMenuItem;  
          help1:   TMenuItem;  
          about1:   TMenuItem;  
          procedure   ToolButton2Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
  uses   unit2;  
  {$R   *.DFM}  
   
  procedure   TForm1.ToolButton2Click(Sender:   TObject);  
  begin  
    if     form1.MDIChildCount>0   then  
    begin  
          (form1.ActiveMDIChild   as   Tform2).fullscreen(true);  
    end;  
  end;  
   
  end.  
   
  //MDI   Child  
   
  unit   Unit2;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      StdCtrls,   ComCtrls;  
   
  type  
      TForm2   =   class(TForm)  
          RichEdit1:   TRichEdit;  
          procedure   FormResize(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          procedure   FullScreen(full:boolean);  
          {   Public   declarations   }  
      end;  
   
  var  
      Form2:   TForm2;  
      wState:TWindowState;  
      Resized:boolean=false;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm2.FullScreen(full:boolean);  
  begin  
          if   full   then  
          begin  
              wState:=WindowState;  
              FormStyle:=fsNormal;  
              WindowState:=wsMaximized;  
              Resized:=true;  
          end   else  
          begin  
              Resized:=false;  
              FormStyle:=fsMDIChild;  
              WindowState:=wState;  
          end;  
  end;  
   
  procedure   TForm2.FormResize(Sender:   TObject);  
  begin  
          if   resized   then  
          begin  
                fullScreen(false);  
          end;  
  end;  
   
  end.  
  Top

2 楼fyje（云中仙）回复于 2000-07-06 16:35:00 得分 10

将该form设置为mdichild,windowstate设置为最大化,放入TMEMO,设置其align属性为alclient即可Top

3 楼yeah（）回复于 2000-07-06 22:54:00 得分 0

很感谢Redice的回答，但是此方法在恢复时Child窗口因连续Resize(我跟踪了一下，多达8、9次，连续地最大小化、还原），所以基本上不可用。  
  我试了一下将MDI框架窗口中的TOOLBAR及菜单隐藏，并去掉标题栏，然后最大化，然后将Child窗口最大化，已达到了要求，不过Child窗口中如果TRichEdit中文字太多时，闪烁太严重，有没有办法解决？哪位做过这种活儿的请帖出来看一下。可以参考看看WPS2000的全屏幕切换，很干净。Top

4 楼yeah（）回复于 2000-08-13 23:34:00 得分 0

既然没有更好的答案，干脆把分分了吧。Top

相关问题

• ps2
• 全屏幕
• toolbutton
• mdi
• tform
• wstate
• tmenuitem
• fullscreen
• windowstate
• 最大化

• 帖主：yeah
• redice
• fyje

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载