Establecer botón activo

[Angel.Matilla]

Sé que será una tontería que seguro ya he hecho pero no soy capaz de recordar como.

Tengo este formulario que se crea de forma dinámica tanto el mensaje como los botones.

Los botones (TButton) se van añadiendo al formulario de derecha a izquierda. Ahí va la pregunta:

Como el objeto TButton no tiene el método SetFocus(), ¿Cómo hago para que el botón activo sea el último creado, el de más a la izquierda?

[roman]

Empezado por Angel.Matilla

Como el objeto TButton no tiene el método SetFocus(),

¿Por qué dices esto? TButton sí tiene ese método

LineComment Saludos

[roman]

En todo caso, podrías intentar con la propiedad ActiveControl del formulario.

LineComment Saludos

[[AgustinOrtu]]

Hasta donde yo se y como comenta roman, TButton al ser un TWinControl deberia tener su metodo SetFocus

SetFocus si no me falla la memoria esta implementado mas o menos asi, usando la API de Windows:

Código PHP:

  SendMessage(Handle o HWND del Button, WM_SETFOCUS, 0, 0); 


[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

[Angel.Matilla]

Gracias por las respuestas.