Показ логотипа при запуске приложения 3

Delphi , Программа и Интерфейс , Приложение своё

program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  ULogo in 'ULogo.pas' {LogoForm};

{$R *.RES}

begin
  Application.Initialize; {до этого момента никаких изменений}

  with TLogoForm.Create(Application) do
  try
    Show;
    Update;
    Application.CreateForm(TForm1, Form1);
    {GProgress.AddProgress(1); - здесь можно двигать прогресс, если TGauge
    или TProgressBar лежат на TLogoForm'е}

    {если есть еще формы, то Application.CreateForm(TForm2, Form2); и т.д.}
  finally
    Free;
  end;

  Application.Run;
end.

Программирование на языке Delphi!

Вот простой консольный приложение в Delphi, которое создает форму и отображает логотип при запуске приложения.

Рассмотрим, что каждый раздел делает:

1. uses: Это директива, которая указывает компилятору, какие модули включать в программу. В этом случае включены:
   • Forms: Стандартный модуль для работы с формами (GUI-окнами).
   • Unit1 ('Unit1.pas'{Form1}): Кастомный модуль, содержащий форму под именем Form1.
   • ULogo ('ULogo.pas'{LogoForm}): Еще один кастомный модуль, содержащий форму под именем LogoForm. Это, вероятно, форма, которая отображает логотип.
2. {$R *.RES}: Директива, указывающая компилятору включить ресурсы (например, иконки, изображения), определенные в файле .RES.
3. begin: Начало программного кода.

Теперь давайте рассмотрим основную логику:

1. Application.Initialize;: Инициализирует внутреннее состояние приложения.
2. with TLogoForm.Create(Application) do try ... finally Free; end;: Создает экземпляр TLogoForm, отображает его, обновляет его макет (например, позиционирует элементы), а затем запускает форму.
3. Show;: Отображает форму на экране.
4. Update;: Обновляет макет формы (если это необходимо).
5. Application.CreateForm(TForm1, Form1);: Создает экземпляр другой формы (TForm1) и присваивает ее переменной Form1. Это, вероятно, основная форма, которая отображает другие контент.

Блок finally обеспечивает освобождение (LogoForm) при выходе из программы, независимо от того, происходит ли исключение или нет.

Наконец, Application.Run; запускает цикл событий приложения, который ожидает ввода пользователя и обрабатывает события до тех пор, пока приложение не будет закрыто.

Статья описывает код программы на языке Pascal, который создает приложение с логотипом на запуске, а затем initializes основные формы и начинает выполнение приложения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложение своё ::