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