|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
События динамически созданной формы
Есть форма, создается динамически на ней несколько компонентов
Код:
unit MineForms; ....................................... type TCmbMetters = class(TComboBox) ....................................... end; TFrmProfile = class(TForm) CmbMetters: TCmbMetters; Lbl: TLabel; ....................................... end; implementation ....................................... Код:
Lbl.Caption:= CmbMetters.Text; |
#2
|
||||
|
||||
Код:
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 за это полезное сообщение: | ||
Помидоркин (02.05.2014)
|
#3
|
||||
|
||||
Спасибо NumLock
Хотя вышло несколько иначе Код:
procedure TFrmProfile.Calc(Sender: TObject); begin LblResult.Caption:= FloatToStrF(CmbMetters.Value,ffFixed,8,2); end; Код:
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; |