[denmart]

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

[roamer]

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

Код:

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'