[denmart]

Доброе время суток! Имеется рабочая форма. Как добавить в приложение форму, которая при запуске приложения включалась бы первой, а по истичении какого-то времени включалась вторая(первая при этом пропадала). Спасибо!!!

[roamer]

Как вариант - что-то вроде этого (привязка к событию по таймеру, но можно и к др.событиям) :

Код:

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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

program FODB_Query; uses   ...,                    Forms,   fdb_logoform_01 in 'fdb_logoform_01.pas' {Form_Logo_01},   fdb_logoform_02 in 'fdb_logoform_02.pas' {Form_Logo_02},   ...;            {$R *.res}   begin      Application.Initialize;        //------------------------------------      //Создается 1-я форма      Form_Logo_01 := TForm_Logo.Create(nil);      Form_Logo_01.Show;      Form_Logo_01.lbl_State.Caption:='Сообщение-1 на ЛогоФорме-1 ...';      Application.ProcessMessages;      //------------------------------------                                                                                   Application.CreateForm(TForm1, Form1);      ...                  Application.Run; end.   =======================================       type   TForm1 = class(TForm)     ...            iLogo : integer;                                                      end;             procedure TForm1.FormCreate(Sender: TObject); begin   ...        iLogo := 1;                                                    ...            Timer1.Enabled:=true; end;     procedure TForm1.Timer1Timer(Sender: TObject); begin   Timer1.Enaled:=false;   Label_DT.Caption:=DateTimeToStr(NOW);     if iLogo=5 then begin                                                    //Уничтожается 2-я форма      if Form_Logo_02<>nil then begin         FreeAndNil(Form_Logo_02);         Form_Logo_02:=NIL;         iLogo := iLogo+1;                                                       end;   end;                  if iLogo=4 then begin                                                    //Создается 2-я форма      Form_Logo_02 := TForm_Logo.Create(nil);      Form_Logo_02.Show;      Form_Logo_02.lbl_State.Caption:='Сообщение-1 на ЛогоФорме-2 ...';      iLogo := iLogo+1;                                                       Application.ProcessMessages;   end;                  if iLogo=3 then begin                                                    //Уничтожается 1-я форма      if Form_Logo_01<>nil then begin         FreeAndNil(Form_Logo_01);         Form_Logo_01:=NIL;         iLogo := iLogo+1;                                                       end;   end;              if iLogo=2 then begin      if Form_Logo_01<>nil then begin         Form_Logo_01.lbl_State.Caption:='Сообщение-3 на ЛогоФорме-1 ...';         Application.ProcessMessages;         iLogo := iLogo+1;                                                       end;   end;                  if iLogo=1 then begin                                                    if Form_Logo_01<>nil then begin         Form_Logo_01.lbl_State.Caption:='Сообщение-2 на ЛогоФорме-1 ...';         Application.ProcessMessages;         iLogo := iLogo+1;                                                       end;   end;              Timer1.Enaled:=true;       end;

[denmart]

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

[Nyctos Kasignete]

denmart, для вас создавалась справочная система Delphi.

Сообщение от Delphi help

Displaying a SplashScreen
__________________________________________________ ____________
The following two event handlers display and close a form called SplashScreen before the application's main form opens. The constant Startup is declared in Form1's interface part. The first event handler calls the Show method of SplashScreen from Form1's OnActivate event.

Delphi example

procedure TForm1.FormActivate(Sender: TObject);
begin
if Startup then
begin
Startup := False;
SplashScreen.Show;
end;
end;

SplashScreen contains a Timer component whose Interval property is set to 3000, so the form is displayed for three seconds and then closes. The form's Close method is attached to the timer component's OnTimer event.

Delphi example

procedure TForm2.Timer1Timer(Sender: TObject);

begin
Close;
end;

[denmart]

Спасибо - буду розбиратся

[denmart]

If Startup then begin - пишет ошибку
[Error] Unit1.pas(27): Undeclared identifier: 'Startup'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

[Nyctos Kasignete]

Цитата из цитаты:

[denmart]

Как её приавильно объявить? Я, конечно, извеняюсь за такие глупые вопросы, но все когда-то были новичками.

[roamer]

1. Создаете форму (это Ваша ЛогоФорма - кот. будет висеть до высвечивания главного окна приложения).
Например, ее имя Form_Logo. Устанавливаете свойство (у нее) FormStyle:=fsStayOnTop.

2. Выбираете меню : Project -> View Source

3. Там будет примерно это :

Код:

1 2 3 4 5

begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

4. Вы ручками добавляете ЭТО:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

begin   Application.Initialize;     //---------------------------                                                                                    Form_Logo := TForm_Logo.Create(nil);   Form_Logo.Show;   Application.ProcessMessages;    //---------------------------                                                                                          Application.CreateForm(TForm1, Form1);   Application.Run; end.

5. На форму (главную) кидаете TTimer и свойству Interval присваиваете значение 3000 (3 секунды).

6. Создаете обработчик события Таймера.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Timer1Timer(Sender: TObject); begin   Timer1.Enaled:=false;     //---------------------------                                                                                    //Уничтожается ЛогоФорма   if Form_Logo<>nil then begin      FreeAndNil(Form_Logo);      Form_Logo:=NIL;   end;    //---------------------------                                                                                    end;

7. Вроде бы и все.

[roamer]

Как вариант можно попробовать это.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure MyDelay(mSec : integer); //Задержка на заданное ко-во миллисекунд                                                                                      var   iStart, iStop: DWORD; begin   iStart := GetTickCount;   repeat     iStop := GetTickCount;     sleep(10);     Application.ProcessMessages;   until (iStop - iStart) >= mSec; end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12

begin   Application.Initialize;     //---------------------------                                                                                    Form_Logo := TForm_Logo.Create(nil);   Form_Logo.Show;   MyDelay(3000);                  //---------------------------                                                                                          Application.CreateForm(TForm1, Form1);   Application.Run; end.

Тогда и таймер не нужен будет.

P.S.
Честно признаюсь, что я такой вариант не "щупал" ...

[roamer]

Sorry.
Забыл про "мусор" ...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

begin   Application.Initialize;     //------------------------                                                                                    Form_Logo := TForm_Logo.Create(nil);   Form_Logo.Show;   MyDelay(3000);                  //............................                                                                            if Form_Logo<>nil then begin      FreeAndNil(Form_Logo);  //!!!      Form_Logo:=NIL;   end;    //............................                                                                            //---------------------------                                                                                          Application.CreateForm(TForm1, Form1);   Application.Run; end.