Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Вниз
Очистака компонентов от текста. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c