Ошибка в Application

← →
ACT (2003-08-04 13:06) [0]

Создаю форму в файле проекта, так, что бы она отображалась до создания главной формы:
Application.Initialize;
Form21:=Form21.Create(Application);
Form21.Show;Form21.Update;
Application.CreateForm(TForm1, Form1);
......
Form21.Hide;Form21.Free;
Application.Run;
а при компиляции появляется ошибка:"неверный доступ по адресу ..... в модуле ....чтение из адреса...".Причем, заголовок ошибки Application Error.
Каюсь, я, создание формы таким образом, почти не изменяя, списал из книги, поэтому и недоумеваю по поводу ошибки.
Может быть, кто-нибудь мне сможет об`яснить?

← →
Е-Моё имя (2003-08-04 13:09) [1]

Form21:=Form21.Create(Application);
идет обращение к методу объекта, который еще не создан
на этой строке form21=nil
надо вызывать с именем класса
Form21:=TForm21.Create(Application);

← →
АСТ (2003-08-04 13:24) [2]

Спасибо, заработало, но, почему-то, в Form21 не работает обработчик события OnCreate, хотя, он просто устанавливает начало формы:
procedure TForm21.FormCreate(Sender: TObject);
begin
Form21.Left:=(Screen.Width - Form21.Width) div 2;
Form21.Top:=(Screen.Height - Form21.Height) div 2;
end;
Выдает такую же ошибку:" неверный доступ..."

← →
VMcL (2003-08-04 13:30) [3]

>АСТ (04.08.03 13:24)

procedure TForm21.FormCreate(Sender: TObject); begin Left := (Screen.Width - Width) div 2; Top := (Screen.Height - Height) div 2; end;

P.S. Почитай книги

P.P.S. Position = poScreenCenter рулит :)

← →
Cinderella (2003-08-04 13:38) [4]

Типа Е-Моё имя © и VMcL © сдали первую сессию ;)

← →
VMcL (2003-08-04 13:48) [5]

>Cinderella (04.08.03 13:38)

Золушка, ты это к чему?

← →
Cinderella (2003-08-04 14:08) [6]

Нет ничего плохого
просто показалось что уж какието вопросы сдесь ...
как тест какойто :)

← →
Е-Моё имя (2003-08-04 14:40) [7]

нормальные вопросы))
помню сам пытался s:=s.create делать)))
правда я сам доходил до решения...

Ошибка в Application Найти похожие ветки