[Помидоркин]

Создаю форму динамически:

Код:

1 2 3 4 5 6 7 8 9

type   TFrmOutPut = class(TForm)    lblLink: TLabel;   private //----------------------------   public    constructor CreateMy(AOwner: TComponent); //----------------------------   end;

нужно написать обработчик TLabel.Click
можно, наверное, наследовать от TLabel (или правильнее от TCustomLabel) и перегрузить нужную процедуру, но создавать ради этого новый класс как-то не то.
Есть какие-нибудь варианты?

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

Код:

1	lblLink.OnClick := OnLblClick

Не?

[NumLock]

для абсолютно динамической формы (не из dfm):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

type   TMyForm = class(TForm)   private     FLabel: TLabel;     procedure LabelClick(Sender: TObject);   public     constructor CreateNew(AOwner: TComponent; Dummy: Integer  = 0); override;   end;   { TMyForm }   constructor TMyForm.CreateNew(AOwner: TComponent; Dummy: Integer); begin   inherited CreateNew(AOwner, Dummy);     Position:=poScreenCenter;   Caption:='MyForm';   Width:=400;   Height:=200;     FLabel:=TLabel.Create(Self);   FLabel.Parent:=Self;   FLabel.Caption:='Label';   FLabel.Left:=10;   FLabel.Top:=10;   FLabel.OnClick:=LabelClick;   FLabel.Visible:=True; end;   procedure TMyForm.LabelClick(Sender: TObject); begin   ShowMessage('Ok'); end;

use:

Код:

1	with TMyForm.CreateNew(Application) do Show;

[Помидоркин]

Сообщение от M.A.D.M.A.N.

Код:

Не?

Ага

Сообщение от NumLock

для абсолютно динамической формы (не из dfm): ...

собственно это то-же, что и предлагал M.A.D.M.A.N.
по сути это ни чем не отличается от назначения обработчика компоненту созданному из главной формы или из любой другой с dfm
Как-то, даже немного обидно, что сам не сообразил