是否可以使用標籤訪問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;