|
|
Для того, чтобы применить какое-то действие сразу к нескольким компонентам, не перечисляя их, можно воспользоваться функцией FindComponent. Она ищет компонент с заданным именем. Эта программа изменяет Visible сразу пяти полям ввода.procedure TForm1.FormCreate(Sender: TObject);
begin
CheckBox1.Checked := true;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to 5 do
(FindComponent('Edit' + IntToStr(i)) as TEdit).Visible := CheckBox1.Checked;
end;
главная страница• задать вопрос
email: delphi4all@narod.ru
|
