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

Есть форма, создается динамически на ней несколько компонентов

Код:

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

unit MineForms;        .......................................  type    TCmbMetters = class(TComboBox)        .......................................    end;      TFrmProfile = class(TForm)     CmbMetters: TCmbMetters;     Lbl: TLabel;        .......................................    end;   implementation        .......................................

как в форме написать обработчик на OnClick комбобокса (CmbMetters), например -

Код:

1	Lbl.Caption:= CmbMetters.Text;

(просто пример), собственно нужно вычислить значения нескольких компонентов, результат поместить в лейбл и хотелось бы что-бы этот обработчик вызывался при событиях компонентов на форме, в дизайнтайм понятно, один обработчик написал, в инпекторе объектов назначил нужным событиям, а как если форма динамическая?

[NumLock]

Код:

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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TCmbMetters = class(TComboBox)   end;     TForm1 = class(TForm)     Label1: TLabel;     procedure FormCreate(Sender: TObject);   private     { Private declarations }     CmbMetters: TCmbMetters;     procedure NumLock(Sender: TObject);   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   { TForm1 }   procedure TForm1.NumLock(Sender: TObject); begin   Label1.Caption:=CmbMetters.Text;  end;   procedure TForm1.FormCreate(Sender: TObject); begin   CmbMetters:=TCmbMetters.Create(Self);   CmbMetters.Parent:=Self;   CmbMetters.OnClick:=NumLock;   CmbMetters.Items.Add('1');   CmbMetters.Items.Add('2');   CmbMetters.Items.Add('3'); end;   end.

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

Спасибо NumLock
Хотя вышло несколько иначе

Код:

1 2 3 4

procedure TFrmProfile.Calc(Sender: TObject); begin  LblResult.Caption:= FloatToStrF(CmbMetters.Value,ffFixed,8,2); end;

Код:

1 2 3 4 5 6 7 8 9 10

procedure TCmbMetters.Click; begin  inherited Click;  case ItemIndex of   0: FValue:= 6.76 ;   1: FValue:= 6.78;   2: FValue:= 4.23;  end;  (Parent as TFrmProfile).Calc(Self); end;