Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

Работа с несколькими компонентами   Найти похожие ветки 

 
vigo   (2005-07-04 17:10) [0]

Добрый день!
На форме несколько combobox"ов и пытаюсь вписать в процедуру FormShow перевод значений combobox"ов в начальное:
for i := 1 to Application.ComponentCount-1 do
 if Form1.Components[i].ClassType = TComboBox
  then TComboBox(Sender).ItemIndex := 0;
на ошибку не ругается, но ничего не меняется...
как можно одновременно поменять значения нескольких компонентов не расписывая по каждой...


 
ANB ©   (2005-07-04 17:13) [1]


> Application.ComponentCount
???


 
Чапаев ©   (2005-07-04 17:17) [2]

if Form1.Components[i].ClassType = TComboBox <-- лучше бы if Form1.Components[i] is TComboBox


 
vigo   (2005-07-04 17:40) [3]

Чапаев ©
<-- лучше бы if Form1.Components[i] is TComboBox

Лучше бы чего-нить дельное написал (если такой умный)...


 
TUser ©   (2005-07-04 17:42) [4]

И Form1 не надо указывать - это Self

for i:=0 to ComponentCount-1 do
 if Components[i] if TCustomComboBox then
   TCustomConmoBox(Components[i]).ItemIndex:=0;


 
TUser ©   (2005-07-04 17:43) [5]

После [3] прошу модераторов мой пост удалить.


 
ANB ©   (2005-07-04 17:45) [6]


> vigo   (04.07.05 17:40) [3]

1. не хами.
2. читай книжки
3. компоненты на форме принадлежат форме


 
vigo   (2005-07-04 17:49) [7]

спасибо с небольшой поправкой:
for i:=0 to ComponentCount-1 do
if Components[i].ClassType = TComboBox then
 TComboBox(Components[i]).ItemIndex:=0;



Страницы: 1 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
14-1120044792
Магнум
2005-06-29 15:33
2005.07.25
Выход в Инет через Pocket PC


1-1120478877
Bless
2005-07-04 16:07
2005.07.25
Бывают ли объекты с self=nil?


1-1120566147
K
2005-07-05 16:22
2005.07.25
Смежный компонент TreeView и ListView


14-1120533301
rainy_
2005-07-05 07:15
2005.07.25
Математика


14-1120213939
Игорь Шевченко
2005-07-01 14:32
2005.07.25
Есть ли в природе news-reader