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...


__________________