[NinaLa13]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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

Код:

1 2 3 4 5

procedure TfmDetails.lbl1OnClick(Sender: TObject); begin if Assigned(lb) then lblpgNum.Caption:=lb.Caption; end;

[Aristarh Dark]

Инициализируй свойство Tag, например.
Затем можно написать функцию которая вернет объект по его владельцу и Tag

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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]

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

Код:

1 2 3 4 5 6 7 8

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

[icsander]

Лучше так

Код:

1 2 3 4 5 6 7

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