Проверка свойств-методов объектов

[notricky]

Собственно вот такая строчка:

  if TCustomPopupForm(self.PopupForm).OnKeyDown <> KeyDown  then

вызывает ошибку при компиляции Not enough actual parameters

Собственно как получить подобное условие?
И интересен будет комментарий к этому - почему такая ошибка.

Изменено 8 октября, 2016 пользователем notricky

[Равиль Зарипов (ZuBy)]

2 часа назад, notricky сказал:

Собственно вот такая строчка:

  if TCustomPopupForm(self.PopupForm).OnKeyDown <> KeyDown  then

вызывает ошибку при компиляции Not enough actual parameters

Собственно как получить подобное условие?
И интересен будет комментарий к этому - почему такая ошибка.

эм, что вы хотите сделать?

если проверить обработчик привязанный к событию, то через Assigned

если хотите проверить параметр который возвращается в теле события, то нужно написать обработчик и присвоить его

TCustomPopupForm(self.PopupForm).OnKeyDown := MyEventKeyDown;

и уже в теле MyEventKeyDown проверять параметр

[notricky]

KeyDown в моем примере - это обработчик.

Задача была проверить какой обработчик в OnKeyDown. Чтобы не присваивать каждый раз обработчик, если он тот же на входе.

[Равиль Зарипов (ZuBy)]

4 часа назад, notricky сказал:

KeyDown в моем примере - это обработчик.

Задача была проверить какой обработчик в OnKeyDown. Чтобы не присваивать каждый раз обработчик, если он тот же на входе.

это не лучшее решение, используйте к примеру Tag формы, каждый обработчик имеет свой номер.

так проще будет ориентироваться и выполнять сравнения

[kami]

Не претендую на самое лаконичное решение, но проверку можно организовать так:

var
  tmp: TNotifyEvent; // понятно, что тут должен быть нужный тип события, лень смотреть, что там с OnKeyDown
begin
  tmp:=myProc;
  if (TMethod(OnActivate).Code = TMethod(tmp).Code) and (TMethod(OnActivate).Data = TMethod(tmp).Data) then
    ;// именно myProc - обработчик события OnActivate

 

[kami]

В 08.10.2016 в 04:24, notricky сказал:

И интересен будет комментарий к этому - почему такая ошибка.

Потому что компилятор хочет сравнить результат работы метода со второй сравниваемой переменной. И он видит, что метод имеет параметры, но они не передаются. Правда, если подставить к примеру что-нибудь фейковое, то компилятор начнет ругаться, что метод не возвращает значения, т.к. он объявлен как procedure of object

Изменено 22 октября, 2016 пользователем kami

[krapotkin]

TCustomPopupForm(self.PopupForm).OnKeyDown <> @KeyDown

[notricky]

В 22.10.2016 в 12:47, krapotkin сказал:

TCustomPopupForm(self.PopupForm).OnKeyDown <> @KeyDown

Тогда уж @ вначале TCustomPopupForm тоже

[kami]

21 час назад, notricky сказал:

Тогда уж @ вначале TCustomPopupForm тоже

Не уверен, но может быть так, что сравнение указателей (если это "проглотит" компилятор) будет сравнивать только адреса методов в VMT. А нужно сравнивать адресацию метода и объект, к которому этот метод относится (например - если создано две формы одного класса и обработчик назначен на одну из них). Вероятно, @ при сравнении myKeyDown = Form2.OnKeyDown будет давать ложно-положительные срабатывания, если в реальности myKeyDown = Form1.OnKeyDown.