![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сравнение событий Onxxxx
atruhin © (2006-10-23 16:47:00)Делаем присваивание:
Button1.OnClick := MyProc;
Далее необходимо сравнить:
if Button1.OnClick = MyProc then .....
Выдает ошибку: Not enought actual parameters. Как это сделать?
atruhin (2006-10-23 17:41:00) [1]> [3] Джо © (23.10.06 17:04)
Большое спасибо. Все работает.
Джо (2006-10-23 17:04:00) [2]> [0] atruhin © (23.10.06 16:47)
Это еще смотря на то, что у тебя MyProc. Если это идентификатор метода, то тогда придется делать что-то в роде:
var
P: TNotifyEvent;
begin
P := MyProc;
if @OnClick = @P then
Плохиш (2006-10-23 16:56:00) [3]Первой собачки не надо :-)
Плохиш (2006-10-23 16:54:00) [4]
> if Button1.@OnClick = @MyProc then .....
?