Delphi picking value from the field created at runtime

Question

Create at runtime various Tradiogroup:

Rdb1:= TRadioGroup.Create(Painel);

But with the same name "Rdb1". My doubt is how I get the value of the field that was selected. I tried to do so:

Rdb1.OnExit := Validacao;

procedure TFCad_AnaliseDeTendencias.Validacao(Sender: TObject); 
begin
  if Rdb1.ItemIndex = 1 then
  begin
    showmessage('Acertou');
  end;

However as I have several "Rdb1" it takes the value only of the last Radiogroup created. There is a way for me to get the value of Radiogroup that was "Clicked/Selected"?

Answer 1

From what you explained, you don’t have multiple components with the same name, but you are using the same variable to create these components. One way you don’t have to worry about it, instead you can just use the Sender of the procedure as follows:

procedure TFCad_AnaliseDeTendencias.Validacao(Sender: TObject); 
begin
  if TRadioGroup(Sender).ItemIndex = 1 then
  begin
    showmessage('Acertou');
  end;
end;

Note: It is important that when creating the component (Create) you determine a name unique to him:

Rdb1.name := 'Radio' + controle;

Whereas controle is the variable you will need to define the logic to be generated.