Как изобразить картинку перед запуском программы?

← →
Helg (2002-05-31 17:26) [0]

Как перед запуском программы изобразить картинку, пока инициализируются переменные? Я пробовал по всякому - не получается. Только после запуска основной формы. А как это сделать перед запуском основной формы? Посоветуйте, добрые люди...

← →
Song (2002-05-31 17:27) [1]

В dpr файл вставить.

← →
Hogo (2002-05-31 21:38) [2]

Пример из Свана

program Splashin;

uses
Forms,
Main in "MAIN.PAS" {MainForm},
Splash in "SPLASH.PAS" {SplashForm};

{$R *.RES}

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

unit Main;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TMainForm = class(TForm)
ExitButton: TButton;
procedure ExitButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
Close;
end;

{ The following procedure pauses for a few seconds so
the Splash dialog remains visible for a predetermined
length of time. }

procedure TMainForm.FormCreate(Sender: TObject);
var
CurrentTime: LongInt;
begin
CurrentTime := GetTickCount div 1000;
while ( (GetTickCount div 1000) < (CurrentTime + 4) ) do
{ nothing };
end;

end.

← →
KaPaT (2002-05-31 22:39) [3]

Здесь статейка на эту тему хорошая есть

← →
Helg (2002-06-01 08:58) [4]

>HOGO
Спасибо. Здорово, я попробую
>КаРаТ
А можно насчет статейки по-конкретней, где ее найти?

← →
Cobalt (2002-06-01 11:44) [5]

http://delphi.mastak.ru/cgi-bin/download.pl?get=993058245&n=2

← →
alexadvanser (2002-06-01 11:58) [6]

Ребята, вы что, с ума сошли???
В проекте создаешь 2 форма, одна, как обычно, допустим fmMain, основная, а другая, допустим fmSplash - на которую наклеивается картинка.
Затем в меню PROJECT->OPTION во вкладке FORMS перекидываем fmSplash из группы Auto-create forms в группу Available forms, затем OK.
После этого в обработчик события ON CREATE ставите:
fmSplash := TfmSplash.Create(Application);
после чего fmSplash.Show; (для фоновой выдачи картинки)
или fmSplash.ShowModal; (для передачи управления форме с картинкой)

Ну а потом или по таймеру, или по завершении действия ставишь fmSplash.close; и форма закроется.

Удачи!
Кстати, если нужно, чтобы показывалась только картинка, без кнопок формы, нужно свойство формы fmSplash BorderStyle изменить на bsNone.

← →
alexadvanser (2002-06-01 12:02) [7]

Обработчик ON Create естевственно для основной формы fmMain...

← →
vfv (2002-06-01 12:25) [8]

Маленький пример заставки с проверкой корректности завершения приложения и проверки и индексации БД PARADOX
var FIniFile: TRegistryIniFile;
begin
Application.Initialize;
FIniFile := TRegistryIniFile.Create("PMK Registry");//Инициализация переменной реестра куда записывается результат завершения приложения
Zastavka := TZastavka.Create(Application);
Zastavka.SHOW;
Zastavka.Update;
//Проверяю установку программы на проверку БД при загрузке
//и на нормальность завершения программы
//при True Выполняю процедуру ShowLab с выводом результатов
//определенных действий через ТLabel Заставки
if FIniFile.ReadBool(SECTION, "CheckDB",True)or not FIniFile.ReadBool(SECTION, "NormalSD",True) Then
Zastavka.ShowLab;
FIniFile.WriteBool(SECTION, "NormalSD",False);
FIniFile.Free;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TDelDlg, DelDlg);
Application.CreateForm(TSprTaraForm, SprTaraForm);
Application.CreateForm(TSprClientsForm, SprClientsForm);
Application.CreateForm(TINZForm, INZForm);
Application.CreateForm(TOUTZForm, OUTZForm);
Application.CreateForm(TIMPForm, IMPForm);
Application.CreateForm(TPrefForm, PrefForm);
Zastavka.Hide;
Zastavka.Release;
Zastavka:=nil;
Application.Run;
end.

← →
Helg (2002-06-01 20:07) [9]

Спасибо всем за полезные советы. Очень много почерпнул полезного.
Я сделал по совету Hogo. Ура, сработало! Еще раз всем спасибо.

Как изобразить картинку перед запуском программы? Найти похожие ветки