![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Изменение свойств нескольких объектов [D6, WinXP]
Artem Bakulin © (2002-06-11 20:29:00)У меня такая ситуация: мне надо при запуске программы прочитать из файла название кнопок и присвоить эти названия соответственно этим кнопкам. Дак вот вся трабла в том, что я не знаю как мне это сделать?
Новеньки в Делфи (2002-06-11 23:44:00) [1]можешь создать файл следующего типа:
имя_компонента1&значение#
имя_компонента2&значение#
затем в onActivate формы, открываешь файл, читаешь построчно, учитывая символы "&" и "#" разделяешь значения затем
findComponent(имя_компонента).его_свойство:=значение
только учти, что бы поменять некоторые свойства, нужно явно указать, какого типа является компонент с помощью "as" например
---файл---
btStart&Run#
---файл---
sName- имя компонента вырезаное из файла
sValue - значение компонента вырезаное из файла
---код---
(findComponent(sName) as TButton).caption:=sValue;
---код---
alexdbases (2002-06-11 22:23:00) [2]Попробуй так
for i:=0 to ComponentCount-1 do
if Component[i] is TButton then
TButton(Component[i]).Caption := "Моё име";
Но этот пример переписывает все имена всех кнопок на "Моё име"...
Сам подумай как найти нужные кнопки...это просто.(Сравневая капшены кнопок и тд...).
Но это испоьзование RTTI для Д5...но должно работать.Просто этот стандарт меняеться из выпуска в выпуск Дельфей...ВСЁ.