Окно при загрузке проги

← →
Виталик (2003-02-20 16:07) [0]

Кто подскажет, как можно без больших изменений в проге сделать такую следующее. Есть БД. При запуске, пока происходит загрузка проги вывести окно, скажем с информацией о программе.

← →
leonon © (2003-02-20 16:31) [1]

Это просто

Пусть TSplash = class(TForm) твоя заставка, у которой свойство
BorderStyle = bsNone
Даллее примерно следующее

Var
Splash : TSplash;

begin
Splash := TSplash.Create(Nil);
try
Splash.Show;
Application.Initialize;
finally
Splash.Free;
end;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.

← →
Виталик (2003-02-20 17:06) [2]

А что делать с файлом, в котором создаются все формы? На сколько я помню, там надо где-то отключить автосоздание форм?

Я делал так: создавал еще одну форму, наносил на нее всякие сообщеня и вот примерчик кода:
procedure TForm1.FormShow(Sender: TObject); var k: integer; begin Wait.Show; //это она самая - новая форма Wait.Refresh; ...// например открытие таблиц Wait.Close; end;

Окно при загрузке проги Найти похожие ветки