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

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

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

Динамическое создание формы [D6, Win2k]

Брат © (2004-11-16 13:01:00)
Создаю форму с пятью элементами 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. Подскажите пожалуйста в чем моя ошибка? Заранее спасибо

Amoeba (2004-11-16 14:01:00) [1]

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

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

Плохиш (2004-11-16 14:00:00) [2]

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

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

Ega23 (2004-11-16 13:59:00) [3]
ничего подобного, у меня как был размер экзешника 1,5 Мб - так и остался

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

Брат (2004-11-16 13:57:00) [4]

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

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

Плохиш (2004-11-16 13:47:00) [5]

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

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

Gloomer (2004-11-16 13:41:00) [6]
а заархивить ASPack ???

Amoeba (2004-11-16 13:34:00) [7]

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

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

Брат (2004-11-16 13:33:00) [8]

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

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

Amoeba (2004-11-16 13:11:00) [9]
А можно вопрос? Нафига нужно создавать эту форму в RunTime? Нафига вся эта ручная работа? Создавай ее обычным образом и в свойствах проекта удали ее из списва AutoCreate.

Брат (2004-11-16 13:07:00) [10]
Спасибо брат :)

Брат-2 (2004-11-16 13:04:00) [11]
lbl.Parent := frmWait;

Наверх

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