[Meepo]

Доброго времени суток всем.

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

В общем, допустим я в своей программе динамически создаю компонент, и мне нужно присвоить его обработчику (например, OnClick) свою процедуру.

Нужно ли всякий раз писать (Sender: TObject)? И как передать в эту процедуру (при нажатии на этот компонент) свое значение? Т.е. если мне, скажем, нужно передать какое-то число, то мне нужно создать процедуру:

Код:

procedure TForm1.myProcedure(Sender: TObject; chislo: integer);

Но как ее назначить обработчику? по второму параметру - понятно, а по первому - нет, т.к. я не могу передать ни Self, ни nil, ибо компилятор Delphi начинает ругаться что-то про несовместимость.

Может есть какие-то способы решения этого вопроса?

[Freeman]

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

Нужно ли всякий раз писать (Sender: TObject)?

Нужно, потому что такова сигнатура TNotifyEvent в VCL. И пишется он так не ради забавы, а через Sender передается ссылка на вызвавший событие компонент. Таким образом при входе в обработчик у тебя как бы два Self -- один от класса-владельца обработчика, а другой -- от вызывающей стороны. С пониманием этого подружить их в коде будет намного проще.

Передача дополнительных параметров в обработчики, как можно догадаться, обычно делается через контекст экземпляра одной из взаимодействующих сторон. Для этого в компонентах VCL предусмотрено свойство Tag, которому можно присвоить числовое значение, а программно -- и указатель.

[poli-smen]

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

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

Сначала лучше прочитать хороший учебник по Delphi.

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

В общем, допустим я в своей программе динамически создаю компонент, и мне нужно присвоить его обработчику (например, OnClick) свою процедуру.

Присваивать нужно не процедуру, а метод объекта соответствующего типа. Обработчиком называется не свойство объекта, а сам метод который присваивается этому свойству. Это называется "Делегирование события" когда событие произошедшее в одном объекте (у тебя это динамически созданный компонент) обрабатывает другой объект (Form1).

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

Нужно ли всякий раз писать (Sender: TObject)?

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

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

И как передать в эту процедуру (при нажатии на этот компонент) свое значение?

Вот через Sender добираешься к объекту вызвавшему событие и получаешь от него все нужные значения.

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

Т.е. если мне, скажем, нужно передать какое-то число, то мне нужно создать процедуру:

Код:

procedure TForm1.myProcedure(Sender: TObject; chislo: integer);

Это не процедура, это метод

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

Но как ее назначить обработчику?

Это и есть обработчик события и присваивать его нужно однотипному свойству другого объекта.

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

по второму параметру - понятно, а по первому - нет, т.к. я не могу передать ни Self, ни nil, ибо компилятор Delphi начинает ругаться что-то про несовместимость.

Через параметр Sender объект у которого произошло событие передаёт указатель на себя (Self) тому объекту который будет обрабатывать это событие.

[Meepo]

Спасибо всем отписавшим.

Как я понял, в уже разработанные компоненты нельзя передать дополнительные (свои) методы через обработчик события, т.е. если у OnClick кнопки (TButton) Sender: TObject - я не могу ничего добавить? Только в обработчике (в своем) добираться через Sender передавшего объекта и выполнять какие-то определенные действия? Другого не дано, я так понимаю?

[poli-smen]

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

Как я понял, в уже разработанные компоненты нельзя передать дополнительные (свои) методы через обработчик события, т.е. если у OnClick кнопки (TButton) Sender: TObject - я не могу ничего добавить?

Параметром метода нельзя. А зачем это может понадобиться?

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

Только в обработчике (в своем) добираться через Sender передавшего объекта и выполнять какие-то определенные действия? Другого не дано, я так понимаю?

Именно так и нужно делать. И как правильно заметил Freeman у каждого компонента есть целочисленное свойство Tag которое программист может использовать по своему усмотрению.

[Meepo]

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

[poli-smen]

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

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

Всё же непонятно в каких случаях это может быть полезно, ведь обработчики событий предназначены не для "ручного" их вызова (хотя это и возможно), а для "автоматического", по пришествию события. А к объекту у которого произошло это событие легко можно добраться через Sender и узнать у него все значения которыми он обладает.

[Meepo]

Я динамически создаю пункты меню в TMainMenu, и мне необходимо передавать свой параметр (строковый), с которым работает обработчик OnClick. Закинуть его в Tag нельзя, приходится колдовать, создавать пункты с именами нужного значения, и в обработчике OnClick - снимать с имени передавшего указатель на себя пункта. Но проблема лежит дальше, т.к. кроме TMainMenu я также создаю TPopupMenu (для значка в трее), и приходится давать другое имя, и в обработчике уже снимать первые несколько букв, определяя тем самым строковое значение, и выполнять действие.
Возможно, это глупо, но до другого метода я не додумался. Поэтому было бы проще, если бы можно было в обработчик передавать дополнительные параметры, тогда плясок с бубном было бы меньше.

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

[NumLock]

обработчику и так параметр передается Sender: TObject

[Freeman]

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

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

В ООП глобальные переменные -- поля класса. Заведи экземпляр TStrings в private-секции, а в Tag передавай индекс.