Помогите почему происходит следующее

← →
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;

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

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

...

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