PDA

توجه ! این یک نسخه آرشیو شده می باشد و در این حالت شما عکسی را مشاهده نمی کنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : ایجاد فرم splash



TAHA
10-01-2009, 04:52 PM
تا حالا نرم افزار هیی رو دید که قبل از اجرای برنامه و دیده شدن فرم اصلی یک فرم که نمایشگر نام برنامه و اطلاعات شرکت سازنده است نمایش داده میشود . حال میخوام بهتون یاد بدم که این کار رو چطوری بکنید :
مرحله اول : یک فرم به برنامه خودتون اضافه کنید . من نام اونو splash میگذارم و هر چیزی که لازم دارید تا اول دیده بشه روی اون بگذارید.
مرحله دوم : کلید F12+ctrl رو بزنید و از پنره باز شده progect1 را انتخاب کنید (این نام پروژه است . اگه هنگام ذخیره پروژه اونو عوض کرده باشید آن هم عوض میشود).
در یونیت باز شده این اطلاعات دیده میشود
کد:

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {splash_form};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(Tsplash_form, splash_form);
Application.Run;
end.
حال نام فرم SPLASH را از کد های بالا پاک مینیم و کد ها را به این شکی مینویسیم
کد:

begin
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
فرم SPLASH شما آماده هست !