Caption in TTaskDialog

[Maekkelrajter]

Zitat von himitsu:

Könnte am Fensterstil liegen: mit Abbrechen gibt es ein [x] und damit wohl einen anderen Style.

Delphi-Quellcode:

  
LatestCommonDialogs := False;  // False = VCL emuliert diesen Dialog (mit einer TForm)

Es könnte tatsächlich am Fensterstil liegen. Wenn ich das Flag 'tfAllowDialogCancellation' setze, ist die Caption auch ohne CancelButton sichtbar, aber eben leider auch das [x], das ich nicht brauchen kann. Nur wenn ich unter Projekt/Optionen/Erscheinungsbild 'Windows' wähle, dann geht's auch ohne.

Und 'LatestCommonDialogs' müsste wohl 'UseLatestCommonDialogs' heißen.

Gruß LP

[DaCoda]

Dieses Thema ist zwar schon alt, aber offensichtlich hat sich nichts geändert am Verhalten.
In Kombination mit Styles wird die Titelzeile nur angezeigt, wenn es einen "Abbruch-Button" gibt.
Hat hierzu jemand inzwischen eventuell was rausgefunden ?

[Uwe Raabe]

Gibt es dafür einen Bug-Report? Ich könnte dann einen Kommentar mit der Ursache und einem Lösungsvorschlag dazu schreiben.

[DaCoda]

@Uwe Raabe:
Danke für deine Unterstützung.

Nein einen offiziellen Report gab es noch nicht, aber jetzt habe ich das mal gemacht.

[DaCoda]

Hier noch mal etwas vollständiger, damit man das besser Testen kann:

Code:

procedure TfrmMain.TestTaskDialog;
var
  TaskDialog: TTaskDialog;
begin
  TaskDialog := TTaskDialog.Create(Self);
  try
    TaskDialog.Title := 'Titletext';
    TaskDialog.Caption := 'Caption';
    TaskDialog.Flags := [tfPositionRelativeToWindow, tfSizeToContent];
    TaskDialog.CommonButtons := [tcbOk];
    TaskDialog.ModalResult := MB_OK;
    TaskDialog.Execute;
  finally   
    TaskDialog.Free;
  end;
end;

Das Ergebnis:
Ohne Style [Windows]: https://www.delphipraxis.net/attachm...1&d=1681628764
Mit Style: https://www.delphipraxis.net/attachm...1&d=1681628624

[Uwe Raabe]

Das Problem liegt in TSysDialogStyleHook.PaintNC. Dort wird TextRect mit TRect.Empty initialisiert und im weiteren Verlauf Left und Right an die anzuzeigenden Buttons angepasst. Werden nun gar keine Buttons rechts angezeigt verbleibt TextRect.Right bei 0 und es erfolgt keine Textausgabe.

[DaCoda]

Vielen Dank Uwe,
dann kann ich da wohl nicht viel machen oder ?

[TurboMagic]

Zitat von DaCoda:

@Uwe Raabe:
Danke für deine Unterstützung.

Nein einen offiziellen Report gab es noch nicht, aber jetzt habe ich das mal gemacht.

d.h. du hast einen Report erstellt?
Falls ja, wo ist dann bitte die Rportnummer?
Dann können wir uns den auch anschauen, verfolgen, abstimmen etc.

Warum gibt's das immer wieder, dass Leute darüber schreiben einen Report erstellt zu haben,
aber die Nummer/URL nicht posten? So müssen wir die immer erraten...

[Uwe Raabe]

https://quality.embarcadero.com/browse/RSP-41436

[TurboMagic]

Zitat von Uwe Raabe:

https://quality.embarcadero.com/browse/RSP-41436

Danke Uwe. Ich wollte nur mal meine Verwunderung zum Ausdruck bringen, dass immer wieder
Leute Reports hier erwähnen aber nicht deren Nummern. Was ja offensichtlich wenig nützlich
für uns Leser ist, außer wir haben eine Glaskugel oder investieren die Zeit für eine Suche.
Wobei der jeweilige Poster diese Daten ja sicher i.d.R. parat hätte...