1. Reklam


    1. bestsro
      joysro
      anafor
      deep
      eos
      anafor
      trensro

Açılış ekranı (Splash Form) oluşturma


  1. Redefine

    Redefine olduser

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.040
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36

    [​IMG]

    lll :idea: lll Açılış ekranı (Splash Form) oluşturma lll :idea: lll

    Açılış ekranı için bir form oluşturun. Formun BorderStyle özelliğini bsNone yapın. Project Options kısmından formu Auto-Create değil, Avaible forms yapın. Daha sonra Project->View Source ile proje dosyanıza(.dpr uzantılı) aşağıdaki kodları ekleyin.

    Kod:
    begin
     SplashForm := TSplashScreen.Create(Application); //bu 3 satır eklendi. Formu oluştur
     SplashForm.Show;                                 //formu göster
     SplashForm.Update;                               //formu yenile
    
     Application.Initialize;
     Application.Title := 'Application Title';
     Application.CreateForm(TForm1, Form1);
    
     SplashForm.Hide;                                 //bu 2 satır eklendi. Formu gizle
     SplashForm.Free;                                 //Formu yok et
    
     Application.Run;
    end.