Цитата:
|
Сообщение от vah-smile
...получается, что для реализации этого вопроса нужно сделать свою процедуру для клика
|
Самое удивительное так это то, что можно задать всего лишь одну процедуру для всех динамических "побратимов", достаточно сделать так
Код:
...
title[i].Tag:= i;
title[i].OnClick:= MyClick;
...
Procedure TForm1.MyClick(Sender:TObject);
begin
case (Sender as TLabel).Tag of
1: // действие 1
2: // действие 2
3: // действие 3
// итд.
...
end;
end;