Ornek kodlarımızda 5 adet form olduğunu duşunuyoruz bunlardan 3 tanesi işlem yaptığınız formlar 1 tanesi AcilisFormu ismini verdiğimiz form diğeri ise ana formumuz.AcilisFormu formunuzun uzerine bir guage alın aşağıdaki kodlarıda AcilisFormunuzun create olayına ekleyin.

Kod:
procedure TAcilisFormu.FormCreate(Sender: TObject); var region: HRgn; begin region:=CreateRoundRectRgn(25, 25, 484, 312, 100, 100); SetWindowRgn(handle, region, true); end;
Kod:
procedure SetGauge(FormIndex: integer); procedure TAcilisFormu.SetGauge(FormIndex: integer); var FVal: Real; formsayi:integer; begin formnum:5; Fval := Gauge1.Max * (FormIndex/FORMNUM); Gauge1.Pos := Round(Fval); end;
yukarıdaki blokta eklemiş olduğunuz kod acılısformunu koşelerinden kesecektir.Acılış formu dizaynını yaptıktan sonrta aşağıdaki kod bloğunda ise formlar tek tek create edilirken guage acılış formunda yavaş yavaş ilerleyecek ve formlarınız create edildikten sonra ana formunuz acılacaktır.Oluşturmuş olduğumuz procedure sayesindede guaenin max değerini projemizdeki form sayısına gore belirliyoruz.



Kod:
var AcilisFormu: TAcilisFormu; begin Screen.Cursor := crHourGlass; ShareWare := False; AcilisFormu := TAcilisFormu.Create(Application); AcilisFormu.Show; AcilisFormu.Update; Application.Title := 'Proje Adı'; Application.HelpFile := 'Help Dosya Adı'; AcilisFormu.SetGauge(1); Application.CreateForm(TMainFrm, MainFrm); AcilisFormu.SetGauge(2); Application.CreateForm(TForm1, Form1); AcilisFormu.SetGauge(3); Application.CreateForm(TForm2, Form2); AcilisFormu.SetGauge(4); Application.CreateForm(TForm3, form3); AcilisFormu.SetGauge(5); Screen.Cursor := crDefault; AcilisFormu.Hide; AcilisFormu.Free; MainFrm.Show; end.


Şimdiden kolay gelsin...


__________________