Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.09.2012, 11:07   #1
NinaLa13
Новичок
Джуниор
 
Регистрация: 11.09.2012
Сообщений: 2
По умолчанию Создание динамических объектов

Здравствуйте, помогите, пожалуйста! Создаю объекты в цикле как обратится к конкретному?

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;
При вызове процедуры lbl1Onclick хочу, чтобы процедура возвращала мне caption того label'а на который нажимаю, а он возвращает только последний. Подскажите, в чём ошибка?

procedure TfmDetails.lbl1OnClick(Sender: TObject);
begin
if Assigned(lb) then
lblpgNum.Caption:=lb.Caption;
end;
NinaLa13 вне форума
Старый 11.09.2012, 11:19   #2
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Код:
procedure TfmDetails.lbl1OnClick(Sender: TObject);
 begin
 if (Sender is TRzLabel) then
 lblpgNum.Caption:=(Sender as TRzLabel).Caption;
 end;
Помог? Ну так нажми на весы!
SNUPY вне форума
Старый 11.09.2012, 11:46   #3
NinaLa13
Новичок
Джуниор
 
Регистрация: 11.09.2012
Сообщений: 2
По умолчанию

Спасибо!!! )))) Отлично!
NinaLa13 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создание динамических объектов medved6216 Общие вопросы Delphi 5 02.11.2011 09:43
События для динамических объектов fezilk25 Общие вопросы Delphi 3 05.10.2011 18:13
обработчик событий динамических объектов Vervolf Общие вопросы Delphi 2 17.01.2011 18:45
Удаление динамических объектов Jetro Общие вопросы Delphi 13 14.12.2010 16:39
Имя динамических объектов PVD Общие вопросы Delphi 26 09.02.2010 15:38