本文整理自网络,侵删。
MessageDlg('是否' + DelBut.Caption + '该用户', mtConfirmation, mbOKCancel, procedure(Sender: TComponent; Res: Integer) begin if Res = mrOk then begin deldb(t); end; end);
--------------------
F_usersmes.ShowModal( procedure(Sender: TComponent; Res: integer) begin case Res of mrYes: begin if not setdbbyform(true) then ShowMessage('用户添加失败'); end; mrNo: begin
end; end;
end);――――――――――――――――
原文链接:https://blog.csdn.net/ozhy111/article/details/83784760
相关阅读 >>
Delphi xe5也可以开发 google glass应用
Delphi tms web core twebhttprequest使用
更多相关阅读请进入《Delphi》频道 >>