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);