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

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

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

Как узнать имя события в Run Time [D7, WinXP]

ancot © (2007-10-19 15:09:00)
Всем доброго дня!
Подскажите есть ли возможность узнать имя события в Run Time при наступлении этого события.
Например: для Button методам OnClick и OnExit назначен один итотже обработчик NotifyEvent.
как различить события в процедуре TForm.NotifyEvent(Sender: TObject)?

Однокамушкин (2007-10-21 16:27:00) [1]

> ancot (19.10.07 15:34) [4]
> дельфийский стэк вызовов както видит...

Видит он потому, что в программу включается отладочная информация... выключите соответствующую опцию компилятора, и он тоже не увидит

Palladin (2007-10-19 20:06:00) [2]

> Юрий Зотов © (19.10.07 19:58) [9]

да да :) именно обоим :) а находим первый попавшийся

Ins (2007-10-19 20:02:00) [3]

> Находим, какому из них назначен выполняемый обработчик.

Обоим :)

Юрий Зотов (2007-10-19 19:58:00) [4]
Берем Sender.
Формируем список его событий типа TNotifyEvent.
Находим, какому из них назначен выполняемый обработчик.
Берем имя этого события.

Anatoly Podgoretsky (2007-10-19 19:17:00) [5]
> ancot (19.10.2007 15:46:07) [7]

Назначить каждому событию свой обработчик с таким кодом

begin
CommonCode(Name, другие параметы);
end;

procedure .CommonCode(Name: string, другие параметы);
begin
end;

ancot (2007-10-19 15:46:00) [6]
Описаный выше участок кода загрузки формы можно упростить если тип события будет совподать с именем обработчика. но все равно придется назначать обработчик для каждого имени события.

ancot (2007-10-19 15:40:00) [7]
форма в целом грузится из файла.
в момент загрузки контролов в зависимости от типа события (TNotifyEvent,TMouseEvent, TKeyPressEvent, TKeyPressEvent) подключается соответствующий обработчик

if SameText(pi.PropType^.Name, 'TNotifyEvent') then begin p := Form.MethodAddress('NotifyEvent'); if Assigned(p) then begin mtd.Code := p; mtd.Data := Form; SetMethodProp(AComponent, pi.Name, mtd);

Reindeer Moss Eater (2007-10-19 15:35:00) [8]
А обработчик во время написания не знает чей он орабочик?

ancot (2007-10-19 15:34:00) [9]
дельфийский стэк вызовов както видит...

ancot (2007-10-19 15:32:00) [10]
делаю дизайнер форм.
в рабочем режиме всем контролам на форме назначается один и тот же обработчик наприме для
MouseDown, MouseUp -> MouseEvent
KeyDown, KeyUp -> KeyEvent

OnClick, OnChange, OnExit, OnEnter и т.д. -> NotifyEvent

знать имя события необходимо чтобы выполнить скрипт соотв. этому событию и контролу (контрол конечно есть-sender).
Хотелось зделать универсально чтобы не плодить к каждому событию свой обработчик.

Сергей М. (2007-10-19 15:20:00) [11]
А зачем понадобились эти имена ?

Palladin (2007-10-19 15:18:00) [12]
да в общем то, AFIAK, никак... разве что через глубокий анализ стека (через попу грубо говоря)...

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

Наверх

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