Скачать: CL | DM;

как вставить в форму TLabel и TEditMask рограммно?   Найти похожие ветки 

← →
oleg_er   (2002-10-03 15:07) [0]

делаю так

Function Tfm_w_params.Make_list(label_list, mask_list:TStringList):byte;
var
i:integer;
label_:TLabel;
param_:TMaskEdit;
begin
list_item.Clear;
fm_w_params.Height:=start_height;

list_item.Add(Label1);
Label1.Caption:=label_list.Strings[0];
list_item.Add(param1);
for i:=1 to label_list.Count do
begin
label_:=TLabel.Create(fm_w_params);
param_:=TMaskEdit.Create(fm_w_params);
label_.left:=label1.Left;
label_.Top:=label1.Top+label1.Height+2;
label_.Caption:=label_list.Strings[i-1];
label_.Visible:=true;
param_.Left:=param1.Left;
param_.Width:=param1.Width;
param_.Height:=param1.Height;
param_.Visible:=true;
param_.EditMask:=mask_list.Strings[i-1];
fm_w_params.Height:=fm_w_params.Height+param1.Height+2;
fm_w_params.Repaint;

list_item.Add(label_);
list_item.Add(param_);
end;
Make_list:=i;
end;

но ничего не работает

---

← →
Best Before 2024   (2002-10-03 15:11) [1]

Начнем с...
begin
label_:=TLabel.Create(fm_w_params);
param_:=TMaskEdit.Create(fm_w_params);
label_.Parent := fm_w_params;
param_.Parent := fm_w_params;

---

← →
Ferrarium ©   (2002-10-03 15:12) [2]

Попробуй сам указать свойство Parent

label_:=TLabel.Create(fm_w_params);
label_.Parent:=fm_w_params;

param_:=TMaskEdit.Create(fm_w_params);
param.Parent:=fm_w_params;

---

← →
oleg_er   (2002-10-03 15:14) [3]

спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c