Taskdialog und Hilfe-Knopf

[KodeZwerg]

Ich habe mal ein wenig mit dem TaskDialog rumgespielt, hier ist eine Interessante Detailierte Variante bei rausgekommen die es so macht wie Du wolltest, Ja -> Nein -> Hilfe

Delphi-Quellcode:

with TTaskDialog.Create(self) do
  try
    Title := 'TaskDialog Beispiel Überschrift';
    Caption := 'Dialog by KodeZwerg';
    Text := 'Hier kommt eine Beschreibung für den Dialog rein.';
    CommonButtons := [];
    with TTaskDialogButtonItem(Buttons.Add) do
    begin
      Caption := 'Ja';
      CommandLinkHint := 'Beschreibung für "Ja".';
      ModalResult := mrYes;
    end;
    with TTaskDialogButtonItem(Buttons.Add) do
    begin
      Caption := 'Nein';
      CommandLinkHint := 'Beschreibung für "Nein".';
      ModalResult := mrNo;
    end;
    with TTaskDialogButtonItem(Buttons.Add) do
    begin
      Caption := 'Hilfe';
      CommandLinkHint := 'Beschreibung für "Hilfe".';
      ModalResult := MB_HELP;
    end;

    Flags := [tfUseCommandLinks, tfAllowDialogCancellation];
    ExpandButtonCaption := 'Technische Informationen';
    ExpandedText := 'Hier kommt eine erweiterte Beschreibung rein.';
    MainIcon := tdiNone; //such Dir ein Icon aus: tdiNone tdiWarning tdiError tdiInformation tdiShield
    if Execute then
     case ModalResult of
       mrYes: begin end; //MachWasMitJa;
       mrNo: begin end; //MachWasMitNein;
       MB_HELP: begin end; //MachWasMitHelp;
     end;
  finally
    Free;
  end;