Как создать одну процедуру на несколько объектов?

← →
неважно (2004-02-01 18:42) [0]

Вопрос, наверное, ламерский, но это неважно. Как можно сделать, чтобы, к примеру, процедура OnButtonClick была одинаковой для многих объектов. то есть написать эту процедуру 1 раз и мспользовать ее в OnButtonClick многих объектов на форме.

← →
8ung © (2004-02-01 18:47) [1]

Ну, два раза щелкаешь по Button1. Пишешь процедуру. Затем один раз на Button2, в инспекторе объектов выбираешь вкладку Events. Там в OnClick щелкаешь на кнопочку с треугольником и выбираешь Button1Click.

← →
Юрий Зотов © (2004-02-01 18:49) [2]

В Инспекторе объектов просто назначьте для всех объектов уже имеющуюся процедуру, а не создавайте новые.

Параметр Sender - это и будет тот объект, который вызвал процедуру.

← →
неважно (2004-02-01 18:58) [3]

Ага. вроде понял. а если из под проги, то тогда писать к примеру TForm1.OnClick:=ProcClick;(при готовой процедуре ProcClick) ?

http://www.delphikingdom.ru/treasury/event.htm

Ну вообще если речь идет о событиях, то можно и так а вообщем случаи можите посматреть вопрос про callback функции (чуть ниже вопрос всплывал) или на организацию событий в vcl.
В случаи клик событий :) т.е. ЧтоТоOnClick то лучше пользоваться TAction"ом (см TActionList) он обладает рядом дополнительной функцияональности удобной в подобном случаи.

С Уважением Saracin.

Как создать одну процедуру на несколько объектов? Найти похожие ветки