Ver Mensaje Individual
  #2  
Antiguo 16-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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') // o cualquier vcl style
  else
    TStyleManager.SetStyle('Windows');
end;

Última edición por AgustinOrtu fecha: 16-02-2017 a las 06:30:38.
Responder Con Cita