Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.08.2009, 14:59   #1
Denmart
 
Регистрация: 12.08.2009
Сообщений: 6
По умолчанию Загрузка програмы

Доброе время суток!
Имеються две формы (Form1 & Form2). Как сделать так, что бы при загрузке программы сначала загрузилась Form2 и через некоторый интервал времени она исчезла, а Form1 показалась )) (как загрузка фотошопа). Спасибо!
Denmart вне форума Ответить с цитированием
Старый 22.08.2009, 15:16   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Ну вот так, например:
В коде проекта уберите вот эту строку:
Код:
begin
  Application.Initialize;
  //Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.
На вторую форму киньте таймер и в обработчике запишите:
Код:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.Visible := true;
Form2.Visible := false;
Timer1.Enabled := false;
end;
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 22.08.2009, 15:38   #3
Denmart
 
Регистрация: 12.08.2009
Сообщений: 6
По умолчанию

Код:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);  //Выдает ошибку 
Form1.Visible := true;
Form2.Visible := false;
Timer1.Enabled := false;
end;
Denmart вне форума Ответить с цитированием
Старый 22.08.2009, 15:50   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Что за ошибка? Не забыли добавить форму в "Use Unit..."?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверит наличие програмы. blackstersl Общие вопросы Delphi 5 24.06.2009 12:16
Две програмы.С++. Одномерные масивы Olya90 Помощь студентам 10 11.04.2009 20:23
Изменение кода програмы Vladya Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 03.02.2009 20:47
Локализация програмы neo_m Помощь студентам 4 10.03.2008 15:24
запуск програмы ZhekON Общие вопросы Delphi 11 05.06.2007 16:05