Программное приглашение

@yuppi · Регистрация: 22.01.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер. У меня в задании сказано "Данные вводятся с клавиатуры после программного приглашения...", а также "Процедура запускается после программного приглашения..." Как это понять? Перед запуском основной программы должно появляться некое сообщение, уведомляющее пользователя о чем-либо? Я правильно поняла? Если да, то как это осуществить? Подскажите, пожалуйста.

@HyperZen · 29.06.2012, 05:49

Копипаст с какого-то сайта:

Главная цель создания заставки - показать пользователю какую-либо информацию в процессе загрузки большой программы, чтобы пользователь не гадал, грузится программа, или не грузится...

1) Создаем форму-заставку. Тут простор для фантазии безграничен. Единственное, что правильно написано в статье - нужно установить Border Style вашей формы в bsNone, и Position в poScreenCenter. Visible в False устанавливать НЕ НАДО ! Еще необходимо убрать заставку из списка авто-создаваемых (Auto-Create) форм, переместив ее в список доступных (Available) форм. Это можно сделать через диалог Project->Options на закладке Forms.

2) Допустим, мы создали форму-заставку согласно пункту 1, и назвали ее frmSplash. Наша задача теперь - запустить заставку в начале загрузки, и убрать ее в конце загрузки, до запуска самого кода приложения. Для этого открываем файл проекта нашего приложения (через меню Priject->ViewSource).
В секцию Uses добавляем модули Windows и SysUtils. В конце файла-проекта видим примерно такие строчки :

Delphi

begin
 Application.Initialize;
 Application.CreateForm(TMainForm, MainForm);
 Application.Run;
end.

Application.Initialize выполняет инициализацию объекта-приложения.
Application.CreateForm создает главную форму и выполняет ее событие OnCreate, в котором обычно производятся всякие предустановки, загрузка данных и т.д.
Application.Run начинает выполнять код приложения...
Мы создаем заставку после инициализации объекта Application, и убираем ее перед запуском основного кода :

Delphi

begin
 Application.Initialize;
 
 frmSplash := TfrmSplash.Create(Application);
 frmSplash.Show;
 frmSplash.Update;
 
 Application.CreateForm(TMainForm, MainForm);
 
 Sleep(500) ;
 frmSplash.Hide ;
 FreeAndNil(frmSplash) ;
 
 Application.Run;
end.

3). Если на форме-заставке положить объект TLabel, то его свойство Caption можно изменять из обработчика OnCreate главной формы примерно так :

Delphi

1 2	frmSplash.Label1.Caption := 'Читаю конфигурацию...' ; frmSplash.Update;

Пример формы, создающей заставку, можно найти в стандартных примерах к Delphi 7, в папке Demos\Db\MastApp (файлы mastapp.dpr и Splash.pas). Там код, убирающий заставку, несколько упрощен по сравнению с моим, но основная идея та же... Если уж автор статьи не потрудился изучить стандартные примеры Delphi, то Бог ему судья...

P.S. Даже последнее предложение этой статьи - чушь... Delphi давно уже не создает приложения объемом меньше 300 килобайт... какие там 100-150 ??? Впрочем, для маленьких приложений, у которых процесс загрузки занимает менее секунды, заставки действитейльно излишни

@yuppi 12 / 4 / 1 Регистрация: 22.01.2012 Сообщений: 293
		1
	Программное приглашение 29.06.2012, 02:24. Показов 2857. Ответов 1 Метки нет (Все метки) Добрый вечер. У меня в задании сказано "Данные вводятся с клавиатуры после программного приглашения...", а также "Процедура запускается после программного приглашения..." Как это понять? Перед запуском основной программы должно появляться некое сообщение, уведомляющее пользователя о чем-либо? Я правильно поняла? Если да, то как это осуществить? Подскажите, пожалуйста. 0

	29.06.2012, 05:49

Программное приглашение

Решение