Передаче в параметрах процедуры другой процедуры

Тема в разделе "Delphi - Система", создана пользователем VahaC, 5 июл 2007.

  1. VahaC

    VahaC Well-Known Member

    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    Возможно из темы ничего не понятно тогда извините иначе сформулировать не смог.
    Ситуация следующая :
    есть две процедуры вида
    возможно ли передать процедуру Button1Click(Sender: TObject); в качестве
    параметра процедуре test(m:string; i: Integer); с сохранением её работо способности.
    Если да то плиз напишите как. :D
     
  2. Kuljok

    Kuljok Гость

    Код (Text):
    ...
    type
    TObjectProc = procedure(sender: TObject) of object;
    ...

    procedure test(proc: TObjectProc; m: integer; s: string);
    Для вызова просто пишешь внутри test
    Код (Text):
    proc(self);
    ну или что там хочешь передать вместо self
     
  3. DIR3ct0r

    DIR3ct0r Гость

    А для чего так делать? метод обработки нажатия на кнопке является Published, т.е. он виден для других методов данного класса.
     
  4. Barmutik

    Barmutik Гость

    Ну иногда передача функции полезна .. например часто используется в плагинной архитектуре...
     
  5. VahaC

    VahaC Well-Known Member

    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    Barmutik - Сенкс
    DIR3ct0r - Лично мне ето нужно для написания универсального обработчика событий динамически создаваемого меню
     
Загрузка...

Поделиться этой страницей