[Delphi] Работа с компонентом TButton в режиме run-time

[baster128]

Ну вот так тогда
var
ButN:array of TButton;
А массив набивай в своей процедуре создания
ButN[i]:=Button(твоя созданная кнопка)
Соответственно свойства
ButN[i].Top (Left, Color и тд)

[vovk]

Сообщение от Rydj

По идее так не получится я создавал переменную типа стринг которая знает имя текущей кнопки, Компилятор не воспринимает стринг как компонент поэтому ругается когда пишем CName:string ... CName:=EName.Text; CName.(и тут делфа ругается).
vovk спс ща твой вариант попробую

В массиве тоже придётся искать по имени кнопки) в общем то
тоже саме что и массив компонентов на форме, только со своим массивом управлятся иногда удобнее.

[baster128]

А если в комбобокс их набить в смысле неймы и по итеминдекс потом выбирать?

[Rydj]

vovk супер поиск пашет, спс как допишу выложу полный код малоли кому ещё пригодится

[Rydj]

baster128 в комбобоксе хранятся переменные типа стринг будет идти не совпадение типов, я ща сохраняю имя в боксе потом сделал процедурину которая смотрит что выбрано в боксе и загружает имя в поиск а дальше позволяет изменять параметры

[vovk]

в комбобокс можно добавлять ссылки на объект, тогда искать не придётся

Button:= TButton.Create(self);
Button.Parent := Form1;
Button.Name:= EName.Text;
ComboBox1.Items.AddObject(Button.Name,Button);
Button.Left := StrToInt(ELeft.Text);
Button.Top := StrToInt(ETop.Text);

потом обращатся

(ComboBox1.Items.Objects[ComboBox1.ItemIndex] as tButton).Caption:='та самая';

PS У нас на форуме посты сами не склеиваются, но свои посты друг за другом размещать не приянто. Если чтото добавляете, а ваш пост последний, во избежание негативной реакции модераторов пользуйтесь пожалуйста правкой.

[Rydj]

За индексы спс буду знать что есть такая возможность, но на мой взгляд короче выглядит через поиск.

[vovk]

Верхний код это копия вашего дя создания кнопки)), там только строчка

ComboBox1.Items.AddObject(Button.Name,Button);

это чтобы добавитьв комбобокс не только имя кнопки но и ссылку на объект.

А для того чтобы обращатся достаточно только этого

(ComboBox1.Items.Objects[ComboBox1.ItemIndex] as tButton).Caption:='та самая';

и проверять не придётся кнопку мы нашли или нет )) хотя на существование объекта всёже проверить стоило бы.


PS Да и если хранить имена в TComboBox жалко было бы не использовать возможности списка, а делать в обход))