MainMenu и выход из программы
 

Добрый день. В проге имеется главное меню, и конечно же стандартная менюшка "Выход", все, что надо сделать при нажатии на эту клавишу, это выполнить Form.Close, но вот в чем проблема, если прописать в обработчике нажатия Close или Form.Close, то компилятор ругается, будто нет соответствующей процедуры и если запустить прогу вывалится AV.
Создавать же обработчик и в нем писать одну единственную команду Close бред... Как быть?

Начать приводить примеры кода и ошибок компилятора.
А вообще, не Form.Close, а Form1.Close (если имя формы не менялось)
что то я сейчас ленюсь теорию с практикой на пальцах объяснять

А как вообще вы хотите выполнить "действие", не создавая обработчик?

Имя формы менялось, поэтому Form.Close я привел для примера.

Я итак вроде бы понятно написать, что имеется на форме компонент MainMenu, в этом MainMenu есть Item, при событии OnClick по которому надо делать Close. Если написать в обработчик Close то компилятор говорит, мол не найдена процедура обработки Close, удалить описание? Я говорю нет, и тогда при запуске программы вылетает AV (Access Violation), что логично.

Можно создать свою процедуру и повесить ее на обработку любых событий нескольких компонентов, почему тогда нельзя на обработку повесить вызов не своей процедуры, а вызов обработчика формы?

Меня поражает нежелание людей приводить кусочек исходного текста. Я же не весь код прошу, а только проблемный участок. Может там синтаксическая ошибка, может логическая, нам как угадывать?
Вот сложно привести небольшой фрагмент описания формы, и вызов процедуры MainMenu? Три раза перечитал, три раза не понял. Наверно из-за нарушений принципов ООП.
---
Еще раз прошу привести фрагмент проблемного кода.

А я после прочтения второй раз, думаю, что автор пытается запихать не в код обработчика метод Close, а в имя обработчика.
Что то типа этого:
вместо
это
Но никто не понять, увы...

Да, все верно
Так сделать реально?

А в документации почитать — реально или нет — нельзя?!

Вот все, что есть в документации

novashdima, это нарушение принципов ООП. Я завтра картинку нарисую для наглядности. Некорректное взаимодействие объектов.

Спасибо за ответ, значит нельзя. А вот картинка, почему нарушает очень не помешает.

А так: Vcl.Menus.TMenuItem.OnClick - XE3 API Documentation?

Эм... то есть вместо процедуры обработки я могу ввести WM_COMMAND?

Я постарался выделить существенную часть:

Ага, то есть свойство OnClick-а TNotifyEvent, что являет собой строку-название обработчика, но получается, что Form.Close - функция, но тогда вопрос, почему я могу указать имя произвольной функции в качестве TNotifyEvent, а другую функцию, которая по идее TNotifyEvent - не могу???

Procedural Types (Delphi) - RAD Studio XE3
Events Are Properties - RAD Studio XE3

Во всяком случае — имя, не строку. Почему «по идее»? Как определили? Каков код?

novashdima, я пробовал Delphi один раз, в третьей версии, лет пятнадцать назад ;). Не стесняйтесь излагать подробно и приводить код, на форуме достаточно просвещённого народа, чтобы помочь.

Я думал имя это строка...
Эм... свойство у event у нас получается типа TNotifyEvent , которая является именем обработчика (функции). При этом свойством одного event указать функцию-обработчик другого event у меня не получилось, может попробовать свойством event назначить свойство другого компонента, то есть свойство OnClick у MainMenu назначить Form.OnClose?

Раз так просите привожу конкретный пример:
Все, что надо, это значение свойства ExitFileItem.OnClick присвоить в Object Inspector MainForm.Close|MainForm.CloseQuery|Exit|Application.Terminate|Halt|WM_Close|WM_Quit... может еще какие способы закрыть приложение есть, я все что знал сказал)
п.с. при этом все, что меня интересует, так это то, почему я значением свойства могу указать MyFunction
То есть процедура у нас MainForm.MyFunction(Sender) и все отлично, а вот указать MainForm.Close(Sender) я не могу, вопрос - почему?

Русскоязычные форумы отличаются тем, что в процессе обсуждения проблемы сначала все скажут, какой ТС лох, что он тут забыл, ему в раздел новички или вообще с этого форума, через постов 15-20 начнут обсуждать суть темы и или окажется, что никто не знает, что делать или подскажут вариантов 5 минимум решения проблемы) На англоязычных форумах/чатах если задашь вопрос, то тебе сразу прямо ответят, дадут линк, объяснят что к чему и пожелают удачи)

Цитата:

Цитата novashdima Русскоязычные форумы отличаются тем, … »

Что делать ;), «у каждого свои недостатки». Впрочем, я лично видел всякое.

Возможно, не тот тип? Впрочем, как я писал выше, мои знания давно устарели. Подождём более опытных коллег.

Так... ТС, напиши в обработчике нажатия на пункт меню команду Application.Terminate, и всё. Только так, а не всякими Form1.Close, можно корректно завершить работу всего приложения.

А если нужно просто закрывать текущую форму, надо приучаться писать Self.Close, ибо если в будущем планируешь стать программистом, тебе, возможно, придётся создавать большое количество идентичных форм с разными именами, поэтому ты никакими FormXXX.Close не отделаешься.

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

---------------------------
Error
---------------------------
'Application.Terminate' is not a valid identifier.
---------------------------
OK Help
---------------------------
У меня в программах не бывает 100 форм, я обхожусь 5-10 и всегда использовал FormXXX.Close или FormXXX.Hide и все было нормально.
Что дает Self передавая его в качестве параметра Sender и в таком варианте?

Все, что было написано в хелпе я приложил, и теперь расскажите, где там написано о том, что можно писать Application.Terminate или о чем еще надо.

Читал я две книжки, там и про ООП написано и про сами языки, но нигде не написано, что именно можно указывать значением свойства Event

У меня среднее знание английского, понять пойму, рассказать - посложнее будет, да и вообще какое ваше дело?
Никто не дезинформирует, это чистейшая правда, пройдитесь по форумам, к нас чтобы выяснить какую-то мелочь надо будет пол часа доказывать, что ты не верблюд.

Я же написал: если хочешь стать программистом.

Sender тут ни при чём, его роль обычно служебная и состоит в том, чтобы передать в обработчик информацию о любом объекте для дальнейшей обработки в коде, которая производится отнюдь не всегда. А в таком варианте Self позволяет закрыть именно тот экземпляр TForm, из которого вызывается метод.

Точку с запятой в конце строки не поставил?
Если поставил - посмотри, что у тебя в списке модулей (uses). Наверняка там нет модуля Forms, в котором прописан идентификатор Application.

Ок, ТС лох и опозорился и не хочу я стать программистом, довольны?
Тогда Self.Close ничем не отличается от Close, так?
ЧТО??? Точка с запятой??? Это где вы видели, чтобы имя обработчика указывалось с точкой с запятой? Для уверенности, попробовал поставить точку с запятой, получил выщеуказанное мною сообщение об ошибке.
На чем основаны ваши предположения? На том, что ТС нуб?
1. Если бы в uses не было Forms, то компилятор бы ругался даже на объявление моей формы.
2. Компилятор сам добавляет недостающие модули в uses.
3. Если бы модуля не было, то я получил бы Undeclared Identifier "Application.Terminate", а я получил "is not valid identifier" (для знатоков английского - не верный идентификатор)

Плохо приложил.

Зачем хамишь? Лучше бы прислушался и вник.

Можно сказать и так. Но лучше приучаться писать именно Self.Close. Причин много. Есть, например, блоки with Object do begin...end, в которых могут быть объекты со своими методами Close.

Кто тебе сказал, что Application.Terminate - это имя обработчика? Это код, который нужно вставить в обработчик. Для чего, по твоему, в конце строки добавляют точку с запятой?

Не факт.

Ничего подобного. Компилятор сам не добавляет ничего - это дело среды.

Ну так прочитай в хелпе описание этой ошибки и сделай выводы.

Расскажите теперь о категориях оценки хорошо/плохо приложил, а что что-то я таких не знаю.Я итак знал, что данная процедура находится в модуле Forms из Forms.pas и то, что она завершает приложение. Узнал, что данная процедура вызывает WinApi функцию PostQuitMessage. То, что WM_QUIT и закрытие главной формы вызывает Terminate я подозревал, как думаю терминейт вызывает и WM_EXIT|Halt. Но! как данная справка поможет мне в решении проблемы?

Потому что каждый вновь прибывший уверенно говорит, что я полный лох и не могу одну строку кода написать.
К тому же, к чему я должен по вашему прислушиваться? как оказалось вы даже не поняли, что я хочу сделать! К тому же я до сих пор обращаюсь в кам на Вы, что вы почему то не делаете, видимо воспитание такое.
П.С. Спасибо за все новое, что я узнал в этой теме, а это пока из 24 комментов то, какую WinApi функцию вызывает terminate и какой вызывается он сам.
О БОГИ!!! Вы меня совсем не слушали? Я не спрашивал, как создать свой обработчик и написать туда одну из множества команд завершения приложения, я спрашивал, как можно вместо имени обработчика указать саму процедуру выхода из приложения (надеюсь теперь все поймут меня)
Ну расскажите мне тогда, как без использования определенного модуля компилятор вытащит исходник и будет знать, что за функцию я написал?
Да, согласен, тут лоханулся, я хотел сказать, не компилятор добавляет, а среда добавляет автоматически (с версии 2009 вроде бы среда это делает)
Хм... вы думаете я ни разу не встречался с такой ошибкой? ошибаетесь, и опять же привожу вырезку из хелпа, и тогда встречный вопрос, сделайте вывод из этой вырезки (кроме того, что означает сама ошибка - неверный идентификатор)

Хорошо, процитируем топик.

Обоснуй, почему бред.

Здесь проще ответить вопросом: а зачем?

Мне интересно, что значит "нет соответствующей процедуры". В норме такого быть не должно.
Ну раз у тебя ХЕ2, задам такой вопрос: приложение, которое ты делаешь - VCL или FireMonkey?

Я написал в следующем посте, что создавать обработчик и писать в нем всего одну команду имхо бред.
Я немного не так себя процитировал, я спрашивал, можно ли вместо имени обработчика указать процедуру или нет, если да, то как, если нет, то почему.
Что значит? Да очень просто, в имени обработчика пишите "qwertyui" и не объявляйте и не создавайте такую процедуру в коде, как результат объявление есть, а самой процедуры обработки нет.
VCL

Даже комментировать не хочется.

Если бы вместо пункта меню была, например, кнопка, у неё есть свойство ModalResult, установив которое, можно задать закрытие формы по щелчку. Но у пунктов меню такого свойства нет. Так что... пиши обработчик с одной командой, хотя бы в ввиде, приведённом в верхнем коде поста:
http://forum.oszone.net/post-2086467-6.html

Почему?
Да так у меня давно уже написано, просто перебираю код, пытаюсь избавиться от говнокода.

Кстати вопрос не по теме, но не знаешь какой-то компонент или dll для работы с 7zip архивами?

Мне просто стало понятно, что ты пытался написать Form.Close в инспекторе объектов. В нём можно писать только названия уже объявленных в описании класса формы обработчиков событий. Для чужих процедур и методов он не предназначен.

В этом никакого говнокода нет. Но многие начинающие злоупотребляют такими обработчиками, помещая их на одну форму по нескольку штук. Вот от чего нужно избавляться. Вместо этого достаточно присвоить один обработчик нескольким пунктам/кнопкам и.т.п. через тот же инспектор объектов

Честно, прочитывая эту тему поймал себя на мысли, что вы, не умеете пользоваться поиском.

http://www.7-zip.org/links.html
http://stackoverflow.com/questions/7...ip-from-delphi
http://www.angusj.com/delphi/

Без обид.

В смысле создать одну поцедуру обработки и назначить ее обрабатывать событие нескольких компонентов? если да, то я так и делаю, и тогда давно интересовавший вопрос, как сделать так... хм... в общем есть множество компонентов Met1 Met2.... и вот допустим одна процедура обоработки, как ее переделать, чтобы можно было использовать для нескольких компонентов?
Конечно не обижаюсь)
Я пробовал много вариантов, с сайта 7zip скачивал порт для делфи, но что-то было не так, то ли функционал то ли что. Находил так же другие компоненты, пытался их использовать, один был очень даже неплох, сжимал нормально, а вто с расжатием одна проблема была, при сжатии если нужный файл находился мне допустим в C:\Windows\"много всяких папок"\notepad.exe, то архив будет такой:
папка Windows -> много всяких папок -> нужный файл
Насчет JclCompression - я вроде бы в нем разобраться не смог( Со стандартной библиотекой System.Zip тоже какие-то траблы были

Здесь важно, какого типа этот Met11. Пусть для примера это будет TMyType.
Возьмём тот же код и слегка переделаем, используя Sender.
Переделка слегка грубовата - надо проверить на предмет скобок. Из движка форума это неудобно.

Я примерно так и думал, но вот еще в чем дело, эти самые Met1,Met2... это TSpinEdit, при изменении MetX изменяется также MetLabelX и так для каждого компонента, поэтому надо еще как-то привязаться к номеру этого самого MetX
Надеюсь понятно написал.

Начиная с D2010, можно решить и этот вопрос. Но тут уже посложнее. Привязка будет не к номеру, а к имени.

У любого компонента есть свойство Name. Все компоненты формы можно обойти в цикле и найти нужные, с нужными именами. Пример:
Находишь нужный Label, присваиваешь ему Caption - и задача решена.

Ну... получилось что-то такое:
Думаю стоит выделить поиск компонента в отдельную функцию, а то понадобится она еще не раз, так как у меня около 2к строк кода просто повторение почти одного и того же кода(

Ну это уж решай сам - всё зависит от конкретной задачи.

И, кстати, чтобы код проще читался, можно объявить отдельную переменную типа TsSpinEdit, присвоить ей значение Sender as TsSpinEdit и указывать в коде её, а не столь длинную фразу.

Нашел вот еще один способ:

Согласен, тоже вариант.

Мне кажется он получше, так как зачем перебирать все компоненты, если можно использовать уже готовую функцию для этого.

Он лучше в том случае, когда надо найти один компонент. Если же нужно найти сразу группу компонентов, лучше сразу попробовать сделать это в одном цикле и тут же присвоить значения ссылок на эти компоненты соответствующим переменным.

А что мешает сделать типа такого?

Ну что же, весь код я пересмотрел и переделал, в результате главный исходник уменьшился с 2900 строк кода до 1700, что не может не радовать. Также введя такую обработку я избавился от головняка в плане сохранения настроек в файл, за что огромное спасибо. Однако остается открытым два вопроса, каким образом можно объединить такие процедуры:
И так далее. Весь вопрос в том, как бы перебрать все эти компоненты, учитывая, что название компонентов разной длины, единственное, что везде одинаково это окончание названия компонента ~Label/~Level/~Time. Используя всякие AnsiIndexStr/AnsiPos/Copy/Delete/Insert и т.д. из модуля StrUtils я намучаюсь так, что брошу это дело...

novashdima, желательно под каждый новый вопрос, не имеющий непосредственного отношения к названию этой темы, заводить новую.

FindComponent - это такой же цикл. По сути дела, это выполнение одной и той же работы по нескольку раз. В случае очень многократного применения могут быть проблемы с производительностью.

Понимаю, но имхо лучше все вопросы обсудить и закрыть тему, а не создавать кучу тем(в данном случае мне пришлось бы создавать темы для: сжатия 7zip, поиск компонента, загрузка из ини, сохранение в файл, суть этой темы), вышло бы тем 10.

Понятно, тогда подскажите, как найти оптимально 3 раза по 3 компонента, не перебирая все компоненты 9 раз. Как проверить, все ли компоненты найдены и как узнать, что я все нужные компоненты нашел и выйти из цикла. Ничего простого не приходит в голову, только флаг для проверки найденных всех компонентов, при нахождении компонента сразу же присваивать его переменной...
И подскажите по поводу остальных вопросов.

upd
Создал темы под каждый вопрос.

На первый взгляд - три цикла. Конкретно каким образом - зависит от задачи.