Uygulamamın açılışındaki siyah ekran Hakkında

[Fesih ARSLAN]

(19-01-2018, Saat: 13:09)webprog Adlı Kullanıcıdan Alıntı: Teşekkür ederim Fesih bey deneyimlerinizi paylaştığınız için.

Söylediğiniz kodlar dpr dosyasında mevcut hocam. Diğer dosyada düzenleme yaptım ama kaydedince silinmiş sitede.

  
Application.Initialize;
  Application.CreateForm(TForm6, Form6);
  Application.Run;

Dediğiniz gibi tıklandığında oluşsun istersek aşağıdaki kod örnek olarak yeterli midir? Bu kodla birlikte form3.show da kullanmak lazım mı?

 Application.Initialize;
 Application.CreateForm(TForm3, Form3);
 Application.Run;

Rica ederim,
Initialize ve Run direktifleri her uygulama için bir defa kullanılır. Initialize, uygulamayı çalıştıracak şekilde ihtiyaç olan tüm referansların hazır hale getirilmesini, Run ise artık her şeyin hazır olduğunu uygulamanın çalışabilir olduğunu bildirir.
Bunlar zaten dpr dosyasında mevcut, diğer kod satırlarında kullanmanız, anlamsız olacaktır.
Formu dinamik oluşturmak için;
1- Sonradan oluşturacağınız tüm formları Project > Options > Forms penceresinde Available forms alanına taşıyın veya dpr dosyasından form oluşumu ile ilgili satırları silin.
2- Ana formunuzda Uses kısmına oluşturacağınız form Unit'lerinin isimlerini ekleyin (Alt + F11).
3- Daha sonra herhangi bir kod satırında formu aşağıdaki gibi oluşturun.

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not Assigned(Form2) then { bir defa oluşturulacaktır. }
   Form2 := TForm2.Create(Nil);

 if Assigned(Form2) then
 begin
   Form2.Show;
   { Form2 oluşmuşsa diğer kodları gerçekleştir. }
 end;
end;

4- Oluşturduğunuz formu yok etmeyi de unutmayın

procedure TForm1.FormDestroy(Sender: TObject);
begin
 if Assigned(Form2) then
   Form2.Free;
end;