Ähm Dax, hast Du mein Beispiel Projekt ausprobiert?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var p: Pointer;
begin
FDummy.Procedure1; // <- Hier möchte ich hin ;-)
end;
{snip}
procedure TDummy.Procedure1;
var Address: Cardinal;
begin
Address := GetCallingAddress; // <- Bei Deinem Vorschlag landen wir hier
{snip}
end;
-
arno