Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.09.2012, 11:14
NinaLa13 NinaLa13 вне форума
Прохожий
 
Регистрация: 11.09.2012
Сообщения: 2
Репутация: 10
По умолчанию Создание динамических объектов

Здравствуйте, помогите, пожалуйста! Создаю объекты в цикле как обратится к конкретному?
Код:
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;

Последний раз редактировалось Aristarh Dark, 11.09.2012 в 11:20.
Ответить с цитированием
  #2  
Старый 11.09.2012, 11:26
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Инициализируй свойство Tag, например.
Затем можно написать функцию которая вернет объект по его владельцу и Tag
Код:
function GetLabelByTag(AOwner:TComponent; ATag:Integer):TLabel;
var
  i: Integer;
begin
  Result:=nil;
  for i := 0 to AOwner.ComponentCount-1 do
    if (AOwner.Components[i] is TLabel) and ((AOwner.Components[i] as TLabel).Tag=ATag) then
      begin
        Result:=AOwner.Components[i] as TLabel;
        Exit;
      end;
end;

ЗЫЖ Не забывай проверять на nil значение возвращаемое функцией.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #3  
Старый 11.09.2012, 11:29
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Для быстрого и удобного доступа лучше их сложить, например, в ObjectList.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #4  
Старый 11.09.2012, 11:50
NinaLa13 NinaLa13 вне форума
Прохожий
 
Регистрация: 11.09.2012
Сообщения: 2
Репутация: 10
По умолчанию

Всё! Нашла решение! Спасибо за вариант тоже ))
Код:
var lbClick:TLable;
begin
lbClick := sender as TLabel;
if Assigned(lbClick)
then begin
....
end;
end;

Последний раз редактировалось Aristarh Dark, 11.09.2012 в 12:31.
Ответить с цитированием
  #5  
Старый 11.09.2012, 19:35
icsander icsander вне форума
Новичок
 
Регистрация: 17.04.2011
Сообщения: 87
Репутация: 10
По умолчанию

Лучше так
Код:
begin
if Sender is TLabel then lbClick := sender as TLabel else exit;
if Assigned(lbClick)
then begin
....
end;
end;
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:21.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter