Ну или какой там у тебя тип.
Ты ещё не создал объект, а уже обращаешься к его свойству!!!
Ну и, может, ещё так: fmBeg := TfmBeg.Create(nil);
Хотя это так... Всё и так должно работать, наверное.
Добавлено @ 11:58
Не успел
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > Снова заставка |
| Автор: Maverick 14.4.2004, 10:23 |
| Добрый день... Тема была пару дней назад - я уже смотрел... Стандартный код заставки.... Вот так у меня выглядит проект - 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... Вроде форму второй раз не создаю.... Я уже использовал подобный код раньше.... Не знаю, что и думать уже.... Может у вас мысли появятся? |
| Автор: <Spawn> 14.4.2004, 11:51 |
| не fmBeg.Create, а TfmBeg.Create |
| Автор: dm9 14.4.2004, 11:57 |
| Блин, fmBeg := TfmBeg.Create(Application); Ну или какой там у тебя тип. Ты ещё не создал объект, а уже обращаешься к его свойству!!! Ну и, может, ещё так: fmBeg := TfmBeg.Create(nil); Хотя это так... Всё и так должно работать, наверное. Добавлено @ 11:58 Не успел |
| Автор: Maverick 14.4.2004, 13:12 |
Вот, что значит невнимательность и использование Сtrl+C.... И абсолютная уверенность в правильности кода....  ... И я на это не только один смотрел у нас.... Спасибо... |