![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программное создание обьектов [D6]
БурЖуй © (2003-01-22 20:56:00)Господа!
Мне нужно создать программно энное количество editов! Причём какое именно количество я не знаю, и место где они будт размещаться, заранее я не знаю. Помогите понять как осуществить добавление на форму этих едитов!
Заранее спасибо!
mrcat (2003-01-22 22:04:00) [1]
...
var
...
Count_of_edit: integer = 0;
Edit_list: TList;
implementation
procedure TfrmMain.btnMake_editClick(Sender: TObject);
begin
inc(Count_of_edit, 50);
Edit_list.Add(TEdit.Create(self));
{ Заносим в list, шоб удобней юзать }
TEdit(Edit_list[pred(Edit_List.Count)]).Parent := self;
TEdit(Edit_list[pred(Edit_List.Count)]).Top := Count_of_edit;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Edit_list := TList.Create;
end;
procedure TfrmMain.FormDestroy(Sender: TObject);
var
edit_index: byte;
begin
for edit_index := 0 to pred(Edit_list.Count) do
TEdit(Edit_list.Items[edit_index]).Destroy;
Edit_list.Destroy;
end;
и присваивай каждому объекту TEdit свои Events"ы
Anatoly Podgoretsky (2003-01-22 21:58:00) [2]БурЖуй © (22.01.03 21:36)
Вот это другое дело, а то сначала местонахождение неизвестно.
Ну и создавай их с помощью Create, после создания устанавливай их свойства по вкусу, все доступные свойства можно посмотреть или в Object Inspector а их описания в хелпе, там же есть и примеры. Кроме того куча примеров есть в FAQ, Demos да и в самих исходниках VCL
Вот если что конкретно не понятно, тогда задай вопрос, если не сможещь разобраться с помощью выше указанных средств.
А то сейчас это выглядит так, научите меня программировать.
БурЖуй (2003-01-22 21:53:00) [3]mrcat, мне нужно будет работать с ними также как и с обычными обьктами. Но и нужно будет к ним как-то по хитрому обращаться, тобишь я ведь не знаю какое имя будет у этого объекта....
Kair, спасиб тебе, хотя зачем ждать до завтра ? :)
Kair (2003-01-22 21:47:00) [4]Он же вам "заранее спасибо!" сказал (обратите особое внимание на слово "спасибо").
Kair (2003-01-22 21:44:00) [5]Если да завтрашнего вечера ответ не найдёшь, МОЖЕТ БЫТЬ я смогу ответить?
Да скажите ему.
mrcat (2003-01-22 21:38:00) [6]БурЖуй © (22.01.03 21:36)
...
создать в зависиомсти от количества параметров необходимое количество едитов!
...
ну создадите Вы их и что дальше? Любоваться ими будете?
БурЖуй (2003-01-22 21:36:00) [7]Я имел введу, что у меня в параметрическом файле задано энное количество едитов и ихнее размещенее, мне нужно создать в зависиомсти от количества параметров необходимое количество едитов!
Anatoly Podgoretsky (2003-01-22 21:20:00) [8]ScrollBox предназначен для прокрутки
KDenis (2003-01-22 21:03:00) [9]<<где они будт размещаться>>
Эту проблему решает ScrollBox
Anatoly Podgoretsky (2003-01-22 21:01:00) [10]Первое неважно, создавай сколько хочешь, а вот со вторым ты влетел, что же ты будешь с ними делать, как различать, да и зачем тогда они тебе.