Que version de Delphi? Estas usando Vcl Styles?
Edito:
En este hilo se trato el tema
Taskdialog no se ve completo
Confirmado, el problema solo se reproduce si usas algun Vcl Style
Codigo:
Código Delphi
[-]
uses
Vcl.Themes;
procedure TForm1.Button1Click(Sender: TObject);
begin
TaskDialog1.CommonButtons := [];
TaskDialog1.Buttons.Clear;
TaskDialog1.MainIcon := tdiInformation;
TaskDialog1.Title := 'Test TaskDialog';
TaskDialog1.Text := 'Test TaskDialog.';
TaskDialog1.ModalResult := mrCancel;
TaskDialog1.Buttons.Add();
TaskDialog1.Buttons.Add();
TaskDialog1.Buttons[0].Caption := 'Salir';
TaskDialog1.Buttons[0].ModalResult := mrOk;
TaskDialog1.Buttons[0].Default := True;
TaskDialog1.Buttons[1].Caption := 'Cancelar';
TaskDialog1.Buttons[1].ModalResult := mrCancel;
TaskDialog1.Execute;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
TStyleManager.SetStyle('Sterling') else
TStyleManager.SetStyle('Windows');
end;