Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как вставить в форму TLabel и TEditMask рограммно? [D5, Win2k]

oleg_er © (2002-10-03 15:07:00)
делаю так

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;

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

oleg_er (2002-10-03 15:14:00) [1]
спасибо

Ferrarium (2002-10-03 15:12:00) [2]
Попробуй сам указать свойство Parent

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

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

Best Before 2024 (2002-10-03 15:11:00) [3]
Начнем с...
begin
label_:=TLabel.Create(fm_w_params);
param_:=TMaskEdit.Create(fm_w_params);
label_.Parent := fm_w_params;
param_.Parent := fm_w_params;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »