Создаю форму динамически:
Код:
type
TFrmOutPut = class(TForm)
lblLink: TLabel;
private
//----------------------------
public
constructor CreateMy(AOwner: TComponent);
//----------------------------
end;
нужно написать обработчик TLabel.Click
можно, наверное, наследовать от TLabel (или правильнее от TCustomLabel) и перегрузить нужную процедуру, но создавать ради этого новый класс как-то не то.
Есть какие-нибудь варианты?