Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Вниз
Splash-screen Найти похожие ветки
← →
Big Daddy (2002-06-15 11:21) [0]Нужно сделать эаставку перед запуском проги как в Делфи. Только главная ворма у меня Form1, а всего около 10 есть ещё других форм. Как всавить и куда вставить код в dpr-файл?
← →
Song (2002-06-15 11:36) [1]Создайте форму, нарисуйте на ней, что Вам нужно, уберите из списка автоматически создаваемых и вставьте её показ в dpr после Application.Initilize
Перед Application.Run её можно разрушить.
← →
Big Daddy (2002-06-15 11:46) [2]У меня ворм 10 создаються при загрузке, т.к. надо. А вот то, что вы говорите, форму поставить первой, это та которая с рисунком? И как потом, как всё подгрузиться, скрыть её?
← →
Song (2002-06-15 11:51) [3]Не надо её скрывать, сделайте просто Free:
************************* dpr *********************
With Application Do
Begin
Initilize;
With TForm11.Create(nil) // Splash форма
try
Show;
Update; // или Repaint
// здесь пиуттся автоматичски создаваемые формы
finally
Free;
end;
Run;
End;
************************* dpr **********************
← →
Anatoly Podgoretsky (2002-06-15 12:07) [4]MsatApp
← →
Big Daddy (2002-06-15 15:51) [5]Song, спасибо, разобрался, всё работает. Теперь у меня такая проблема:
При создании Form1 и у меня в трэй помещается значок. И при запуске проги вылазиет splash-screen
и в трэе уже сидит значок. Так вот, пока не догрузилась прога (т.е. все остальные формы),
если кликнуть на этот значок в трэе, то выскакивают самые разнообразные ошибки.
Я поменял так, поставил Form1 в dpr-файле создаваться последней. Тогда всё нормально, но
теперь невозможно закрыть программу. Что делать?
← →
Big Daddy (2002-06-15 16:19) [6]Если можно, дайте пример
← →
SPeller (2002-06-15 17:26) [7]Закрывайте ту, которая создавалась первой через Application.CreateForm. Первая такая форма становится главной в приложении, и если закрыть её, то закроется всё приложение.
← →
Song (2002-06-16 11:03) [8]Эко интересно как у Вас прога может реагировать на реакцию значка в проге пока не произошло Application.Run ?
Это невозможно...
← →
777 (2002-06-16 11:15) [9]2 Big Daddy ©:
..\Delphi\Demos\Db\MastApp\MastApp.dpr
begin
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
//...
SplashForm.Hide;
SplashForm.Free;
Application.Run;
← →
RAK (2002-06-16 11:25) [10]APPLICATION.INITIALIZE():
← →
GREENPOWERI (2002-06-16 11:27) [11]RAK NI GANI!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.27;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c
