Name einer Procedur rausbekommen

[Martin W]

Hi;

Delphi-Quellcode:

unit uFormManager;

procedure TFormManager.DoWhatYouWant(Sender: TObject);
var
  a: string;
begin
  cProcName := ????
  a := cProcName; 
end;

procedure TFormManager.DoSOmething(Sender: TObject);
var
  a: string;
begin
  cProcName := ????
  a := cProcName;
end;

Ich möchte nun das cProgName folgendem zugewiesen wird

cProcName := <UnitName> + '.' + <FormName> + '.' + <Name der Prozedure>; IN der Oberen Procedur sollte dann rauskommen:

cProcName = 'uFormManager.TFormManager.DoWhatYouWant'; in der unteren

cProcName = 'uFormManager.TFormManager.DoSOmething'; Wie bekomme ich diese 3 Werte jeweils raus ??? Danke für antworten im Voraus.


Gruß
martin w.