[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