Taskdialog und Hilfe-Knopf

[KodeZwerg]

Warum erstellst Du Dir nicht einfach eine Eigene Dialog Class oder noch einfacher eine Form (mit ShowModal aufrufen)? Dann bist Du befreit von den Standards da es Dein Eigener ist.

[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;

[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;

[freimatz]

Danke.
Auf die Idee die Standard-Buttons wie "Ja" auch selber zu machen bin ich nicht gekommen. Werde das mal ausprobieren.
Was dann wohl nicht geht wäre Tasklinks und die kleinen Buttons gemischt. Also z.B.

Code:

-> Variante 1
   Um jenes zu tun
-> Variante 2
   Doch lieber das andere
                  [Abbrechen] [Hilfe]

Ich habe früher auch viel selbst gemacht bin aber zur Überzeugung gekommen dass es öfters besser ist das vom System vorgegebene zu benutzen. Am meisten habe ich es gemerkt am "Datei öffnen" Dialog.

[KodeZwerg]

Ich verstehe gerade nicht was Du meinst.
Probiere mal beide Varianten durch um erstmal zu Bestimmen ob es überhaupt in die richtige Richtung geht.
Meine Beispiele sind sehr einfach gehalten wie man sieht.
Es gibt sicherlich noch mehr Optionen die man setzen kann, einfach mal in der Hilfe bzw im Quelltext nachschauen.
Man kann Hyperlinks einfügen und so was...
Ausgewertet wird ModalResult, die Definition kann man der Button-Zuweisung entnehmen.
Man kann dutzende Dialoge vorbereiten und per Code abrufen, das sollte kein Problem darstellen.
Wenn Dir eine der Varianten gefällt kann man eine Funktion daraus basteln damit du auf das Result reagieren kannst.

[KodeZwerg]

Zitat von freimatz:

Was dann wohl nicht geht wäre Tasklinks und die kleinen Buttons gemischt.

Zeig mir Code wie es jetzt gerade funktioniert und ich adaptiere ihn in mein Beispiel rein. Bis jetzt sah ich nur Fragen aber keinen Code.
Ps: Mit FORMS hab ich keine Ahnung, sag ich gleich vorweg, ich kann es nur per runtime hinbekommen. Wenn Du es per OI haben willst bräuchte ich ein einigermassen Lauffähiges Beispiel Projekt von Dir und ich probiere ob ich helfen kann.

Zitat von freimatz:

...bin aber zur Überzeugung gekommen dass es öfters besser ist das vom System vorgegebene zu benutzen.

Dann musst Du mit dem vorgegebenen Leben und es nicht ändern wollen
Wobei ich eher Individuelle mag selbst wenn es nur Standard ist. Der Anwender sieht ja nicht wie Du den Dialog aufrufst
In meinen Beispielen fehlt unter anderem komplett die Fehlerkontrolle.
Sie zeigen lediglich das es möglich ist und wie man es anstellt. Es gibt bestimmt noch mehr Varianten die auf ähnliches hinauslaufen.

Zitat von freimatz:

Am meisten habe ich es gemerkt am "Datei öffnen" Dialog.

Da gebe ich Dir Recht. Wobei man per runtime auch ein mächtiges "Datei öffnen" hinbekommt hehe

[freimatz]

Hallöchen,
recht spät, aber ich wollte den Beitrag nicht so enden lassen. Ich habe nun heute mein Programm auf Taskdialoge umgestellt. Habs gelöst mit dem Standard-TTaskDialog von Delphi. Den Hilfe-Knopf habe ich nun mit einem Link im Footer ersetzt.
Danke für alle Hilfe.