是否可以使用标签访问TButton？

Question

我希望使用标签访问TButton.可能吗？

例如,我希望将TButton的标题(button1标记为3)设置为'aaa',我知道我可以使用

button1.caption:= 'AAA';

但我希望使用标签'3'来访问tbutton并设置字符串值'aaa'.

欢迎任何评论

谢谢

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;