Главная страница
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.012 c
14-46950
sucer
2003-04-25 17:09
2003.05.15
А почему бы этом сайте не разместить серийники для всех версий


1-46810
Anik
2003-05-02 14:04
2003.05.15
как можно сделать так чтобы ... в Edit курсор не отображалься.


14-46909
Ищущий
2003-04-28 15:49
2003.05.15
Среднеквадратическая ошибка


7-47030
Fedor
2003-03-19 14:53
2003.05.15
Печать


1-46827
Yanis
2003-05-02 23:38
2003.05.15
Помогите с OpenDialog.