Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.03.2011, 15:13
Аватар для RusSTEEL
RusSTEEL RusSTEEL вне форума
Новичок
 
Регистрация: 10.03.2011
Сообщения: 53
Репутация: 10
По умолчанию ошибка на материнском окне

Создан проект с материнским окном, в нем MainMenu, при запуске формы при попытке открыть дочернее окно через MainMenu выскакивает ошибка прикрепленная ниже.

текст самого проект(хз нафиг, но выложу вдруг в чем поможет)
Код:
program AppName;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10},
  Unit11 in 'Unit11.pas' {Form11},
  Unit12 in 'Unit12.pas' {Form12};

{$R *.RES}


begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.
Изображения
Тип файла: jpg 112.JPG (17.6 Кбайт, 15 просмотров)
__________________
не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!!
Ответить с цитированием
  #2  
Старый 28.03.2011, 15:24
Assistant Assistant вне форума
Продвинутый
 
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию

лучше бы вы выложили тот код, которым вызываете дочернее окно.
__________________
взялся из неоткуда, ничего не прошу, помогаю просто так
ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя
Ответить с цитированием
  #3  
Старый 28.03.2011, 16:24
Аватар для RusSTEEL
RusSTEEL RusSTEEL вне форума
Новичок
 
Регистрация: 10.03.2011
Сообщения: 53
Репутация: 10
По умолчанию

Цитата:
Сообщение от Assistant
лучше бы вы выложили тот код, которым вызываете дочернее окно.
дак обычный при нажатии на н1 в маинменю - форм2.сшоу;
__________________
не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!!
Ответить с цитированием
  #4  
Старый 28.03.2011, 16:45
Assistant Assistant вне форума
Продвинутый
 
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию

а на форме этой в OnActive (OnShow) ничего нет?
__________________
взялся из неоткуда, ничего не прошу, помогаю просто так
ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя
Ответить с цитированием
  #5  
Старый 28.03.2011, 16:47
Аватар для Voron
Voron Voron вне форума
Новичок
 
Регистрация: 16.09.2010
Сообщения: 61
Репутация: 10
По умолчанию

Попробуй этот код tform2.create(self)
Ответить с цитированием
  #6  
Старый 28.03.2011, 17:06
Assistant Assistant вне форума
Продвинутый
 
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию

оооо, кстати да, не заметил что Form2 не создается автоматически, конечно тогда будет ошибка.
__________________
взялся из неоткуда, ничего не прошу, помогаю просто так
ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя
Ответить с цитированием
  #7  
Старый 28.03.2011, 17:11
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm6, Form6);
  Application.Run;
end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #8  
Старый 28.03.2011, 18:08
Аватар для RusSTEEL
RusSTEEL RusSTEEL вне форума
Новичок
 
Регистрация: 10.03.2011
Сообщения: 53
Репутация: 10
По умолчанию

Цитата:
Сообщение от Assistant
оооо, кстати да, не заметил что Form2 не создается автоматически, конечно тогда будет ошибка.
удалить вот это Application.CreateForm(TForm2, Form2); ??

предпологаю что нет =)
__________________
не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!!

Последний раз редактировалось RusSTEEL, 28.03.2011 в 18:11.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:13.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025