Добрый день... Тема была пару дней назад - я уже смотрел...

Стандартный код заставки.... Вот так у меня выглядит проект -

program Vnedrenie;

uses
Forms,
UnBeg in 'UnBeg.pas' {fmBeg},
UnMain in 'UnMain.pas' {fmMain},
UnPrint in 'UnPrint.pas' {fmPrint},
UnHelp in 'UnHelp.pas' {fmHelp};

{$R *.res}

begin

try
Application.Initialize;
Application.Title := 'Внедрение';

fmBeg := fmBeg.Create(Application); //создаем форму заставки
fmBeg.Show; //показываем ее
fmBeg.Update; //апдейтим отрисовку

{формируем все остальное}
Application.CreateForm(TfmMain, fmMain);
Application.CreateForm(TfmHelp, fmHelp);
Application.CreateForm(TfmPrint, fmPrint);

fmBeg.Hide; //прячем заставку
fmBeg.Free; //освобождаем заставку

Application.Run;

except
fmBeg.Free;
end;
end.

В настройках проекта - fmBeg вынута из автосоздаваемых....

На строке fmBeg := fmBeg.Create(Application) - вылетает ошибка... Acces violation... Вроде форму второй раз не создаю.... Я уже использовал подобный код раньше.... Не знаю, что и думать уже.... Может у вас мысли появятся?

не fmBeg.Create, а TfmBeg.Create

Это сообщение отредактировал(а) <Spawn> - 14.4.2004, 11:51

Блин, fmBeg := TfmBeg.Create(Application);
Ну или какой там у тебя тип.
Ты ещё не создал объект, а уже обращаешься к его свойству!!!

Ну и, может, ещё так: fmBeg := TfmBeg.Create(nil);
Хотя это так... Всё и так должно работать, наверное.
Добавлено @ 11:58
Не успел

Вот, что значит невнимательность и использование Сtrl+C.... И абсолютная уверенность в правильности кода.... ... И я на это не только один смотрел у нас....

Спасибо...