Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Коллеги подскажите как создать форму [D7, XP]

JTAG © (2005-12-01 13:49:00)
При программирование через командную строку понадобилось выводить предупредительные сообщения . Раньше сообщения выводил при помощи showmessage, но в данном случае это функция не подходит, поскольку иммет кнопку и требует ее нажатия. Для программы использующей командную строку это не подойдет , посколку программа может запускать другой прогой без участия юзера.
А хорошо бы выдавать сообщение на некоторый промежуток времени , а потом чтобы прога выполнялась дальше.
Для этого я создал форму и вывожу на нее надписи напимер,
form2.Show;
form2.Label2.Caption:='File Not Found';
sleep(3000);
form2.Close;
Выводить надписи мне нужно при старте программы для этого я вышенаписанный код перенес в процедуру FormCreate главной формы
и я получаю ошибку на эту строчку
Application.CreateForm(TForm2, Form2);
Что это значит , я подозреваю что form2 нельзя создавать в процедуре formcreateдля основной формы. В какую процедуру открытие form2 можно поместить , стартующию при запуске программы?

JTAG (2005-12-01 16:27:00) [1]
ну это когда без формы как в досовских прогах в командной строке запускается программа и дальше параметры определяющие ее работу.

Leonid Troyanovsky (2005-12-01 16:20:00) [2]

> JTAG (01.12.05 13:49)
> программирование через командную строку

А что это такое?

--
Regards, LVT.

JTAG (2005-12-01 16:07:00) [3]
Да в uses все ok. Обошел этот баг поставил показ формы в другую процедуру стало работать только надписи на форме нет

Плохиш (2005-12-01 15:17:00) [4]
С вероятностью 85% он не написал unit2 в uses ;-)

Думкин (2005-12-01 14:37:00) [5]
А что за ошибка?
У меня без ошибки. Только как и ожидалось - приложение закрывается и все.
Код давай. И текст ошибки.
Что показывает пошаговый проход?(с)Digitman

Думкин (2005-12-01 14:22:00) [6]
with TForm.Create(nil) do try Caption := '222222'; Show; Sleep(3000); finally Free end

Плохиш (2005-12-01 14:16:00) [7]

> Что это значит , я подозреваю

Подозревать не надо, надо просто прочитать сообщение об ошибке.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »