TTaskDialogEx

type TTaskDialogEx = record

public

  Base: TTaskDialog;

  CommonButtons: TCommonButtons;

  ButtonDef: Integer;

  Flags: TTaskDialogFlags;

  DialogIcon: TTaskDialogIcon;

  FooterIcon: TTaskDialogFooterIcon;

  RadioDef: Integer;

  Width: Integer;

  NonNative: Boolean;

  EmulateClassicStyle: Boolean;

  OnButtonClicked: TTaskDialogButtonClickedEvent;

  procedure Init;

  function Execute();

end;