Приветственное окно в программе

[Стелс]

вот готовый вариант
только таймер нужно увеличить до нужного интервала

[Человек_Борща]

Стелс,
куда проще все можно. Куда проще=) Без таймеров...

[Стелс]

Сообщение от Человек_Борща

Стелс,
куда проще все можно. Куда проще=) Без таймеров...

главное ведь результат )))

[Стелс]

Посмотрел ваш код с использованием Gauge оригинальненько

[Elegance3]

ААА!!!
Стелс, запускаю вашу программу, все работает
Копирую ваш код в свою программу - зависает на цикле..
Форма6 установлена у меня не как самосоздающаяся, в обработчике событий только таймер false...
уже не знаю что делать.... ломаю голову..


Человек_Борща,
спасибо Вам, но я так и не разобралась там - у вас отсчет и прогресс-штука та, а мне надо просто картинку и её закрытие через 3 секунды (как заставка в программах Офис, Фотошоп и.т.д.)

[Стелс]

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

ААА!!!
Стелс, запускаю вашу программу, все работает
Копирую ваш код в свою программу - зависает на цикле..
Форма6 установлена у меня не как самосоздающаяся, в обработчике событий только таймер false...
уже не знаю что делать.... ломаю голову..


Человек_Борща,
спасибо Вам, но я так и не разобралась там - у вас отсчет и прогресс-штука та, а мне надо просто картинку и её закрытие через 3 секунды (как заставка в программах Офис, Фотошоп и.т.д.)

ИСХОДНИК В СТУДИЮ !!!

[Человек_Борща]

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

ААА!!!
Стелс, запускаю вашу программу, все работает
Копирую ваш код в свою программу - зависает на цикле..
Форма6 установлена у меня не как самосоздающаяся, в обработчике событий только таймер false...
уже не знаю что делать.... ломаю голову..


Человек_Борща,
спасибо Вам, но я так и не разобралась там - у вас отсчет и прогресс-штука та, а мне надо просто картинку и её закрытие через 3 секунды (как заставка в программах Офис, Фотошоп и.т.д.)

поместить image и загрузить туда картинку, выкинуть Gauge.
Цикл For to do заменить на for i:=0 to 100 do
sleep зделать 30 мнесто 20-и.

Формы создавать после выполнения заставки. Получиться вот так:

uses
  Forms,Windows,
  MainFormUnit in 'MainFormUnit.pas' {MainForm},
  SplashFormUnit in 'SplashFormUnit.pas' {SplashForm},
  TwoFormUnit in 'TwoFormUnit.pas' {TwoForm},
  ThreeFormUnit in 'ThreeFormUnit.pas' {Threeform};

{$R *.res}

var
  SP: TSplashForm;
  i: SmallInt;

begin
  Application.Initialize;

  SP := TSplashForm.Create(Application);
  Sp.Show; 
  Sp.Update;
  try
    for i := 0 to 100 do
    begin
      Application.ProcessMessages;
      Sleep(30);
    end;
  finally
    SP.Free;
    SP := nil;
  end;

  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TTwoForm, TwoForm);
  Application.CreateForm(TThreeform, Threeform);
  Application.Run;
end.

вот вам и сплэш как у фотошопа.

вы вообще способны какие-то другие мысли формировать, кроме вопросов?

З.Ы. цикл можно выкинуть, заменив его на sleep(3000).
Окно можно вообще через WinAPI создать.

Но это ТС не осилит.

[Elegance3]

вот)

Laba_4_delphi.rar

[Elegance3]

Человек_Борща,
к сожалению я впервые сталкиваюсь с такого рода программированием - так как раннее моё "творчетсво" там сводилось к математическим подсчетам, и теоритической работой с объектным программированием. А тут задали такое выдумать... вот и не знаю с чего вообще начать и как такое делается. Позже опробую ваш метод, но все-таки до конца хочется разобраться в этом - раз он у кого-то получается. Он мне кажется более легким))

[Стелс]

 Application.CreateForm(TForm1, Form1);<--- ошибка уберите эту строчку дважды создаёте форму
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm4, Form4);
  Application.Run;