![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание компонент на форме [D6, Win2k]
BALU1111 © (2005-03-09 13:30:00)Доброго времени суток! Мне на форме нужно создать более 500 компонентов TLabel и TCheckBox. Помню где-то видел код - создания через Create(Self), чтобы не в ручную создавать их на форме, но не помню где, может кто ссылку подскажет, а в хелпе что-то не найду.(((
Zeqfreed (2005-03-10 15:54:00) [1]Плохиш © (10.03.05 14:59) [29]
Лучше пусть книгу купит, для начинающих.
BALU1111 (10.03.05 14:48) [28]
См. первые 2 строки. Ты предложи кому-нибудь сразу все целеком за тебя написать и не парь ни себе ни другим мозги.
Плохиш (2005-03-10 14:59:00) [2]
>BALU1111 (10.03.05 14:48) [28]
Может, в конце концов, справку для Parent сам почитаешь?
BALU1111 (2005-03-10 14:48:00) [3]Проверил. Все работает! А теперь иной вопрос, но по той же теме: как сделать, чтобы все созданные объекты отображались не на самой форме, а на расположенной на форме PageControl? Заранее спасибо.
> Erik1 © Огромное спасибо за поправку, но я как полагаю меня все правильно поняли, а на момент написания, у меня не нашлось подходящего слова)))
Glex (2005-03-09 20:31:00) [4]Sorry, глюк
Glex (2005-03-09 20:30:00) [5]Ну я имею в виду, что вместо TObject можно использовать всё что угодно: TPanel, TCheckBox, TComboBox.
Glex (2005-03-09 20:30:00) [6]Ну я имею в виду, что вместо TObject можно использовать всё что угодно: TPanel, TChekBox, TComboBox.
Плохиш (2005-03-09 18:59:00) [7]
>Glex © (09.03.05 18:46) [23]
Интересно, с каких пор у TObject появились Top, Left и Parent?
Glex (2005-03-09 18:46:00) [8]
var aObj: array of Objects;
i, top: integer
procedure TForm1.CreateObjects
begin
setlength(aObj, 500);
for i:=0 to 499 do begin
aObj[i]:= TObject.Create(self);
aObj[i].Parent:=self;
aObj[i].Top:=top;
aObj[i].Left:=15;
top:=top+10;
end;
end;
Простите за ламерский код. Работает, сам проверил, вместо Obj ставь что угодно.
Erik1 (2005-03-09 17:24:00) [9]А по секрету тебе скажу, что в [11] ты неправ. Не один и тотже компонент будет создоватся i раз, а один и тотже класс. Что означает разные объекты, ты просто неможеш набрать 500 разных классов!
BALU1111 (2005-03-09 16:11:00) [10]> Virgo_Style Я знаю, она мне не помешала бы, но в силу финансововй ограниченности, приходится искать иной выход
Virgo_Style (2005-03-09 15:50:00) [11]Есть такая штука - FormReader... Очень недешевая, правда. Это аналог FineReader'а для считывания данных с бланков. API, документация... Очень хорошая штука.
Anatoly Podgoretsky (2005-03-09 15:27:00) [12]BALU1111 (09.03.05 15:10) [14]
Тебя тоже жалко.
BALU1111 (2005-03-09 15:21:00) [13]> Ольга Передо мной будут только бланки с ответами, а вопросы мне даже не нужны.
BALU1111 (2005-03-09 15:19:00) [14]Я надеюсь что хватит
Virgo_Style (2005-03-09 15:17:00) [15]Я бы лучше вывел 500 раз диалог Да-Нет-Отмена... Гораздо проще и симпатичней, на мой взгляд...
У тебя места-то на форме хватит??
Ольга (2005-03-09 15:16:00) [16]Сколько вопросов (вариантов ответов) одновременно вы можете видеть на экране. 5-10, не больше. Не надо создавать такую куту компонентов, можно просто обновлять в них информацию.
BALU1111 (2005-03-09 15:10:00) [17]> Ольга честно говоря программу создаю для личного пользования, работа заключается в обработке психологического теста - 500 вопросов, и скорее всего бедный я.
Ольга (2005-03-09 15:07:00) [18]
> Мне на форме нужно создать более 500 компонентов TLabel
> и TCheckBox
А вы хорошо продумали интерфейс вашей программы?
500 компонентов на одной форме - по-моему, это перебор.
Бедные пользователи.
BALU1111 (2005-03-09 15:07:00) [19]Тут как я понял будет создаваться один и тот же компонент i раз, а мне нужно все i количество компонентов на форме.
BALU1111 (2005-03-09 15:06:00) [20]Тут как я понял будет создаваться один и тот же компонент i раз, а мне нужно все i количество компонентов на форме.