Bir Tanımlayıcı ekran (Splash Screen) kullanmak

Tanımlayıcı ekran nedir?

Bir tanımlayıcı ekran, program ilk olarak başladığında gösterilen program gerçekten sizin görmediğiniz bir şeyler yaparken yapılanlar hakkında bilgi veren bir formdur. Bir veritabanına bağlanmak pek çok formu yaratmak vb uzun süre alan işler hakkında bilgi verebilir. Çoğu basit tanımlayıcı ekran ekranın tam ortasında bir resim gösteren program yüklenirken gösterilip program yüklendikten sonra kaybolan bir form olarak tanımlanabilir.

Neden Tanımlayıcı Ekran kullanırız?

bir tanımlayıcı ekran programınıza profesyonel bir imaj çizer. Shareware programlar içinse, kayıt ettirmeyi hatırlatmak için iyi bir sahadır.

Nasıl Tanımlayıcı Ekran Yapılır?

ilk Bölümde basit bir form üreteceğiz. Yeni bir form açın. Formun ismini SplashFrm Olarak değiştirin. Position özelliğini poScreenCenter, BorderStyle özelliğini bsNone olarak değiştirin. Bir TImage öğesi yerleştirin Align özelliğini alClient olarak belirtini programınızda hangi resmi kullanmak istiyorsanız o resmi içine yükleyin.

İkinci Bölümde Programımızın Dpr dosyasını açacağız Bunun için Project menüsünün altındaki Show Source komutunu çalıştırın. DPR dosyasında bulunan şu satırı silmelisiniz: 

Application.CreateForm(TSplashV,SplashV)

Bu satırı sildikten sonra Begin satırının hemen altına Aşağıdaki satırları girin:

//Tanımlayıcı ekranı yarat

SplashFrm := TsplashFrm.Create(Application);
//Tanımlayıcı Ekranı Göster
SplashFrm.show;
//Görünür durumda olan tüm öğeleri güncelle
SplashFrm.update;

Son olarak Tanımlayıcı ekranı program yüklendikten sonra ortadan kaldırmak için   Application.Run  Satırından hemen önce aşağıdaki satırları girin:

//Kullanıcıdan Tanımlayıcı ekranı gizle
SplashFrm.hide;
//Sistem kaynaklarını iade et
SplashFrm.free; 

Eğer Uygulama çalışırken kullanıcıyı haberdar etmek istiyorsanız mesela bir veritabanına bağlantı anında kullanıca bir mesaj vermek istiyorsanız tanımlayıcı ekranınıza bir Label ekleyin ve aşağıdaki kodu girin: 

//Etiketin Caption özelliğini değiştir
SplashFrm.Label1.caption:=' Veri Tabanına Bağlanıyor';
//Görünür durumda olan tüm öğeleri güncelle
SplashFrm.update; 

SplashFrm formunun ardından eğer isterseniz bir Şifre kutusu yada programın kullanım süresini aştığını belirten bir   Uyarıda yerleştirebilirsiniz. Bunları ShowModal ile gösterirseniz o kullanıcını iletişim kutusu ile işi bitmeden programın yüklenmesine devam edilmez. Aşağıdaki örnek size bu konu hakkında bir fikir verebilir.

Demo.dpr

begin
  SplashFrm := TSplashFrm.Create(Application);
  SplashFrm.show;
  SplashFrm.update;
  Application.Initialize;
  Application.Title := 'Demo 1.0';
  SplashFrm.hide;
  If   SplashFrm.DemoTimeOut then

begin

Application.MessageBox('(30) Günlük Demoyu Kullanma Sürenizi Doldurdunuz.'+#13+#10+'Lütfen KahveBahane Sitesi Manageri ile irtibat kurunuz'+#13+#10+'Program Şimdi sonlandırılacak','Demo Süresi Dolmuştur',48+0);

end

else

begin

Application.CreateForm(TDemo, Demo);

end;

SplashFrm.free;

Application.Run;

end.

SplashFrm.pas 

function TSplashFrm.DemoTimeOut: integer;

var

installdate:longint;

Myregistry:Tregistry;

begin

MyRegistry := TRegistry.Create;

MyRegistry.OpenKey('\Software\Kahvebahane\yazipro120\Settings', True);

installdate := Strtoint(datetostr(MyRegistry.Readdate('install')));

if (strtoint(datetostr(now))-installdate)>30 then

DemoTimeout:=TRUE

else

DemoTimeout:=FALSE;

MyRegistry.Free;

end;

Program kullanma süresini Tamamladığında ana Formu yüklemeden bir Mesaj kutusu getirip programı terk eder. Bu pek çok programınız için temel teşkil edebilecek bir uygulamadır. Böylece Programınızın kullanma süresi dolduğunda programa girmemelerini sağlayabilirsiniz.

Unutmayın! Tanımlayıcı ekran çoğu zaman programınızın aynasıdır