生產管理系統主窗口設計及實現代碼[2]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>

    () 單擊主菜單中的各個菜單選項為各個子窗體添加處理代碼
      private
        { Private declarations }
      public
        { Public declarations }
    //各個MDI子窗體間通過主窗體定義的公共變量來傳遞數據
        strstrstrstr:string;
    //標識是哪個子窗體來使用上面個公共變量
    //bomflag=表示BOM窗體使用上面的變量bomflag=表示主需求窗體使用
        bomflag:integer;
      end;
     
    var
      main: Tmain;
    implementation
     
    {$R *dfm}
    uses MaterialsFormBomFormCalendarFormmainrequireFormmainproduceformMRPCalForm
mrphistoryForm;
     
    //打開物料主文件維護子窗口
    procedure TmainNClick(Sender: TObject);
    var
    newform:Tmaterials;
    iflag:integer;
    begin
    //flag＝表示該窗體不存在
      flag:=;
      for i:= to mainMDIChildCount do
     begin
    // 通過對窗體標題判斷窗體是否存在
      if mainMDIChildren[i]Caption=物料主文件維護 then
       begin
       //如果窗體已存在則恢復窗體
         SendMessage(mdichildren[i]Handle WM_SYSCOMMAND SC_restore );
         mdichildren[i]Show;
         flag:=;
       //退出循環
       break;
       end;
       end;
      //若窗體不存在則創建窗體

[]  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24956.html