Вообще можно определить, при условии, что это не процедура, а метод класса, и она содержится в rtti (т.е для версий ниже d2010, в секции published). например, пробежать по vmtMethodTable, в поисках наибольшего адреса, меньшего адреса вызова.
по-быстрому получился такой вариант: (без учета данных из extended rtti для d2010+)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
function CalledMethName(Obj: TObject): string ;
var
CallAddr, MethAddr, MaxAddr: Cardinal;
pb, methEnd: PAnsiChar;
i, Count: Integer;
begin
asm
mov CallAddr, ebp;
add CallAddr, 4 ;
end ;
MaxAddr := 0 ;
CallAddr := PCardinal(CallAddr)^;
pb := PAnsiChar(Obj.ClassType) + vmtMethodTable;
pb := PPointer(pb)^;
if Assigned(pb) then
begin
Count := PWord(pb)^;
inc(pb, SizeOf(Word));
for i := 1 to Count do
begin
methEnd := pb + PWord(pb)^; //Len
Inc(pb, SizeOf(Word));
MethAddr := PCardinal(pb)^; //CodeAddress
if (MethAddr < CallAddr) and (MethAddr > MaxAddr) then
begin
MaxAddr := MethAddr;
if MaxAddr <= MethAddr then
Result := Obj.MethodName(Pointer(MethAddr));
end ;
pb := methEnd;
end ;
end ;
end ;
В любом методе вызвать CalledMethName(Sender) для получения имени
