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);
---------------------
作者：ozhy111
来源：CSDN
原文：https://blog.csdn.net/ozhy111/article/details/83148923
版权声明：本文为博主原创文章，转载请附上博文链接！