Страница 1 из 1
Помогите с OnChange в Edit!
Добавлено: 08.12.2010 19:30:23
AgronomZ
У меня есть поле ввода для числа (edit) и у него есть свойство OnChange. Мне нужно, чтобы при вводе числа от 1 до 10 на форме появлялось соответствующее количество полей edit. Как это реализовать?
Re: Помогите с OnChange в Edit!
Добавлено: 08.12.2010 20:36:03
Mr.Smart
Зачем плодите темы? Задавали бы вопрос в
старой!
Re: Помогите с OnChange в Edit!
Добавлено: 09.12.2010 07:26:11
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;
Писал без среды - проверить не могу.
И немедленно читать книгу по программированию.