Ошибка при выполнении

@Talkoflights · Регистрация: 23.09.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Помогите с проблемкой.
Есть код:

Delphi

procedure TForm3.allnill;
begin
Form4.MainMenu1.Caption:='';
Form4.N1.Caption:='';
Form4.N2.Caption:='';
Form4.PopupMenu1.Caption:='';
Form4.N3.Caption:='';
end;

Процедура должна присвоить элементам mainmenu и popupmenu на Form4 вышеприведенные значения. Вообще, цель состоит в том, чтобы скрыть mainmenu и popupmenu соответственно, но ни с этой процедурой, ни с использованием свойства visible ничего не вышло.
Прошу помочь.
Заранее спасибо!

@Talkoflights · 14.05.2013, 17:11 **[ТС]**

Сообщение от DenNik

давно бы уже выложил

Выше лежит.

@barbudo59 · 14.05.2013, 17:15

Сообщение от Talkoflights

скрыть mainmenu и popupmenu

непонятно...
"Компонент MainMemu (и PopupMenu) невизуальный, то есть, хотя и отображается на прототипе Формы как небольшой квадрат, в работающей программе не будет виден."
(http://www.delphi-manual.ru/standart.php)

@Talkoflights · 14.05.2013, 17:17 **[ТС]**

Сообщение от DenNik

куча недостающих юнитов! как мне его запускать?

Unit6,7 где?

Сейчас сброшу конечную версию.
И что-то мне подсказывает, что загвоздка не столько в процедуре, сколько в чем-то еще.

@barbudo59 · 14.05.2013, 17:18

А свойства Caption ни там, ни там нет.

@Talkoflights · 14.05.2013, 17:20 **[ТС]**

Сообщение от barbudo59

непонятно...
"Компонент MainMemu (и PopupMenu) невизуальный, то есть, хотя и отображается на прототипе Формы как небольшой квадрат, в работающей программе не будет виден."
(http://www.delphi-manual.ru/standart.php)

На форме да, а при компиляции MainMenu появляется в верхнем левом углу окна, а PopupMenu появляется по щелчку мыши.

DenNik · 14.05.2013, 17:21

Сообщение от Talkoflights

что загвоздка не столько в процедуре, сколько в чем-то еще.

первые же предупреждения

[Warning] Unit3.pas(77): For loop control variable must be simple local variable
[Warning] Unit3.pas(79): For loop control variable must be simple local variable
[Warning] Unit3.pas(85): For loop control variable must be simple local variable
[Warning] Unit3.pas(91): For loop control variable must be simple local variable
[Warning] Unit3.pas(104): For loop control variable must be simple local variable
[Warning] Unit3.pas(132): For loop control variable must be simple local variable
[Hint] Unit3.pas(38): Private symbol 'ch' declared but never used

это значит, что счетчик цикла ДОЛЖЕН быть локальной переменной

@Talkoflights · 14.05.2013, 17:22 **[ТС]**

Сообщение от barbudo59

А свойства Caption ни там, ни там нет.

Имеются в виду свойства компонентов, которые входят в компонент mainmenu.

Добавлено через 24 секунды

Сообщение от DenNik

первые же предупреждения

это значит, что счетчик цикла ДОЛЖЕН быть локальной переменной

Это не является причиной ошибки, как мне кажется. Поправил-ошибка все равно есть.

DenNik · 14.05.2013, 17:25

далее...

завершение приложения некорректное. Когда закрывается форма3, главная форма остается висеть в памяти невидима для пользователя, следовательно, завершить приложение можно только через диспетчер задач. Исправляй!

Добавлено через 1 минуту

Сообщение от Talkoflights

Это не является причиной ошибки, как мне кажется.

критических ошибок в последней версии я не увидел (вернее, компилятор). в чем вообще проблема?

@Talkoflights · 14.05.2013, 17:26 **[ТС]**

Сообщение от DenNik

далее...

завершение приложения некорректное. Когда закрывается форма3, главная форма остается висеть в памяти невидима для пользователя, следовательно, завершить приложение можно только через диспетчер задач. Исправляй!

Добавлено через 1 минуту

критических ошибок в последней версии я не увидел (вернее, компилятор). в чем вообще проблема?

А процедура allnill у вас раскоментирована?

DenNik · 14.05.2013, 17:27

вот ты только не обижайся. прежде чем создавать программы с таким громким названием, нужно же самому изучить то, чему ты предполагаешь обучать других!

@Talkoflights · 14.05.2013, 17:28 **[ТС]**

Сообщение от DenNik

вот ты только не обижайся. прежде чем создавать программы с таким громким названием, нужно же самому изучить то, чему ты предполагаешь обучать других!

Это курсовой проект. И, как вы сами заметили, все написано правильно(кроме косметики, которую наводят уже после окончательно создания проекта).

DenNik · 14.05.2013, 17:31

Сообщение от Talkoflights

А процедура allnill у вас раскоментирована?

ошибка вылетает потому, что при создании Form3 Form4 еще не создана, следовательно, MainMenu1 еще НЕ СУЩЕСТВУЕТ. понятно? allnil вызывай в OnShow

@volvo · 14.05.2013, 17:32

Talkoflights, а ничего, что при создании формы №3, четвертая, к которой ты пытаешься обратиться, еще вообще не создана? Поменяй в DPR-файле местами

Delphi

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4); // 
  Application.CreateForm(TForm3, Form3); // Вот эти 2 строки
  Application.CreateForm(TForm5, Form5);
  Application.Run;

@Talkoflights · 14.05.2013, 17:34 **[ТС]**

Сообщение от UI

Talkoflights, а ничего, что при создании формы №3, четвертая, к которой ты пытаешься обратиться, еще вообще не создана? Поменяй в DPR-файле местами

Delphi

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4); // 
  Application.CreateForm(TForm3, Form3); // Вот эти 2 строки
  Application.CreateForm(TForm5, Form5);
  Application.Run;

Спасибо огромное, а то я уже веревку и мыло приготовил!

Добавлено через 19 секунд

Сообщение от DenNik

ошибка вылетает потому, что при создании Form3 Form4 еще не создана, следовательно, MainMenu1 еще НЕ СУЩЕСТВУЕТ. понятно? allnil вызывай в OnShow

Спасибо!

@fort · 15.05.2013, 12:41

Попробуй просто пересоздавать все заново:

Delphi

var m: TMenuItem;
begin
  m := TMenuItem.Create(self);
  m.Caption := 'Munu 1';
  MainMenu1.Items.add(m);
 
  m := TMenuItem.Create(self);
  m.Caption := 'Edit';
  MainMenu1.Items.add(m);
 
  m := TMenuItem.Create(self);
  m.Caption := 'Help';
  MainMenu1.Items.add(m);
 
  m := TMenuItem.Create(self);
  m.Caption := 'Open';
  MainMenu1.Items[0].Add(m);
 
  m := TMenuItem.Create(self);
  m.Caption := 'Close';
  MainMenu1.Items[0].Add(m);
 
  MAinmenu1.Items[0].Caption := 'File';
  MAinmenu1.Items[0].Items[1].Visible := false;
end;

@Talkoflights 25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274
	14.05.2013, 17:26 [ТС]	29
	Сообщение от DenNik далее... завершение приложения некорректное. Когда закрывается форма3, главная форма остается висеть в памяти невидима для пользователя, следовательно, завершить приложение можно только через диспетчер задач. Исправляй! Добавлено через 1 минуту критических ошибок в последней версии я не увидел (вернее, компилятор). в чем вообще проблема? А процедура allnill у вас раскоментирована? 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	14.05.2013, 17:27	30
	вот ты только не обижайся. прежде чем создавать программы с таким громким названием, нужно же самому изучить то, чему ты предполагаешь обучать других! 0

@Talkoflights 25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274
	14.05.2013, 17:11 [ТС]	21
	Сообщение от DenNik давно бы уже выложил Выше лежит. 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	14.05.2013, 17:15	22
	Сообщение от Talkoflights скрыть mainmenu и popupmenu непонятно... "Компонент MainMemu (и PopupMenu) невизуальный, то есть, хотя и отображается на прототипе Формы как небольшой квадрат, в работающей программе не будет виден." (http://www.delphi-manual.ru/standart.php) 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	14.05.2013, 17:18	24
	А свойства Caption ни там, ни там нет. 0

@Talkoflights 25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274
	14.05.2013, 17:20 [ТС]	25
	Сообщение от barbudo59 непонятно... "Компонент MainMemu (и PopupMenu) невизуальный, то есть, хотя и отображается на прототипе Формы как небольшой квадрат, в работающей программе не будет виден." (http://www.delphi-manual.ru/standart.php) На форме да, а при компиляции MainMenu появляется в верхнем левом углу окна, а PopupMenu появляется по щелчку мыши. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	14.05.2013, 17:21	26
	Сообщение от Talkoflights что загвоздка не столько в процедуре, сколько в чем-то еще. первые же предупреждения [Warning] Unit3.pas(77): For loop control variable must be simple local variable [Warning] Unit3.pas(79): For loop control variable must be simple local variable [Warning] Unit3.pas(85): For loop control variable must be simple local variable [Warning] Unit3.pas(91): For loop control variable must be simple local variable [Warning] Unit3.pas(104): For loop control variable must be simple local variable [Warning] Unit3.pas(132): For loop control variable must be simple local variable [Hint] Unit3.pas(38): Private symbol 'ch' declared but never used это значит, что счетчик цикла ДОЛЖЕН быть локальной переменной 0

@Talkoflights 25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274
	14.05.2013, 17:22 [ТС]	27
	Сообщение от barbudo59 А свойства Caption ни там, ни там нет. Имеются в виду свойства компонентов, которые входят в компонент mainmenu. Добавлено через 24 секунды Сообщение от DenNik первые же предупреждения это значит, что счетчик цикла ДОЛЖЕН быть локальной переменной Это не является причиной ошибки, как мне кажется. Поправил-ошибка все равно есть. 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	14.05.2013, 17:25	28
	далее... завершение приложения некорректное. Когда закрывается форма3, главная форма остается висеть в памяти невидима для пользователя, следовательно, завершить приложение можно только через диспетчер задач. Исправляй! Добавлено через 1 минуту Сообщение от Talkoflights Это не является причиной ошибки, как мне кажется. критических ошибок в последней версии я не увидел (вернее, компилятор). в чем вообще проблема? 0

@Talkoflights 25 / 25 / 17 Регистрация: 23.09.2012 Сообщений: 274
	14.05.2013, 17:28 [ТС]	31
	Сообщение от DenNik вот ты только не обижайся. прежде чем создавать программы с таким громким названием, нужно же самому изучить то, чему ты предполагаешь обучать других! Это курсовой проект. И, как вы сами заметили, все написано правильно(кроме косметики, которую наводят уже после окончательно создания проекта). 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	14.05.2013, 17:31	32
	Сообщение от Talkoflights А процедура allnill у вас раскоментирована? ошибка вылетает потому, что при создании Form3 Form4 еще не создана, следовательно, MainMenu1 еще НЕ СУЩЕСТВУЕТ. понятно? allnil вызывай в OnShow 1

	15.05.2013, 12:41