IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Программно создать объект
сообщение
Сообщение #1


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Как при запуске программы создать n кол-во lаbel'ов на форме с заданными координатами?Заранее благодарен.(не догоню как им имена дать)


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






  SetLength(lbls, 10);
for i := 0 to 9 do begin
lbls[i] := TLabel.Create(self);
lbls[i].Parent := Form1;
lbls[i].Name := Format('Label%0d', [i]); // <--- Вот так
lbls[i].Left := 50;
lbls[i].Top := 20 * i;
lbls[i].Caption := 'Label #' + inttostr(i);
lbls[i].Show;
end;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Спасиибо!А lbls это массив Tlabel?А как обращаться к объектам через имя готовое,или через массив?


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Ну, можно через массив (это я для простоты сделал, чтоб показать как имя задается), а можно вообще без массива обойтись:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
lbl: TLabel;
begin
for i := 0 to 9 do begin
lbl := TLabel.Create(self);
lbl.Parent := Form1;
lbl.Name := Format('Label%d', [i]);
lbl.Left := 50;
lbl.Top := 20 * i;
lbl.Caption := 'Label #' + inttostr(i);
lbl.Show;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
(FindComponent('Label2') as TLabel).Caption := 'New Label';
end;

 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Спасибо!


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.01.2021 13:38
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name