[Lothlorien]

Всем привет!

На досуге работаю над чем-то вроде движка, который позволяет посредством интерфейса командной строки управлять внутренностями программы. Например, есть возможность прописать в консоли что-то типа "Form1.Button1.Left:=Form1.Button1.Left - 10", и указанный объект (Button1) будет смещен на 10 пикселей влево, хвала механизму RTTI и несложному самодельному интерпретатору команд.

Однако, продвижение в работе застопорилось, как только я решил добавить возможность переприсваивать значения не только полей, но и методов (скажем, чтобы поддерживались и работали также команды вида "Form1.Button1.OnClick:=Form1.Button2.OnClick" ). Оказалось, решение проблемы неинтуитивно.

Можно, конечно, сделать примитивно:

Код:

TargetObject: TControl;
MethodName: string;
NewMethodAddress: Pointer;
{...}
MethodName:=UpperCase(MethodName);
if MethodName = 'ONCLICK' then
  @TargetObject.OnClick:=@NewMethodAddress
else
if MethodName = 'ONMOUSEDOWN' then
  @TargetObject.OnMouseDown:=@NewMethodAddress
else
{... и так далее, список на несколько экранов, плюс способности Ванги угадывать, какие вообще методы есть в данном классе ...}

Но мне на такой код даже смотреть больно

Итак, вопрос такой: есть ли более элегантный способ "заменить" нужный метод в рантайме? Какая-то магическая функция SetMethodAddress?