Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

unitUnit1;

interface

usesUnit2, Unit3, Unit4, Unit5, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

typeTForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

procedureFormCreate(Sender: TObject);

procedureButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

varForm1: TForm1;

implementation

{$R *.DFM}

procedureTForm1.FormCreate(Sender: TObject);

begin

RegisterClass(Tform2);

RegisterClass(Tform3);

RegisterClass(Tform4);

RegisterClass(Tform5);

end;

procedureTForm1.Button1Click(Sender: TObject);

varf : Tformclass;

begin

f := tformclass(findClass(edit1.text));

withf.create(self) doshow;

end;

Своим опытом делится Nomadic:

A: Смотрите пример в X:\DELPHI\DEMOS\DB\MASTAPP\mastapp.dpr.

Удобно использовать функцию ShowSplashWindow из rxLib.

Как добавить логотип к вашему приложению

Логотип (заставка) является важной составляющей вашего приложения. Он позволяет занять время во время загрузки и сообщить пользователю дополнительные сведения о программе. Логотип сделает ваше приложение более профессиональным.

Кроме того, заставка позволяет не только отличить ваше приложение от другого, но и отличить одну версию приложения от другой.

Имеется множество типов заставок (Splash Screen). Самый распространный тип - показ логотипа во время загрузки приложения. Обычно такие экраны отображают имя приложения, автора, версию, авторские права и изображение или иконку, идентифицирующую приложение.

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

Надеюсь, вы оценили преимущества заставок. Давайте теперь попробуем создать простую заставку своими руками.

1. Добавьте форму в ваш проект --> File | New Form.. Комментарий: Заставка (Splash Screen) похожа на любую другую форму.

2. Измените свойство формы Name на SplashScreen

3. Измените свойство формы BorderStyle на bsNone

4. Измените свойство формы Position на poScreenCenter

5. Сделайте заставку привлекательной и функциональной путем добавления на нее необходимых компонентов и изображений. (компоненты Label, Panel, Image, Shape и Bevel)

6. Отредактируйте свойства добавленных компонентов

7. Выберите в меню Delphi IDE Options | Project

8. Уберите SplashScreen-форму из списка Auto-create-списка (списка автоматически создаваемых форм)

Комментарий: Вы динамически создаете экземпляр заставки

9. Добавьте модуль, содержащий TSplashScreen, в список используемых модулей главной формы вашего приложения. Пример:

unitUnit1;

interface

usesSysUtils, WinTypes, WinProcs, Messages, Classes,Graphics, Controls, Forms, Dialogs, StdCtrls, unit2; <���– поместите сюда

Комментарий: В нашем примере TSplashScreen объявлен в Unit2

10. Выберите в меню Delphi IDE View | Project Source

11. Вставьте между ключевым словом begin и перед любым Application.Create() следующий код:

SplashScreen := TSplashScreen.Create(Application);

SplashScreen.Show;

SplashScreen.Refresh;

12. Измените поведение главной формы приложения при наступлении события OnShow. Добавьте следующий код:

SplashScreen.Free;

Комментарий: Реализация заставки с линейкой прогресса ничуть не сложнее, чем приведенный выше пример. Необходимо всего лишь вовремя выводить ее на экран: перед тем, как процесс начнется, и убирать только после того, как он закончится. Различие заключается в осуществлении связи (реализации механизма) между процессом и заставкой для правильного обновления линейки прогресса.

13. Запустите приложение. В приведенном выше примере, если скорость вашего компьютера значительна, то заставки вы можете и не увидеть. Следующий код демонстрирует технику создания заставки для вашего приложения — только будьте осмотрительней при его использовании.

Добавьте следующий код на этапе #11:

forx:= 1 to10000000 do begin

x:=x;

end;

{PROJECT1.DPR}

programProject1;