Помогите с OnChange в Edit!

[AgronomZ]

У меня есть поле ввода для числа (edit) и у него есть свойство OnChange. Мне нужно, чтобы при вводе числа от 1 до 10 на форме появлялось соответствующее количество полей edit. Как это реализовать?

[Mr.Smart]

Зачем плодите темы? Задавали бы вопрос в старой!

[Light13]

Лучше напишите отдельный метод

Код: Выделить всё

procedure <Имя класса вашей формы>.CreateEdits(const aCount: Integer);
var
  TmpEdit: TEdit;
  TopEdit: Integer;
begin
  TopEdit := 20;
  for i := 1 to aCount do
  begin
    TmpEdit := TEdit.Create(Self);      
    TmpEdit.Parent := Self;
    TmpEdit.Left := 20;
    TmpEdit.Top := TopEdit;
    Inc(TopEdit, TmpEdit.Height + 6);
  end;  
end;

Писал без среды - проверить не могу.

И немедленно читать книгу по программированию.