Como saber en donde esta posicionado el foco

[RedVenom]

Mi duda es la siguiente tengo 142 dbradiogroup entonces yo necesito extraer en tiempo de ejecuion el nombre del dbradiogroup cuando el foco se posicione en alguno de ellos.
Espero se pueda hacer esto.

[droguerman]

Asignas a todos el mismo evento click y pones el siguiente código

Código Delphi [-]
function OnClick(sender: TObject);
var
  oSeleccionado : TdbgRadiogroup;
begin
  oSeleccionado := (sender as TdbgRadiogroup);
  showMessage(oSeleccionado.name);
end;

saludos

[*Caro*]

Hola, le asigans el mismo evento a todos tus DBRadioGroups y haces lo siguiente.

Código Delphi [-]
procedure TFExportar.DBRadioGroup1Click(Sender: TObject);
begin
 showMessage(TDBRadioGroup(Sender).Name);
end;

Saluditos

[RedVenom]

Disculpa mi ignorancia soy nuevo en esto y pues no entendi muy bien donde lo voy a implementar en la funcion onclick del dbradiogroup o donde??

[*Caro*]

Empezado por RedVenom

Disculpa mi ignorancia soy nuevo en esto y pues no entendi muy bien donde lo voy a implementar en la funcion onclick del dbradiogroup o donde??

Talvez sea mejor que lo hagas en el evento OnEnter de tu DBRadioGroup, pero no te olvides asignar el mismo evento a todos tus DBRadioGroups.

Saluditos

[RedVenom]

Ok lo agrego en el evento onenter, bueno ahora la cuestion es que ese nombre yo lo necesito para darle el dato a un evento onkeydown de la form porque yo en ese evento asigno unas letras y luego que asigne la letra deseo que cambie el foco al siguiente dbradiogoup por eso necesito extraer el nombre.

[*Caro*]

Empezado por RedVenom

Ok lo agrego en el evento onenter, bueno ahora la cuestion es que ese nombre yo lo necesito para darle el dato a un evento onkeydown de la form porque yo en ese evento asigno unas letras y luego que asigne la letra deseo que cambie el foco al siguiente dbradiogoup por eso necesito extraer el nombre.

Pues, tendras que guardar en alguna variable el DbRadioGroup que ha recibido el foco.

Código Delphi [-]
RadioGroupFoco : TRadioGroup;
....................
....................
procedure TForm1.RadioGroup1Enter(Sender: TObject);
begin
 RadioGroupFoco := TRadioGroup(Sender);
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 //Si presiona la A nos muestra el nombre del ultimo radioGroup que tenía el foco
 if key=65 then
  if Assigned(RadioGroupFoco) then
   showmessage(RadioGroupFoco.Name);
end;

Saluditos