前端之家收集整理的这篇文章主要介绍了
如何在Delphi中显示带有两个按钮(继续/关闭)的对话框，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
我想创建一个警告对话框,询问
用户注册期间输入的信息是否正确,并询问他是否要继续或
关闭该对话框并更正其信息.
var
td: TTaskDialog;
tb: TTaskDialogBaseButtonItem;
begin
td := TTaskDialog.Create(nil);
try
td.Caption := 'Warning';
td.Text := 'Continue or Close?';
td.MainIcon := tdiWarning;
td.CommonButtons := [];
tb := td.Buttons.Add;
tb.Caption := 'Continue';
tb.ModalResult := 100;
tb := td.Buttons.Add;
tb.Caption := 'Close';
tb.ModalResult := 101;
td.Execute;
if td.ModalResult = 100 then
ShowMessage('Continue')
else if td.ModalResult = 101 then
ShowMessage('Close');
finally
td.Free;
end;
end;
注意：This will only work on Windows Vista or later.
原文链接：https://www.f2er.com/delphi/101656.html
