Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Вниз

Заставка к прогармме   Найти похожие ветки 

← →
Максим   (2003-10-02 13:44) [0]

Подскажите как правильно сделать заставку к программе ????

---

← →
Skier   (2003-10-02 13:45) [1]

Посмотреть дельфийский пример MastApp.dpr

---

← →
ZEE   (2003-10-02 14:01) [2]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619925&n=16

---

← →
Anatoly Podgoretsky   (2003-10-02 14:10) [3]

Rак правильно вопрос очень сложный, сначала надо описать эту правильность, тогда сможешь получить ответ.
А если вообще сделать то Skier © (02.10.03 13:45) [1]

---

← →
AbrosimovA   (2003-10-02 14:37) [4]

---------------------------------------------------------------
program Prog;

uses
Forms,
Main in "Main.pas" {MainForm},
Splash in "Splash.pas" {SplashForm};

{$R *.res}

begin
try
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
SplashForm.Hide;
finally
SplashForm.Free;
end;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

Время показа заставки настраивается с помощью свойства таймера
Timer1.Interval:=5000

-------Форма заставки----------------------------------------

unit Splash;

.........

type
TSplashForm = class(TForm)
Timer1: TTimer;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Timer1Timer(Sender: TObject);
procedure FormHide(Sender: TObject);

var
SplashForm: TSplashForm;

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
end;

procedure TSplashForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := Not Timer1.Enabled;
end;

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c