Динамическое создание формы

← →
Брат (2004-11-16 13:01) [0]

Создаю форму с пятью элементами TLabel которая должна висеть на экране, пока выполняется некий процесс приложения.
Объявляю переменные:
....
var
frmWait : TForm;
lbl1,lbl2,lbl3,lbl4,lbl5 : TLabel;
....
При нажатии на кнопку выполняю такой код:

procedure TfrmMain.btnOpenTableClick(Sender: TObject);
begin

frmWait:=TForm.Create(Self);

frmWait.Caption:="Ожидайте";
frmWait.Position:=poDesktopCenter;
frmWait.BorderStyle:=bsSingle;
frmWait.BorderIcons:=[];
frmWait.Height:=165;
frmWait.Width:=278;

lbl1:=TLabel.Create(frmWait);
lbl1.Top:=8;
lbl1.Left:=136;
lbl1.Caption:="1";
lbl1.Visible:=True;
lbl2:=TLabel.Create(frmWait);
lbl2.Top:=32;
lbl2.Left:=136;
lbl2.Caption:="2";
lbl2.Visible:=True;
lbl3:=TLabel.Create(frmWait);
lbl3.Top:=56;
lbl3.Left:=136;
lbl3.Caption:="3";
lbl3.Visible:=True;
lbl4:=TLabel.Create(frmWait);
lbl4.Top:=80;
lbl4.Left:=136;
lbl4.Caption:="4";
lbl4.Visible:=True;
lbl5:=TLabel.Create(frmWait);
lbl5.Top:=104;
lbl5.Left:=136;
lbl5.Caption:="5";
lbl5.Visible:=True;

frmWait.Show;
end;

У меня появляется на экране форма с заданными свойствами, но на ней нету элементов TLabel. Подскажите пожалуйста в чем моя ошибка? Заранее спасибо

← →
Брат-2 (2004-11-16 13:04) [1]

lbl.Parent := frmWait;

← →
Брат (2004-11-16 13:07) [2]

Спасибо брат :)

← →
Amoeba © (2004-11-16 13:11) [3]

А можно вопрос? Нафига нужно создавать эту форму в RunTime? Нафига вся эта ручная работа? Создавай ее обычным образом и в свойствах проекта удали ее из списва AutoCreate.

← →
Брат (2004-11-16 13:33) [4]

> А можно вопрос? Нафига нужно создавать эту форму в RunTime?
> Нафига вся эта ручная работа? Создавай ее обычным образом
> и в свойствах проекта удали ее из списва AutoCreate.

это еще 300 лишних килобайт к экзешнику

← →
Amoeba © (2004-11-16 13:34) [5]

> Брат (16.11.04 13:33) [4]
>
> > А можно вопрос? Нафига нужно создавать эту форму в RunTime?
>
> > Нафига вся эта ручная работа? Создавай ее обычным образом
>
> > и в свойствах проекта удали ее из списва AutoCreate.
>
> это еще 300 лишних килобайт к экзешнику

Экономия на спичках.

← →
Gloomer © (2004-11-16 13:41) [6]

а заархивить ASPack ???

← →
Плохиш © (2004-11-16 13:47) [7]

> Брат (16.11.04 13:33) [4]
>
> > А можно вопрос? Нафига нужно создавать эту форму в RunTime?
> > Нафига вся эта ручная работа? Создавай ее обычным образом
> > и в свойствах проекта удали ее из списва AutoCreate.
> это еще 300 лишних килобайт к экзешнику

Чё правда?
Вы их уже подключили!

← →
Брат (2004-11-16 13:57) [8]

> Плохиш © (16.11.04 13:47) [7]
>
> > Брат (16.11.04 13:33) [4]
> >
> > > А можно вопрос? Нафига нужно создавать эту форму в RunTime?
>
> > > Нафига вся эта ручная работа? Создавай ее обычным образом
>
> > > и в свойствах проекта удали ее из списва AutoCreate.
> > это еще 300 лишних килобайт к экзешнику
>
> Чё правда?
> Вы их уже подключили!

ничего подобного, у меня как был размер экзешника 1,5 Мб - так и остался

ничего подобного, у меня как был размер экзешника 1,5 Мб - так и остался

фиолетово. Не на том экономишь...

> ничего подобного, у меня как был размер экзешника 1,5 Мб
> - так и остался

Т.е. если Вы создаёте эту форму также как и TfrmMain, то "экзешник" становится 1,8 Мб? Не смешите.

> Gloomer © (16.11.04 13:41) [6]
> а заархивить ASPack ???

Это уже не раз обсуждалось на форуме. Не имеет смысла, поскольку выгода лишь кажущаяся - всего лишь уменьшится лишь размер на диске, но зато при запуске программы в частности заметно возрастет объем занимаемой памяти (по сравнению с несжатым приложением).

Динамическое создание формы Найти похожие ветки