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;