Caption in TTaskDialog

[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