Když
- máme takto náš formulář připraven k použití, přistoupíme k vlastní úpravě kódu. Otevřeme si projektový soubor naší aplikace (přípona .dpr) a upravíme jej nějak takto:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Logo in 'Logo.pas' {Logo};
{$R *.RES}
begin
Logo := TLogo.Create(nil);
Logo.Show;
{sem přijde váš kód}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Logo.Hide;
Logo.Release;
Application.Run;
end.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Logo in 'Logo.pas' {Logo};
{$R *.RES}
begin
Logo := TLogo.Create(nil);
Logo.Show;
{sem přijde váš kód}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Logo.Hide;
Logo.Release;
Application.Run;
end.
<< Home