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.