1 / 1 / 0
Регистрация: 30.11.2013
Сообщений: 53
1

Закрытие заставки после окончания таймера

16.03.2014, 21:21. Показов 2291. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Надо чтобы после заставки появилось главное меню
вот код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
unit Unit7;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;
 
type
  TForm7 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormHide(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form7: TForm7;
 
implementation
 
 
{$R *.dfm}
 
procedure TForm7.FormHide(Sender: TObject);
begin
repeat
application.ProcessMessages;
until form7.CloseQuery;
end;
 
procedure TForm7.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
timer1.Enabled:=false;
canclose:=true;
 
end;
 
procedure TForm7.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
end;
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2014, 21:21
Ответы с готовыми решениями:

После окончания таймера на 1 час начинается таймер на 24 часа
if(!empty($_POST)) { $time = 60; $hour_work = $_POST * $time; $time_work = time() +...

Закрытие программ-заставки по клику
Помогите! делаю програму типа заставки, которая находиться повер всех окон, никак немогу понять как...

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

Закрытие программы по срабатыванию таймера
Есть программа с 1 формой. Можно ли сделать во 2 форме таймер, для которого значение бралось бы с...

4
139 / 137 / 66
Регистрация: 15.05.2012
Сообщений: 515
16.03.2014, 21:27 2
Не понял, что вы хотели, но возможно вас интересует Splash заставки.
Гугл предоставляет много ссылок
0
1 / 1 / 0
Регистрация: 30.11.2013
Сообщений: 53
16.03.2014, 21:39  [ТС] 3
У меня есть заставка.
Мне надо чтобы заставка закрывалась допустим за 5 секунд,но она закрывается у меня за секунду.
В таймере стоит 5000 мл,не понимаю в чем проблема почему так быстро закрывается может быть в коде проблема?
0
Пишу на Delphi...иногда
1423 / 1278 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
16.03.2014, 21:43 4
Лучший ответ Сообщение было отмечено powerful123 как решение

Решение

Цитата Сообщение от powerful123 Посмотреть сообщение
Мне надо чтобы заставка закрывалась допустим за 5 секунд,но она закрывается у меня за секунду. В таймере стоит 5000
вместе с тем
Цитата Сообщение от powerful123 Посмотреть сообщение
Delphi
1
2
3
4
procedure TForm7.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
end;
по событию таймера происходит окончание работы таймера и все, форму закрывает что угодно, но не таймер
0
1 / 1 / 0
Регистрация: 30.11.2013
Сообщений: 53
16.03.2014, 21:52  [ТС] 5
а как сделать правильно ? так?
Delphi
1
2
3
4
5
procedure TForm7.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
form7.close;
end;
0
16.03.2014, 21:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2014, 21:52
Помогаю со студенческими работами здесь

GTA3 вылетает после заставки
Здравствуйте. Хотел поиграть в GTA 3, скачала сначала пиратку, результат после запуска и...

Загрузка ЦП 100% после заставки
Переустановил вин 7, все было хорошо. Но после простоя компьютера появляется черный экран...

После установки драйвера на видео GeForse 7600 GS и перезагрузки компа, после заставки "загрузка Виндоуз" пропадает изображение
Доброго времени суток! Посоветуйте что делать. Проблема такая: переустановил Винду с.п.2. После...

Не включаеться комп после заставки материнки
Всем доброго времени суток.. Значит зайду издалекас чего все началось: Както раз запустил комп, а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru