Главная страница
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.043 c
4-1117539519
[tek]
2005-05-31 15:38
2005.07.25
Отловить копирование файла


9-1112720107
beautyk
2005-04-05 20:55
2005.07.25
помогите написать симулянт игры на фондовой бирже


1-1120749836
Gin
2005-07-07 19:23
2005.07.25
Мышь и форма


1-1120817326
1+random(9999)
2005-07-08 14:08
2005.07.25
TCP / IP


1-1120559338
Juice
2005-07-05 14:28
2005.07.25
Шаблоны в Delphi ?