TTaskDialog de Builder XE3

[Angel.Matilla]

Empezado por Neftali

procedure TForm1.Button1Click(Sender: TObject);
begin
  TaskDialog1.CommonButtons := [tcbOk,tcbRetry];
  TaskDialog1.Execute;
end;

EN delphi no dudo que funcione, pero esa sintaxis no me vale en Builder

[Neftali [Germán.Estévez]]

Lo se, lo se,... pero no debe ser muy difícil de adaptar.

¿Puedes poner el error exacto?

[Angel.Matilla]

Empezado por Neftali

Lo se, lo se,... pero no debe ser muy difícil de adaptar.

¿Puedes poner el error exacto?

Vale. TEngo declara esta función, apra que me valga a lo largo de toda la aplicación:

int Mensaje(TCustomForm *Form, String Titulo, String Msg, int DlgType, TStringList *Botones)
{
    TTaskDialog *dMensaje = new TTaskDialog(Form);

    dMensaje->Caption       = Application->Title;
    dMensaje->CommonButtons = [];
    dMensaje->MainIcon      = DlgType;
    dMensaje->Title         = Titulo;
    dMensaje->Text          = Msg;

    for (int nBoton = 0; nBoton < Botones->Count; nBoton ++)
    {
        dMensaje->Buttons->Add();
        dMensaje->Buttons->Items[nBoton]->Caption     = Botones->Strings[nBoton];
        dMensaje->Buttons->Items[nBoton]->ModalResult = nBoton + 1;
    }

    if (dMensaje->Execute())
        return dMensaje->ModalResult;

    return -1;
}

En la línea en cuestión (dMensaje->CommonButtons) he probado como está ahí, con dMensaje->CommonButtons->tcbOk = false, con dMensaje->CommonButtons->tcbOk = NULL... Siempre me da error al compilar:

Funciones.cpp(192): parsing: int Mensaje(TCustomForm *,UnicodeString,UnicodeString,int,TStringList *)

Lo curioso es que el error lo da en la línea SIGUIENTE a la que se declara la función (int Mensaje...). Si comento la línea del CommonButtons, va sin problema; le paso este código (todas las variables etán definidas):

slBotones->Clear();
slBotones->Text = "Buscar\r\nCancelar";
nOpcTsk = Mensaje(this,
                  String("Instalación"),
                  String("Indique la situación de la base de datos"),
                  tdiShield, slBotones);

y muestra esto:

y de ahí me sobran dos botones

[Angel.Matilla]

Una cosa que no he probado, pero porque no se me ocurre CÓMO hacerlo, es algo parecido a modificar las porpiedades de una fuente. Algo parecido a esto:

Check->Font->Style = TFontStyles() >> fsBold;

algo como:

dMensaje->CommonButtons.Clear();

No sé si se podrán definir los botones de una forma similar porque por más vueltas que le he dado a la yuda, que ya digo que es penosa, no lo veo.

[Angel.Matilla]

Empezado por Angel.Matilla

dMensaje->CommonButtons.Clear();

¡Pues efectivamente! ¡Esa es la solución! ¿Y por qué no lo ponen en la ayuda?