Обращение через свойство Controls

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
{©Drkb v.3(2007): www.drkb.ru}
var
 I: Integer;
 ChildControl: TControl;
begin
 for I:= 0 to GroupBox1.ControlCount -1 do
 begin
  ChildControl := GroupBox1.Controls[I];
  ChildControl. := ChildControl. + 15
 end;
end;

Проверить тип контрола надо оператором is:
if edit1 is TEdit then....
Затем доступ ко всем свойствам путем приведения класса:
(edit1 as TEdit).text:='';

Автор ответа: Kiber_rat
Взято с Vingrad.ru http://forum.vingrad.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...