Taskdialog und Hilfe-Knopf

[KodeZwerg]

Noch ein Beispiel für einen TaskDialog, inkl. Ja -> Nein -> Hilfe Reihenfolge.
Das entspricht dem minimal Windows Standard-Stil.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TaskDialog: TTaskDialog;
  Button: TTaskDialogBaseButtonItem;
begin
  TaskDialog := TTaskDialog.Create(Self);
  TaskDialog.Caption := 'Dialog by KodeZwerg';
  TaskDialog.Title := 'TaskDialog Beispiel Überschrift';
  TaskDialog.Text := 'Hier kommt eine Beschreibung für den Dialog rein.';
  TaskDialog.MainIcon := tdiNone; //tdiNone tdiWarning tdiError tdiInformation tdiShield
  TaskDialog.CommonButtons := [];
  Button := TaskDialog.Buttons.Add;
  Button.Caption := 'Ja';
  Button.ModalResult := mrYes;
  Button := TaskDialog.Buttons.Add;
  Button.Caption := 'Nein';
  Button.ModalResult := mrNo;
  Button := TaskDialog.Buttons.Add;
  Button.Caption := 'Hilfe';
  Button.ModalResult := MB_HELP;
  // bis hier ist der Dialog konfiguriert
  if TaskDialog.Execute then
  begin
   case TaskDialog.ModalResult of
     mrYes: begin end;//MachWasMitJa
     mrNo: begin end;//MachWasMitNein
     MB_HELP: begin end;//MachWasMitHelp
   end;
  end;
  Button.Free;
  TaskDialog.Free;
end;