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

Вниз

Очистака компонентов от текста.   Найти похожие ветки 

 
zolotov   (2003-05-02 17:59) [0]

Ув. мастера, подскажите, пожалуйста, как сделать, чтобы при нажатии кнопки очищался текст во всех Edit"ах, ComboBox"ах и т.д. одновременно. Можно, конечно, написать, чтобы каждый компонент очищался (Edit1.Clear; Edit2.Clear и т.д.). Но, это не совсем удобно, особенно если моного Edit"ов и ComboBox"ов на форме.

Заранее, спасибо.


 
Fenik ©   (2003-05-02 20:46) [1]

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TComboBox then (Components[i] as TComboBox).Text := ""
else
if Components[i] is TEdit then (Components[i] as TEdit).Text := "";
end;
end;


 
zolotov   (2003-05-03 15:53) [2]

Спасибо большое.



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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
1-46742
Mir
2003-05-05 06:06
2003.05.15
Как в Image размножить рисунок?


3-46618
Merlot
2003-04-24 10:43
2003.05.15
Запрос в Query


3-46613
Ann
2003-04-22 15:42
2003.05.15
та же date


6-46883
shane54
2003-03-19 17:12
2003.05.15
Больше одного письма через SMTP


14-46911
A&N
2003-04-28 15:07
2003.05.15
Организация теста