unigui ShowModal、MessageDlg

最新推荐文章于 2024-07-11 11:50:14 发布

ozhy111

最新推荐文章于 2024-07-11 11:50:14 发布

阅读量1.3k

点赞数

分类专栏： unigui

本文链接：https://blog.csdn.net/ozhy111/article/details/83148923

版权

unigui 专栏收录该内容

67 篇文章 12 订阅

订阅专栏

procedure Calback(Sender: TComponent; AResult: Integer);
procedure TForm.Calback(Sender: TComponent; AResult: Integer);
begin
case AResult of
mrYes:
begin

end;
mrNo:
begin

end;
end;
end;

//fomr窗体不需要代码创建如下会报错

var
F_Envcategory: TF_Envcategory;
begin
F_Envcategory := TF_Envcategory.Create(self);
F_Envcategory.ShowModal(Calback);

FreeAndNil(F_Envcategory);

//直接调用
F_Form.ShowModal(Calback);

//-------------------------------------------------

Form.ShowModal(
         procedure(Sender: TComponent; Res: integer)
          begin
                  case Res of
                        mrYes :
                        begin
                          UniEdit1.Text:='1';
                        end;
                        mrNo :
                        begin
                          UniEdit1.Text:='0';
                        end;
                  end;

end

);

ModalResult := mrYes;
ModalResult := mrNo;

------------------------------------

MessageDlg('是否？', mtConfirmation, mbOKCancel,
    procedure(Sender: TComponent; Res: Integer)
    begin
      if Res = mrOk then
      begin

        end
        else
        begin

        end;

end;
end);