[NinaLa13]

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

Код:

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]

Инициализируй свойство 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 значение возвращаемое функцией.

[M.A.D.M.A.N.]

Для быстрого и удобного доступа лучше их сложить, например, в ObjectList.

[NinaLa13]

Всё! Нашла решение! Спасибо за вариант тоже ))

Код:

var lbClick:TLable;
begin
lbClick := sender as TLabel;
if Assigned(lbClick)
then begin
....
end;
end;

[icsander]

Лучше так

Код:

begin
if Sender is TLabel then lbClick := sender as TLabel else exit;
if Assigned(lbClick)
then begin
....
end;
end;