Появляется картинка при запуске программы

@DeathBloody · Регистрация: 14.02.2012

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

Всем привет! Как сделать, чтобы при запуске программы, появилось сначала изображение (в течении 3 секунд), по истечению 3 секунд, оно исчезла и появилась форма...

@FIL · 28.11.2012, 12:41

Добавь форму с картинкой и таймером.
Запускай ее ShowModal по событию OnShow главной формы, а по таймеру закрывай.

@DeathBloody · 28.11.2012, 13:04 **[ТС]**

Напишите код пожалуйста, если не сложно

@droider · 28.11.2012, 13:33

Вам нужна заставка?
Создайте отдельную форму. Назовите, например, Splash ("заставка"). Выставите свойство BorderStyle в bsNone. Форма должна быть по центру экрана (св-во Position в poDesktopCenter).
Разместите на форме Image и загрузите в него картинку. Киньте на форму компонент Timer. Он будет отвечать за продолжительность показа заставки.
Форму-заставку нужно создавать самостоятельно в программе, а не автоматически. Сначала перейдите в меню Project >Options. В появившемся окне на странице Forms перенесите нужную форму в список Available Forms. Теперь заставка не будет создаваться автоматически.
Перейдите в редактор кода (Project > View Source). Измените строки. У меня они выглядят так

Delphi

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Splash}; // форма - заставка
 
{$R *.res}
 
begin
  Splash :=TSplash.Create(Application); //инициализация заставки
  Splash.Show;
  Splash.Update;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Splash.Hide;
  Splash.Free;
  Application.Run;

В моем проекте три формы и конечно же заставка должна выводится на экран до появления главной формы. Этот код это и реализует.
Теперь о задержке заставки на экране...
Значение Interval для таймера выставите 3000 мс., Enabled - true.
Для события OnTimer пропишите

Delphi

procedure TSplash.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled :=false; //отключаем таймер по окончанию времени
end;

Для определения возможности закрытия формы в событии OnFormCloseQuery

Delphi

procedure TSplash.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose :=Timer1.Enabled=false; //ждем окончания работы таймера
end;

И наконец, убираем заставку с экрана...

Delphi

procedure TSplash.FormHide(Sender: TObject);
begin
repeat
Application.ProcessMessages;
until Splash.CloseQuery;
end;
 
end.

@DeathBloody · 28.11.2012, 14:13 **[ТС]**

Спасибо, всегда мне помогаете)))

@droider · 28.11.2012, 14:20

Не за что. Успехов!

@iWrite · 18.02.2021, 18:32

Лучший! Это самый верный и корректный способ сделать заставку, не ждать пока программа все по 5 сек грузит. Я правда сначала забыл вставить в главном коде в конце это:

Delphi

1 2	Splash.Hide; Splash.Free;

Но потом понял где ошибся, СПАСИБО!!!

@droider · 18.02.2021, 18:35

iWrite, не за что..Рад, что помог

@Пытливый · 18.02.2021, 18:54

Некрофилы

@Belial_29A · 21.04.2021, 12:55

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

@mr-Crocodile · 21.04.2021, 13:36

Belial_29A, ну так очевидно всё
1) добавить пункт в настройки программы (если настроек ещё нет, то сделать настройки программы, прежде всего подумать то, где эти настройки будут храниться, для этого есть много подходящих вариантов: начиная с простого INI файла, лежащего непосредственно рядом с программой, либо хранить в директории пользователя, либо - в реестре)
2) при старте программы читать настройки и дальше просто:

Delphi

1	if Not скрыть_заставку then ПоказатьЗаставку

Сообщение от Пытливый

Некрофилы

Эт точно!

@AzAtom · 21.04.2021, 13:46

Или

Delphi

1	if показывать_заставку then ПоказатьЗаставку;

@Belial_29A · 21.04.2021, 15:08

Подумал и решил сделать так:

Delphi

program Project1;
 
uses
  Vcl.Forms, IniFiles, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
var
  Settings: TIniFile;
{$R *.res}
 
begin
  Form2 := TForm2.Create(Application);
  Settings := TIniFile.Create(ExtractFilePath(Application.ExeName)
                                                 + 'Settings.ini');
 
  if Settings.ReadBool('General', 'Hide Splash', True) = True then
  begin
    Form2.Show;
    Form2.Update;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Form2.Hide;
    Form2.Free;
    Settings.Free;
    Application.Run;
  end else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Settings.Free;
    Form2.Free;
    Application.Run;
  end;
end.

Профи, вероятнее всего, закидают тапками, но я не так давно начал заниматься делфи, следовательно многого не знаю. По крайне мере всё работает).

В программах, что писал, настройки и всё, что мне необходимо присутствует, просто решил разнообразить их сплеш скрином. Через if/then, разумеется, пробовал в первую очередь, но вываливались ошибки, поэтому запилил код в файл проекта.

Добавлено через 1 минуту
Кстати, спасибо, что откликнулись на мой вопрос!

@mr-Crocodile · 21.04.2021, 18:05

Belial_29A, я бы такой вариант предложил

Delphi

program Project1;
 
uses
  Vcl.Forms, IniFiles, SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
var
  Settings: TIniFile;
  isShow  : boolean;
{$R *.res}
 
begin
  Settings := TIniFile.Create(ExtractFilePath(Application.ExeName)
                                                 + 'Settings.ini');
 
  isShow := Settings.ReadBool('General', 'Show Splash', True);
  Settings.Free;
  
 
  if isShow then
  begin
    Form2 := TForm2.Create(Application);
    Form2.Show;
    Form2.Update;
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Form2.Hide;
    Form2.Free;
  end else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
  end;
 
  Application.Run;
 
end.

// вот не помню, как и на что влияет Application.Initialize; и Application.CreateForm() - скорее всего это можно безболезненно можно вынести из проверки условия..

@Belial_29A · 21.04.2021, 19:39

Да, так будет намного лучше и компактней. Вы правы, из проверки их можно совсем убрать, а Application.Initialize, в моем случае, вообще из проекта удалить, этот кусок кода там не нужен.

Спасибо за помощь!

@Belial_29A 0 / 0 / 0 Регистрация: 29.08.2020 Сообщений: 3
	21.04.2021, 12:55	10
	Всё, конечно, хорошо, но как добавить в софтину возможность вкл. и выкл. заставки при запуске программы? Пытался самостоятельно решить данный вопрос, но, к сожалению, ничего не вышло. Подскажите, пожалуйста, если кто в курсе. 0

Блоги программистов
Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(шестибитный асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .	Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .
Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .	Angular vs React vs Vue.js BasicMan 03.01.2025 О, друзья-разработчики и просто любопытные читатели! Сегодня мы отправимся в увлекательное путешествие по миру фронтенд-разработки, и первой остановкой станет Angular – этакий строгий немецкий. . .

Появляется картинка при запуске программы

Решение

Решение

@DeathBloody 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 168
		1
	Появляется картинка при запуске программы 28.11.2012, 12:24. Показов 14800. Ответов 14 Метки нет (Все метки) Всем привет! Как сделать, чтобы при запуске программы, появилось сначала изображение (в течении 3 секунд), по истечению 3 секунд, оно исчезла и появилась форма... 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	28.11.2012, 12:41	2
	Добавь форму с картинкой и таймером. Запускай ее ShowModal по событию OnShow главной формы, а по таймеру закрывай. 0

@DeathBloody 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 168
	28.11.2012, 13:04 [ТС]	3
	Напишите код пожалуйста, если не сложно 0

@DeathBloody 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 168
	28.11.2012, 14:13 [ТС]	5
	Спасибо, всегда мне помогаете))) 0

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,144
	28.11.2012, 14:20	6
	Сообщение было отмечено как решение Решение Не за что. Успехов! 5

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,144
	18.02.2021, 18:35	8
	iWrite, не за что..Рад, что помог 0

@Пытливый 3760 / 2264 / 705 Регистрация: 29.05.2013 Сообщений: 9,616
	18.02.2021, 18:54	9
	Некрофилы 0

@Belial_29A 0 / 0 / 0 Регистрация: 29.08.2020 Сообщений: 3
	21.04.2021, 19:39	15
	Да, так будет намного лучше и компактней. Вы правы, из проверки их можно совсем убрать, а Application.Initialize, в моем случае, вообще из проекта удалить, этот кусок кода там не нужен. Спасибо за помощь! 0