Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Вниз

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

 
Виталик   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.038 c
14-5802
Feofan
2003-02-10 11:52
2003.03.03
Опять о защите ПО


4-5922
Diamond Cat
2003-01-15 02:53
2003.03.03
Shell_NotifyIcon


14-5847
xoxol
2003-02-11 06:27
2003.03.03
FORMAT C:


14-5771
Vint
2003-02-13 09:14
2003.03.03
UNREAL II


7-5875
dimkaa
2003-01-03 20:07
2003.03.03
Одновременная работа двух програм с СОМ портом?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский