Здравствуйте.
Меня интересует как в Delphi можно передать процедуру как параметр функции.
А если подробней то вот такой код для примера.

Объявляю тип

и делаю саму процедуру куда буду передавать

При нажатии кнопки например делаю так

Так вот как видно мне нужно передать не сам адрес по которому находиться функция(WndProc) ,а адрес переменной отвечающий за эту функцию.
При выполнение выше приведенного кода у меня эррор 

Как на Delphi это правильно сделать?

зачем of object ?

Romikgy, ну так пишется вроде.
А что он означает?

Забыл. Надо @@ вместо @ использовать, что бы получить адрес переменной-процедуры/функции. И всего делов.

Ну например так

и так

Не работает.

ИМХО это говорит о том что эта процедура является частью объекта

Мм так как-тут бы сделать тогда?

Ak47black, я так и не понял проблемы...   

Так не катит?

  Это говорит о том что процедура является методом объекта я является записью из двух указателей, указателя на функцию и указателя на экземпляр объекта. Такой тип несовместим с обычным процедурным типом, потому при передаче обычной функции "of Object" нужно опускать.

Ak47black, определись что тебе надо передавать как параметр
метод класса 

или процедуру

Rennigth, ты передаёшь адрес функции ,а мне нужно передать адрес переменной в которой храниться адрес функции в этот проблема и заключается.

Bose, тут метод класса как я вижу.

Ak47black, так писать неправильно, адрес функции должен оставаться адресом функции, зачем же его приводить к типу Pointer? 

да =)


По-моему вы тут всё перемудрили с этими адресами. 

Вот простейший 100% работающий код из моего проекта(упрощённый вариант):


ForEachComponent вызывает процедуру-параметр aActionProcedure для каждого дочернего компонента aParent. 

А вот так вот этим всем пользуюсь:


И никаких явных манипуляций с адресами!   

Это сообщение отредактировал(а) Bose - 1.8.2007, 18:31

а на кой ляд тут var-параметр?

Думаю что он тут лишний. 

Yanis, ты можешь привести пример с WndProc ,ато я тут попробовал и невыход.

Ну надеюсь вы поняли что я хочу передать WndProc - главная процедура обработки сообщений окна, так вот я хочу передать в компонент чтобы он перенаправил её на свою процедура ,а та вызывала-бы настояшию, конечно я могу сделать это и на прямую(через присвоение), но ради спортивного интереса хочу научиться передавать переменную-процедуру.
Почему-то например Integer можно так передать ,а почему с функцией нето?
Тот код который в первом сообщении отражает суть проблемы.

Это сообщение отредактировал(а) Ak47black - 1.8.2007, 17:18

Ak47black, убери у себя var и посмотри мой пример.

эт как?   
Как я понимаю то, что ты подразумеваешь под этим есть не что иною как адресс на точку входа в процедуру. И вот скажи мне какая разница, будешь ты передавать через дополнительну переменную на эту процедуру или сразу указывать @Someproc.


Чесслово, себе и другим морочишь мозги.
 
А на счет var параметра как Bose тебе правильно уже сказал, убери его. Просто компилятор немного боиться таких маневров 

Неа.
У каждой формы есть переменная в которой храниться адрес процедуры обработки сообщений, вот я эту переменную и хочу передать.    

Это сообщение отредактировал(а) Ak47black - 1.8.2007, 17:59

Ну а что тебя останавлявает?

Была в своё время задачка на интерес:


Отгадайте как она решалась?

Rennigth, не мне навороты не нужны.
Я могу тогда просто прямым способом присвоить, я просто хочу узнать как передать переменную в которой храниться адрес обработки сообщений окна.
Тут Yanis писал чтото близкое к ответу.

Только мне не адрес нужен ,а переменную, хотя можно приравнять адрес к переменной.

Я надеюсь чётко написал что я хочу сделать, если нет то извиняюсь, скажите если что.

Ak47black, 
Читал усиленно всю тему. Но так и не понял, что в конце концов ты хочешь?!

Но то что я понял, это CALLBACK ф-ция при регистрации окна. Если  это так, то рекомендую обрабратиться к DRKB или DelphiWorld и поглядеть, как же там реализовано создание и отображение окна на чистом WinAPI. Да думаю ради увеличения знаний стоит туда глянуть
очень даже стоит.

ЗЫ:
Я вероятно не понял темы, прошу выразить задачу более отчетливо!

Я так и не понял, в чем проблема. Примеров приведено достаточно.

Так или иначе вот ещё один вариант:


Я только одного не понимаю: на хрена тебе именно переменная-то сдалась.

Это сообщение отредактировал(а) Bose - 1.8.2007, 20:16

Реши мою задачу. Ответ будет там.

Ну попробую так объяснить проблему, ок. на простых данных сначала.

Есть вот такой код

Этот код передаёт переменную i в процедуру SomeProc там её приравниваем 5.
Это надеюсь все поймут.

Теперь тоже самое с переменной которая содержит процедуру обработки окон.

Вот так надеюсь понятно   

Добавлено через 2 минуты и 7 секунд
Yanis, 

Так чтоли.

Ну да. Потому что WndProc - это не переменная, которую мы могли бы изменить, а процедура. 

Ясно. Насколько я понял ты хочешь заменить стандартную оконную процедуру WndProc. Единственный способ который мне приходит в голову:

Это создать наследника у которого перекрыт(overriden) метод WndProc.




Всегда убивают такие постановки задачи. Тут прежде чем найти решенить задачу, нужно найти что именно решать. Ребус в ребусе... 

Ну ты попробуй этот код запусти ;)
Надо добиться, что бы мой код работал -- два раза показал MessageBox.

Добавлено @ 20:50

Как мне кажется я понял, что хочет Ak47black и моя задачка является самым ярким примером.
Гипотетически Ak47black именно её и надо решить.

Это сообщение отредактировал(а) Yanis - 1.8.2007, 20:50

ну еще шляпу снять нафиг


Это сообщение отредактировал(а) MetalFan - 1.8.2007, 20:58

Насколько я понял решение ты сам и приводил сегодня тут


Хммм... посмотрим

Мне больше интересно понимает ли Ak47black сам чего хочет и как он это всё-таки реализует  

А ты не снимай ;) Так же интересней.

Добавлено через 1 минуту и 18 секунд
Ak47black
Мож забьёшь на задачу? 

Yanis, ну к этому дело идёт   .
Наверно тут нереально сделать так.
Но просто интересно.


Сохраняю старую процедуру->приравниваю свою которая процеживает сообшения->вызываю старую
Только это всё хочу в классе сделать.

Это сообщение отредактировал(а) Ak47black - 1.8.2007, 21:40

две собаки не катят. компилятор ругаецца. если только еще одну переменную вводить. иначе - никак

Ну да некатит   . Странно почему такое нельзя сделать.
По логике если можно передать Integer переменную, то почему нельзя переменную в которой храниться адрес процедуры. Они вроде даже и по размеру одинаковые.

Это сообщение отредактировал(а) Ak47black - 1.8.2007, 21:36

2 MetalFan, Ak47black
addr := @@proc;

Yanis, блин извращения   
Я что на Test процедуру посмотрел   .

Занудно: Не приравниваю а присваиваю. 
Нельзя так просто взять и присвоить что-то процедуре. Присваивать можно только переменным. В данном топике все мои примеры касались переменных процедурного типа. Чтобы решить твою задачу через попу, можно попробовать поковыряцца с таблицей адресов методов( не помню как она называется), может быть можно повесить хук(в них я вообще ничего не понимаю). 

А идеальный и верный с моей точки зрения вариант - это написать наследника который перекрывает WndProc и фильтрует сообщения. 

Хотя если тебе нужно реализовать такую фильрацию для кучи чужих разнородных компонент, то это тоже не вариант.

  

мда) аналогично)
ну да, я просто "пропустил" первую строку

Bose, лан я тут просто могу напрямую присвоить.
Просто хотел убедиться что так нельзя.

Если ты изначально хотел присвоить, то почему не написал так в вопросе?   

Гони плюс как компенсацию за потраченные нервы и время!  

Это сообщение отредактировал(а) Bose - 2.8.2007, 00:29

Yanis, 
Так нагляднее чем через две собаки 


пысы: Сорь что переименовал переменную, но есть такая (Addr) функция которой как раз можно воспользоваться   

Rennigth, да те же яйца... я бы не сказал, что нагляднее)