| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите почему происходит следующее [D6, WinXP]

R.O.O.T ©   (2004-12-30 16:51:00) 

При запуске приложения у меня появляется типа заставки
вот код

Application.Initialize;
 Tit:=Ttit.Create(Application);
 Tit.Show;
 Application.CreateForm(TSaleForm, SaleForm);
 tit.LMDProgressFill1.Position:=5;
 Application.CreateForm(TConstr, Constr);
 tit.LMDProgressFill1.Position:=10;
 .
 .
 .
tit.LMDProgressFill1.Position:=95;
 IniFile := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Control.conf');
 SkinFile     :=IniFile.ReadString('STARTVALUE','SkinFile','');
 IniFile.Free;
 if SkinFile<>'' then
  SkinAccept(SkinFile);
  Tit.UpDate;
 tit.LMDProgressFill1.Position:=100;
 tit.Free;
 Application.Run;

tit ето форма заставик почему она незакрывается после тго как приложение запустится а висит неактивно за основной формой

почему после 50% инициилазиции я немогу на ней прорисовывать иили прописывать что либо

---

Arm79   (2004-12-30 17:52:00) [1]

tit.LMDProgressFill1.Position:=5;
Tit.Update;

tit.LMDProgressFill1.Position:=10;
Tit.Update;

...

---

Arm79   (2004-12-30 17:50:00) [2]

Application.Initialize;
Tit:=Ttit.Create(Application);
Tit.Show;
Tit.Update;
Application.CreateForm(TSaleForm, SaleForm);
tit.LMDProgressFill1.Position:=5;

Tit.UpDate;
tit.LMDProgressFill1.Position:=100;
tit.Hide;
tit.Free;
Application.Run;

---

Digitman   (2004-12-30 16:56:00) [3]

потому что С Новым Годом !)
и доброго здоровья тебе и твоим близким !)

не парься, в Н.Г. разберешься .. а не разберешься - нахлобучим по самое нехочу, как положено ..)

---

Наверх