Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TNotifyEvent; [D7, XP]

Страницы: < 1 2
АБВ © (2009-02-05 12:20:00)
Здравствуйте. Подскажите как к переменной Event типа TNotifyEvent, присвоить процедуру. Пробовал делать так:

procedure EventAction;
begin
ShowMessage('TEST');
end;

var
Event : TNotifyEvent;
begin
Event := EventAction;
end;

не вышло .. подскажите как правильно это реализовать ?

Ega23 (2009-02-05 13:15:00) [21]

> Воспользуйся англо-русским словарём для перевода выделенного
> слова, раз уж в хелп заглянуть западло.

Тут не всё так просто. В данной ситуации в качестве Sender может TMenuItem придти. А может и TCustomAction.

Плохиш (2009-02-05 13:09:00) [22]

> procedure EventAction( Sender: TObject);
>

Воспользуйся англо-русским словарём для перевода выделенного слова, раз уж в хелп заглянуть западло.

АБВ (2009-02-05 13:01:00) [23]
Мастера подскажите плз. Заполнил меню PopupMenu множеством элементов у которых одна общая процедура для отработки. Как в процедуре можно узнать из какого пункта меню была она вызвана.

Заполняю меню так:

var
Event : TNotifyEvent;
begin
Event := EventAction;
N48.Add(NewItem(LogText, 0, False, True, Event, 0, 'MenuItem1'));
end;

procedure EventAction(Sender: TObject);
begin
ShowMessage('TEST');
end;

АБВ (2009-02-05 12:26:00) [24]
Понял, спасибо =)

Ega23 (2009-02-05 12:22:00) [25]
type TNotifyEvent = procedure (Sender : TObject) of object;

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »