Establecer botón activo

[ecfisa]

Hola.

Si para mostrar el mensaje estas usando un formulario personalizado, podes hacer una función dentro del mismo que devuelva el botón que se encuentra mas a la izquierda y, despues de creados los botones, usarla para darle el foco:

Código PHP:

TButton* __fastcall TMyFormMessage::mostLeftButton( void )
{
  TButton *tb;
  int mostLeft = ClientWidth;

  for ( int i = 0; i < ControlCount; i++ )
    if ( Controls[i]->ClassNameIs("TButton") )
      if ( Controls[i]->Left < mostLeft )
         tb = static_cast<TButton*>(Controls[i]);

  return tb;
}

void __fastcall TMyFormMessage:: ...
{

  /* En este punto los botones deberían estar creados  */

  MostLeftButton()->SetFocus();
... 


Saludos