Текущий архив: 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.44 MB
Время: 0.008 c
