Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Вниз
Программное создание обьектов Найти похожие ветки
← →
БурЖуй (2003-01-22 20:56) [0]Господа!
Мне нужно создать программно энное количество editов! Причём какое именно количество я не знаю, и место где они будт размещаться, заранее я не знаю. Помогите понять как осуществить добавление на форму этих едитов!
Заранее спасибо!
← →
Anatoly Podgoretsky (2003-01-22 21:01) [1]Первое неважно, создавай сколько хочешь, а вот со вторым ты влетел, что же ты будешь с ними делать, как различать, да и зачем тогда они тебе.
← →
KDenis (2003-01-22 21:03) [2]<<где они будт размещаться>>
Эту проблему решает ScrollBox
← →
Anatoly Podgoretsky (2003-01-22 21:20) [3]ScrollBox предназначен для прокрутки
← →
БурЖуй (2003-01-22 21:36) [4]Я имел введу, что у меня в параметрическом файле задано энное количество едитов и ихнее размещенее, мне нужно создать в зависиомсти от количества параметров необходимое количество едитов!
← →
mrcat (2003-01-22 21:38) [5]БурЖуй © (22.01.03 21:36)
...
создать в зависиомсти от количества параметров необходимое количество едитов!
...
ну создадите Вы их и что дальше? Любоваться ими будете?
← →
Kair (2003-01-22 21:44) [6]Если да завтрашнего вечера ответ не найдёшь, МОЖЕТ БЫТЬ я смогу ответить?
Да скажите ему.
← →
Kair (2003-01-22 21:47) [7]Он же вам "заранее спасибо!" сказал (обратите особое внимание на слово "спасибо").
← →
БурЖуй (2003-01-22 21:53) [8]mrcat, мне нужно будет работать с ними также как и с обычными обьктами. Но и нужно будет к ним как-то по хитрому обращаться, тобишь я ведь не знаю какое имя будет у этого объекта....
Kair, спасиб тебе, хотя зачем ждать до завтра ? :)
← →
Anatoly Podgoretsky (2003-01-22 21:58) [9]БурЖуй © (22.01.03 21:36)
Вот это другое дело, а то сначала местонахождение неизвестно.
Ну и создавай их с помощью Create, после создания устанавливай их свойства по вкусу, все доступные свойства можно посмотреть или в Object Inspector а их описания в хелпе, там же есть и примеры. Кроме того куча примеров есть в FAQ, Demos да и в самих исходниках VCL
Вот если что конкретно не понятно, тогда задай вопрос, если не сможещь разобраться с помощью выше указанных средств.
А то сейчас это выглядит так, научите меня программировать.
← →
mrcat (2003-01-22 22:04) [10]
...
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"ы
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
