Как создать заставку для своего приложения Delphi7
Смотри, Открываешь делфи, создаешь новую форму, которая называется Form2 ставишь у нее "BorderStyle” в "bsNone” затем кидаешь на эту форму таймер, задаешь интервал(Через который будет закрыта заставка и открыта основная форма) а в событии OnTime пишешь:
Timer1.Enabled := false;
Затем жмешь CTRL+F12 в появившемся окне щелкаешь 2 раза по Project1 и в появившемся окне заменяешь все вот на это:
program Project1;
uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin Application.Initialize; Form2 := TForm2.Create(Application); Form2.Show; Form2.Update; while Form2.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm(TForm1, Form1); Form2.Hide; Form2.Free; Application.Run; end.
Все)) Вууаля
Ну а потом на первую форму можно кинуть какую нибудь крутую картинку и кучу надписей, это все лишь для красоты и для пиара.
