Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.03;
Скачать: CL | DM;

Вниз

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

 
Виталик   (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]

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


 
Weare ©   (2003-02-20 18:09) [3]

Я делал так: создавал еще одну форму, наносил на нее всякие сообщеня и вот примерчик кода:

procedure TForm1.FormShow(Sender: TObject);
var k: integer;
begin

Wait.Show; //это она самая - новая форма
Wait.Refresh;

...// например открытие таблиц

Wait.Close;

end;



Страницы: 1 вся ветка

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-5834
vajo
2003-02-13 07:23
2003.03.03
Диагностика сети Microsoft


1-5605
R
2003-02-19 09:49
2003.03.03
Проверка того что форма запущена


3-5384
Tornado
2003-02-12 07:55
2003.03.03
Мастера, подскажите приемлимое решение, плиз


1-5539
REA
2003-02-21 13:28
2003.03.03
round - VC vs Delphi


8-5659
Nox
2002-11-19 14:40
2003.03.03
Jpeg в *.Res