Я пытаюсь написать в Lazarus Dbgridfooter (калькулятор сумм). Для этого мне нужно использовать событие Field.OnChange, но обычно это событие занято другой процедурой. Итак, мне нужно на время расчета выключить оригинальную процедуру, а затем подключить к этому событию Мою процедуру. Итак, я должен получить и сохранить адрес оригинальной процедуры, имя которой я не знаю. В простом алгоритме это должно выглядеть следующим образом.
xyz: = field.Onchange: = procX () <- получить адрес неизвестной процедуры procX () и запомнить его в xyz </p>
field.Onchange: = @ MyCalcProcedure <- Я подключаюсь Моя известная процедура вычисления </p>
field.Onchange: = @ xyz <- подключить исходную процедуру procX (), которая была сохранена в xyz и имя которой я не знаю из шага 1. </p>
В нижнем колонтитуле RxDbgrid так много ошибок, поэтому я пытаюсь сделать это самостоятельно. Если это сработает, я поделюсь исходным кодом для этого в Delphi или Lazarus.