تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق

[S.FATEH]

السلام عليكم

عفوا لوصولي متأخر

لقد استعملت طريقة الـ Splash الموجودة ف هذا الموضوع لكنها ناقصة

كود :

procedure TFsplash.Timer1Timer(Sender: TObject); begin sGauge1.progress:=sGauge1.progress+1; if sGauge1.progress=100 then begin FGSM.Show; [color=Red]Fsplash.hide;[/color] timer1.Enabled:=false end ; end;

لان عند ظهور الفورم الثاني و عند عمل reduire ( _ ) الفورم لا يذهب الى الاسفل و انما الى اقصى يسار
النافذة
لانه لا يعتبر الفورم الرئيسي

حاولت جعله الفورم الرئيسي

بواسطة

كود :

application.MainForm

لكن لم افلح

لذلك قمت بانشاءه

كود :

Pbar.Position:=PBar.Position+1; if Pbar.Position = 100 then begin Timer1.Enabled:=false; Form5.Destroy; Application.CreateForm(TForm1,Form1); Form1.Show; end;

و نجح الامر لكن اعتقد يوجد طرق اخرى ....بدل من استعمل

كود :

Application.CreateForm(TForm1,Form1);

سلامي