Splash form hatası

[CiTiZEN]

Slmlar arkadaşlar yaklaşık 4 saattir splash form yaratmaya çalışırom ancak arama ile buldugum kodları kullandım ve sürekli bır hata ile karşılaşıyorum (Undeclared indefinder) hatası ve TSpalshform da da hata veriyor dpr dosyasına eklememe ragmen bo hatayı sürekli alıyorum bu olayı yapmak için uses e bi unit felan mı eklemeliyim buyrun kullandıgım kod

Kod: Tümünü seç

program Project1;

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

{$R *.res}


begin
    SplFrm := TSplFrm.Create(Application);

    try
        SplFrm.Show;
        SplFrm.Update;
            SplFrm.ProgressBar1.StepBy(10);
        Application.Initialize;
            SplFrm.ProgressBar1.StepBy(10);
        Application.CreateForm(TAnaProgFrm, AnaProgFrm);
  Application.CreateForm(TCariHesapAcilisIslemFrm, CariHesapAcilisIslemFrm);
  SplFrm.ProgressBar1.StepBy(10);
        Application.CreateForm(TCHTFrm, CHTFrm);
            SplFrm.ProgressBar1.StepBy(70);
        Finally
            SplFrm.Free;
        end;
        Application.Run;
end.
end.

başka kodlar kullanmama ragmen hata dewam ediyor Yardımcı olabilirseniz sewinirim iyi çalışmalar.

[KoPilot]

Formunu declare et, yani diğer formlara tanıt.

[CiTiZEN]

Hocam O nası yapılcak splah olarak felan mı tanıtcam napcamı şaşırdım kafam karıltı anlayamıyorumda

[CiTiZEN]

Başka Yorum Yomu wazmı geçsem aceba bu işden

[hi_selamlar]

F_Splash:=TF_Splash.create(application);
F_Splash.show;
F_Splash.update;

Application.Initialize;
Application.Title := 'Deneme Program';
Application.CreateForm(TFMenu, FMenu);

F_Splash.Hide;
F_Splash.close;
F_Splash.free;

Application.Run;


bide bunu dene...

[CiTiZEN]

Hocam Saolun ilginiz ve yardımlarınız için ama bu da olmadı kodları yazıyım bi eksik mi var bakarmısınız lütfen

Kod: Tümünü seç

program Project1;

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

{$R *.res}

begin
F_Splash:=TF_Splash.create(application);
F_Splash.show;
F_Splash.update;

Application.Initialize;
Application.Title := 'Deneme Program';
Application.CreateForm(TFMenu, FMenu);

F_Splash.Hide;
F_Splash.close;
F_Splash.free;

Application.Run;
end.

hata kodu: undeclared indefinder F_Splash

[unicorn64]

oradaki F_Splash splash formun adı. hatada da F_Splash tanımsız diyor.

[CiTiZEN]

Yok hocam tanıtsamda olmuyo kafayı yıecem sizde bi kod parçası war mı ekleyebileceğiniz tam bi kod parçası saolun şimdiden

[Hakkan]

uses kismindan sonra:

Kod: Tümünü seç

var
  T_Splash : TF_Splash;

TF_Splash, splash form icindeki class tanimi olacak.
T_Splash ise ana kodda kullanacagin degiskenin adi...


KOlay gelsin...

[CiTiZEN]

yok hocam aynı hatayı werdı defalarca yaptım ama yakında sıyırmış bi programcı olcak sanırım saolun yardımlarınız için

[Hakkan]

Bir de şu kodu dene bakalım...

Kod: Tümünü seç

Application.Initialize;
  Form1 := TForm1.Create(Application);
  Form1.Show;
  //Application.CreateForm(TForm1, Form1);
  Application.Run;  

Oluşturulan pencerelerin ve mesaj sisteminin(pencere mesajları, yanlış anlaşılmasın) çalışması için Application.Run komutu ile ana mesaj döngüsüne girilmesi lazım. Form.show metodunun çalışması Application.Run işletildikten sonra olur. Bu durumda örnek koddaki formu splash form olarak ayarlarsın, splash form içinden de hazır olduğunda Application.CreateForm(TForm1, Form1); komutuyla ana formunu oluşturursun...

Daha sonra Anaform içinden splash.free çalıştırılarak splash form yok edilir...

[CiTiZEN]

Biraz uğraşayım bakalım bişiler elde edebilcem mi hocam gerçekten ellerınıze sağlık saolun

[mussimsek]

"SplForm" isimli bir formun var mı? Kod'da SplForm isimli form create edilip, gösteriliyor.

Kolay gelsin.

[hi_selamlar]

acaba senin TSplash formun varmı ?

yani formu oluşturdun mu sen.

[sarp_halit]

S.A arakadaşlar. İlk olarak Project menüsünden Options ile proje ayarları penceresini aç. Splah edeceğin formu auto created listesinden available forms un içine at ve sonra

Kod: Tümünü seç

Application.Initialize;
  frm_karsilama:=Tfrm_karsilama.Create(Application);
  frm_karsilama.Show;
  frm_karsilama.Update;
  frm_karsilama.Label3.Caption:='Formlar oluşturuluyor';
  Application.Title := 'Sarp Kapalı Devre Sistemleri';
  Application.CreateForm(TForm1, Form1);
  frm_karsilama.label3.caption:='Başlıyor ...';
  frm_karsilama.Hide;
  frm_karsilama.Free;
  Application.Run;
 

kodlarını incele. Ben kullanıyorum ve sorunsuz çalışıyor. Kolay gelsin