Question

I hope to access a TButton using tag.
IS it possible?

for example, I hope set the caption of a TButton (button1 has tag 3) as ‘aaa’,
I know I can use

button1.caption:=’aaa’;

but I hope to use tag ‘3’ to access the tbutton and set the string value ‘aaa’.

Welcome any comment

Thanks

interdev

Answer 1

procedure TForm1.ChnCaptionByTag(SearchTag: integer; NewCpt: string);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TButton then
    begin
      if TButton(Components[i]).Tag = SearchTag then
         TButton(Components[i]).Caption := NewCpt;
    end;
end;