splash للبرنامج

السلام عليكم

أخي بلا التايمر.................

او استخدم تعليمة Sleep(1000);

اخوكم

وعليكم السلام

المشكلة أنو أنا ساويت هذا الشى بس عما بتختفي بسرعة خيالية جدا!!

أخوكم

حسنا أخي ..

هذة طريقة نظامية مئة بالمئة ن أجل Splash Form .

وأنا أستخدمها في جميع برامجي (( مجربة ومضمونة )) ..

إذا فرضنا إسم الفورم frmSplash

فستكون وحدة المشروع الأساسية بالشكل :

begin
  Application.Initialize;


  SplashAbout:=TfrmSplash.Create(application);
  try
  SplashAbout.MakeSplash; 
  Sleep(1000);   // In Unit : "SysUtils"

    Application.CreateForm(TfMain, fMain);

  finally
    SplashAbout.Free;
  end;

  Application.Run;
end.

حيث التابع MakeSplash معرف في فورم ال splash كالتالي :

public
      procedure MakeSplash;
  end;
.
.
.
. 
implementation

{$R *.dfm}
 procedure TfrmSplash.MakeSplash;
begin
   Show;
  Update;
end;

end.

الله يعطيك ألف عافية على الشرح الواضح والجميل

شكرا أخوي Orwa

بس ممكن تشرحلي وين بالتحديد رايح أحط الشيفرة الأولية .............

أخوكم

إضغط الزر Vew Unit أسفل اليسار . أو إضغط الإختصار CTRL+F12 .

سيظهر لك لائحة بوحدات البرنامج تختار منها وحدة البرنامج الرئيسية مثال :Project1 ..

وهنا تضيف الشفرة (تستبدلها ..)

..

شــــــــــكرا أخوي

أنا لسه ممبتدأ والواحد بيبقى يتعلم

شكرا كتير

أخوك