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

Помогите почему происходит следующее   Найти похожие ветки 

← →
R.O.O.T ©   (2004-12-30 16:51) [0]

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

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% инициилазиции я немогу на ней прорисовывать иили прописывать что либо

---

← →
Digitman ©   (2004-12-30 16:56) [1]

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

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

---

← →
Arm79 ©   (2004-12-30 17:50) [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;

---

← →
Arm79 ©   (2004-12-30 17:52) [3]

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

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

...

---

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

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



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