|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Создание динамических объектов
Здравствуйте, помогите, пожалуйста! Создаю объекты в цикле как обратится к конкретному?
Код:
var lb,lbl1:TRzLabel; begin while rc>=0 do begin lb:=TRzLabel.Create(lbl1); lb.Parent:=rpnlRows; lb.Caption:=IntToStr(ip); lb.OnClick:=lbl1OnClick; lb.Left:=l; lb.Top:=10; lb.Cursor:=crHandPoint; l:=l+20; inc(ip); rc:=rc-1000; end end; Код:
procedure TfmDetails.lbl1OnClick(Sender: TObject); begin if Assigned(lb) then lblpgNum.Caption:=lb.Caption; end; Последний раз редактировалось Aristarh Dark, 11.09.2012 в 11:20. |