[morebeauty]

Думаю, краткого описания будет достаточно.

Итак, есть готовое (рабочее) приложение с исходниками. Все основные задачи описаны в методах одного класса. Вопрос, как мне можно не переделывая каждый метод назначить права?

Например есть методы:

Код:

procedure method1
begin
код
end;

procedure method2
begin
код
end;

procedure method3
begin
код
end;

А мне надо, не внося изменения в тело каждого метода перехватывать их вызов. То есть в идеале описать класс вида

Код:

TMyClass = class
private
.........
public
Property BeforeMethod1_Execute....
Property BeforeMethod2_Execute.....
Property BeforeMethod3_Execute....
end;

procedure BeforeMethod1_ex
begin
if condition then перейти к выполнению метода1 основного класса;
end;

procedure BeforeMethod2_ex
begin
if condition then перейти к выполнению метода2 основного класса;
end;

procedure BeforeMethod3_ex
begin
if condition then перейти к выполнению метода3 основного класса;
end;