Показать сообщение отдельно
  #22  
Старый 17.03.2011, 20:58
Janom Janom вне форума
Начинающий
 
Регистрация: 04.02.2011
Адрес: Москва
Сообщения: 148
Версия Delphi: 7
Репутация: 133
По умолчанию

Цитата:
Сообщение от Snake22
хм действительно какаято фигня получилась..
и у меня опять вопрос,
вот допустим я создал массив кнопок , кажой кнопке при созданиии добалвяеться имя , допустим Btns[1].name:='abc';
как мне потом обратиться к имени этой кнопки,а не к номеру массива?
ну написать например abc.caption:=...ошибка получаеться
ну как то так... и так кстаити вообще в массиве надобность пропадает...
Код:
function FindBTN(BtnName:ShortString):TComponent;
var i:integer;
begin
  for i:=0 to form1.ComponentCount-1 do
    begin
      if form1.components[i].name=(BtnName) then
        FindBTN:=form1.findcomponent(form1.components[i].name);
    end;
end;

использовать так:
Код:
TButton(FindBTN('abc')).caption:='asdasdasd';
Ответить с цитированием