是否可以使用标签访问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; 

Answer 2

那么现在Tag属性是大小为指针一样，所以你能，但你需要描述多一点你想要做什么。

我不确定这种情况会继续发展到64位Delphi，但我认为也是如此。

编辑：是的，在未来的版本中，TComponent.Tag应该是NativeInt。参考文献：Barry Kelly，Alexandru Ciobanu

Answer 3

有做

ButtonByTag(3).Caption := 'aaa'; 

您可以通过表单的组件搜索与3标签寻找的东西没有直接的方法：

var C: TComponent; 

for C in Self.Components do 
    if C is TCustomButton then 
     if C.Tag = 3 then 
     (C as TCustomButton).Caption := 'aaa' 

但请注意，您可能有大量具有相同标记的组件，但并不保证它是唯一的。

Answer 4

我认为这应该工作：

procedure TForm1.SetCaption(iTag: Integer; mCaption: String); 
var 
    i: Integer; 
begin 
    for i:= 0 to controlcount-1 do 
    if controls[i] is TButton then 
     if TButton(controls[i]).Tag = iTag then 
     TButton(controls[i]).Caption := mCaption; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    SetCaption(3,'aaa'); 
end; 

Answer 5

procedure TForm1.ChangeCaptionByTag(const SearchTag: integer; const NewCaption: string); 
var i: Integer; 
begin 
    for i in Components do 
    if Components[i] is TButton then 
     if (Components[i] as TButton).Tag = SearchTag then 
     begin 
      (Components[i] as TButton).Caption := NewCaption; 
      Break; 
     end; 
end;