uniGUI之新窗口uniForm(19)

 

 

 

 

 

 而後 保存，在這裏 重命名窗口

 

 

//主窗口 調用 
//  NewForm2.UniForm1.Show() ;          //非阻塞
  NewForm2.UniForm1.ShowModal();//阻塞

//子窗口 調用
procedure TUniForm2.UniButton1Click(Sender: TObject);
begin

  self.ModalResult := mrok; //將子窗口的返回值  mrok傳回主窗口
  self.Close;   //關閉子窗口
end

//主窗口 調用

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  newform2.UniForm2.ShowModal(
    procedure(Sender: TComponent; Res: Integer)//主窗口接收子窗口傳回的值 Res
    begin
      Case Res of
        mrOk: // 點Ok後執行的語句
          begin
            caption := 'mrOk'
          end;
        mrNo:   // 點No後執行的語句
          begin
            caption := 'mrNo'
          end;
        mrCancel:   // 點Cancel後執行的語句
          begin
            caption := 'Mrcancel'
          end;
      end;
    end
    );

end;