Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c