Mega Code Archive
Splashform
<![CDATA[
Project Source
u açın. Eğer bir çok form kullanıyorsanız projenizde
Application.CreateForm(TForm2, Form2); satırından sonra
diğer formları da aynen form2 gibi yaratın. Ve bir alt
satırına ekleyin:
Application.CreateForm(Tform3, Form3); /gibi.
name:form1 /SplashScreen olarak kullanılacak form
name:form2 /Ana formumuz.
View|Project Source (View menüsünden Project Source seçeneğini seçerek açabilirsiniz.)
Daha sonra aşağıdaki kodu programınıza ekleyin.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
form1:=TForm1.Create(application);
form1.show;
form1.update;
Application.CreateForm(TForm2, Form2);
form1.hide;
form1.Free;
Application.Run;
end.
]]>