Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Как изменить свойство компонента если известен только его тип... 


DSR   (2002-03-15 10:01) [0]

Тут вышла задачка...
На форме расположено N количество компонент типа TEdit и TLabel... Нужно очистить свойство Text у всех компонент типа TEdit... Как это можно реализовать...

If Form1.Components[2].ClassType=TEdit then (очистка свойста Text этого компонента)...

Буду рад любому совету (предпочтительнее примеры) :))
With best regards DSR



DieHard   (2002-03-15 10:09) [1]

for i:=0 to Form1.ControlCount-1 do
begin
if Form1.Controls[i] is TEdit then TEdit(Form1.Controls[i]).Text:="";
end;



Miwa   (2002-03-15 10:15) [2]


for i:=0 to ComponentCount - 1 do
if Components[i].ClassType = TEdit then
(Components[i] as TEdit).Text:="";



Miwa   (2002-03-15 10:17) [3]

Черт... Не успел...



DSR   (2002-03-15 10:32) [4]

Спасибо... оч хорошо....




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.046 c
3-90731           Snake                 2002-02-27 18:39  2002.03.28  
BDE в терминал-клиенте.


1-90967           SB                    2002-03-15 02:19  2002.03.28  
Размер MDI формы


6-91021           Sregey                2001-11-22 17:49  2002.03.28  
Все та же ошибка 10055 при попытке подключения TClientSocket


3-90758           Ptr                   2002-02-27 14:52  2002.03.28  
MasterSource... Кто подскажет в чем проблема?


1-91001           Gayrus                2002-03-02 16:06  2002.03.28  
Components