TTMSFNCTaskDialog.OnDialogResult Event
Occurs when the dialog returns a modal result.
API unit family: TMSFNCTaskDialog
Declaring type: TTMSFNCTaskDialog
Inherited from: TTMSFNCCustomTaskDialog
Syntax
OnDialogResult: TTMSFNCCustomTaskDialogDialogResultEvent;
__property TTMSFNCCustomTaskDialogDialogResultEvent OnDialogResult = {read=FOnDialogResult, write=FOnDialogResult};
Parameters
| Name | Description |
|---|---|
Sender |
The dialog that raises the event. |
AModalResult |
The modal result returned by the dialog. |
Usage examples
Handle task dialog results
Uses OnDialogResult to process the selected modal result and read additional dialog state.
procedure TForm1.ShowDeleteTaskDialog;
begin
TMSFNCTaskDialog1.Title := 'Delete selected records';
TMSFNCTaskDialog1.Instruction := 'Confirm how the selected records should be removed.';
TMSFNCTaskDialog1.CommonButtons := [tcbOk, tcbCancel];
TMSFNCTaskDialog1.VerifyText := 'Also remove linked attachments';
TMSFNCTaskDialog1.Execute;
end;
procedure TForm1.TMSFNCTaskDialog1DialogResult(Sender: TObject;
AModalResult: TModalResult);
begin
if AModalResult = mrOk then
ShowMessage(BoolToStr(TMSFNCTaskDialog1.VerifyResult, True));
end;
void __fastcall TForm1::ShowDeleteTaskDialog()
{
TMSFNCTaskDialog1->Title = "Delete selected records";
TMSFNCTaskDialog1->Instruction = "Confirm how the selected records should be removed.";
TMSFNCTaskDialog1->CommonButtons = TTMSFNCTaskDialogCommonButtons() << tcbOK << tcbCancel;
TMSFNCTaskDialog1->VerifyText = "Also remove linked attachments";
TMSFNCTaskDialog1->Execute();
}
void __fastcall TForm1::TMSFNCTaskDialog1DialogResult(TObject *Sender,
TModalResult AModalResult)
{
if (AModalResult == mrOk)
ShowMessage(BoolToStr(TMSFNCTaskDialog1->VerifyResult, true));
}