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

@powerful123 · Регистрация: 30.11.2013

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

Надо чтобы после заставки появилось главное меню
вот код

Delphi

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.

@wendstor · 16.03.2014, 21:27

Не понял, что вы хотели, но возможно вас интересует Splash заставки.
Гугл предоставляет много ссылок

@powerful123 · 16.03.2014, 21:39 **[ТС]**

У меня есть заставка.
Мне надо чтобы заставка закрывалась допустим за 5 секунд,но она закрывается у меня за секунду.
В таймере стоит 5000 мл,не понимаю в чем проблема почему так быстро закрывается может быть в коде проблема?

@cotseec · 16.03.2014, 21:43

Сообщение от powerful123

Мне надо чтобы заставка закрывалась допустим за 5 секунд,но она закрывается у меня за секунду. В таймере стоит 5000

вместе с тем

Сообщение от powerful123

Delphi

procedure TForm7.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
end;

по событию таймера происходит окончание работы таймера и все, форму закрывает что угодно, но не таймер

@powerful123 · 16.03.2014, 21:52 **[ТС]**

а как сделать правильно ? так?

Delphi

procedure TForm7.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
form7.close;
end;

@wendstor 139 / 137 / 66 Регистрация: 15.05.2012 Сообщений: 515
	16.03.2014, 21:27	2
	Не понял, что вы хотели, но возможно вас интересует Splash заставки. Гугл предоставляет много ссылок 0

@powerful123 1 / 1 / 0 Регистрация: 30.11.2013 Сообщений: 53
	16.03.2014, 21:39 [ТС]	3
	У меня есть заставка. Мне надо чтобы заставка закрывалась допустим за 5 секунд,но она закрывается у меня за секунду. В таймере стоит 5000 мл,не понимаю в чем проблема почему так быстро закрывается может быть в коде проблема? 0

Опции темы

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

Решение