Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Регистрация на сайте занимает 40 секунд, а пользу приносит годами.

Дополнительные функции

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Вопросы: 0
Ответы: 0
Мини-форумы: 0

Онлайн на сайте: 132 (3404)
Онлайн в IRC: 2 (17)
Последние новости:
8 июля 2023
Последний вопрос:
9 августа 2022, 09:39
Последний ответ:
29 марта 2018, 23:32

Лучшие эксперты

Подробнее »

Вопрос # 4 752

Раздел: Delphi » Общие вопросы по программированию

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!

Назначить событие на OnClick для TMenuItem

Создаю так:
Код:

var
item:TMenuItem;
begin
  item:=TMenuItem.Create(Form1);
  item.Caption:='Привет';
  item.OnClick:=процедура;

На подчёркнутой строке возникает ошибка. Нашёл, что надо присваивать не процедуру, а процедуру класса.

Сделал класс:
Код:

type
 myclass = class
 public
   procedure onclick(Sender: TObject);
 end;

В нём процедура
Код:

procedure myclass.onclick(Sender: TObject);
begin
  Memo1.Lines.Add((Sender as TMenuItem).Caption);
end;

Создаю экземпляр класса и теперь так назначаю OnClick:
Код:

var
item:TMenuItem;
begin
  item:=TMenuItem.Create(Form1);
  item.OnClick:=my.onclick(item);
  item.Caption:='Привет';

Выдаёт Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter' на подчёркнутую строку.

Подскажите какой параметр надо передавать или может как по-другому для динамически созданного TMenuiIem создать событие OnClick, чтобы можно было его в процедуре распознать(какой именно вызвал).

Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: zver777 (статус: Посетитель)
Вопрос отправлен: 20 ноября 2010, 23:53
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: DNK

Здравствуйте, zver777!
Нужно просто указать процедуру.

item.OnClick:=my.onclick;

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