| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание компонент на форме [D6, Win2k]

Страницы:   < 1 2 >

BALU1111 ©   (2005-03-09 13:30:00) 

Доброго времени суток! Мне на форме нужно создать более 500 компонентов TLabel и TCheckBox. Помню где-то видел код - создания через Create(Self), чтобы не в ручную создавать их на форме, но не помню где, может кто ссылку подскажет, а в хелпе что-то не найду.(((

---

Zeqfreed   (2005-03-09 14:48:00) [21]

BALU1111   (09.03.05 14:41) [7]

Полностью согласен с [8]
Вот пример того, как не нужно делать, попробуй преобразовать его во что-то приемлемое:

procedure TForm1.Button3Click(Sender: TObject);
var
mylabel : TLabel;
begin
mylabel := TLabel.Create(Self);
with mylabel do begin
 Parent := Self;
 Caption := 'label';
 Alignment := taCenter;
 Align := alBottom;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to 499 do begin
 Button3.OnClick(self);
end;
end;

---

BALU1111   (2005-03-09 14:47:00) [22]

Ясно, тогда буду вручную тыкать, спасибо всем за помощь.

---

Anatoly Podgoretsky   (2005-03-09 14:45:00) [23]

О, ну это уже сложно, придется уходить на начальные основы языка. Задача уже сводится не к минутам, а к дням, месяцам.

---

BALU1111   (2005-03-09 14:41:00) [24]

Работает, спасибо.
А теперь как сделать цикл создания 500 компонентов класса Label и CheckBox?

---

Zeqfreed   (2005-03-09 14:36:00) [25]

BALU1111   (09.03.05 14:31) [4]
TProgressBar + F1 = исчерпывающая информация

---

Александр Иванов   (2005-03-09 14:35:00) [26]

в секцию uses включи модуль ComCtrls

---

BALU1111   (2005-03-09 14:31:00) [27]

В хелпе нашел пример:
procedure TForm1.Button1Click(Sender: TObject);

var
 ProgressBar: TProgressBar;
begin
 ProgressBar := TProgressBar.Create(Self);
 with ProgressBar do
 begin
   Parent := Self;
   Align := alBottom;
 end;
end;

При компиляции пишет ошибку: Undeclared identifier: 'TProgressBar'
Что делать? В хелпе неправильно?

---

BALU1111   (2005-03-09 14:30:00) [28]

В хелпе нашел пример:
procedure TForm1.Button1Click(Sender: TObject);

var
 ProgressBar: TProgressBar;
begin
 ProgressBar := TProgressBar.Create(Self);
 with ProgressBar do
 begin
   Parent := Self;
   Align := alBottom;
 end;
end;

При компиляции пишет ошибку: Undeclared identifier: 'TProgressBar'
Что делать? В хелпе неправильно?

---

BALU1111   (2005-03-09 13:58:00) [29]

> Плохиш А прописать в Var'e надо что-нить, а то у меня ошибки выдает((

---

Плохиш   (2005-03-09 13:43:00) [30]

with TLabel.Create(self) do Parent := self;
with TCheckBox.Create(self) do Parent := self;

---

Страницы:   < 1 2 >

Наверх