Formularname und KomponentenName ermitteln

[Jerry]

hallo zusammen

was passt bei folgendem Code nicht?

Delphi-Quellcode:

procedure Tfrm_Form.edt_edit1(Sender: TObject);
var
  FormularName: String;
  aktiveKomponente : String;
begin
  FormularName := Self.Name;
  aktiveKomponente := Self.ActiveControl.Name; // <--- hier zugriffsverletzung aber wieso????
  ShowMessage(FormularName + ' ' + aktiveKomponente);
end;

Wo mache ich den Überlegungsfehler?

Danke für Euren Tipp.

Grüsse vom Bodensee!

[Luckie]

Ich habe keine Probleme mit dem Code:

Delphi-Quellcode:

var 
  FormularName: String; 
  aktiveKomponente : String; 
begin 
  FormularName := Self.Name; 
  aktiveKomponente := Self.ActiveControl.Name; // <--- hier zugriffsverletzung aber wieso???? 
  ShowMessage(FormularName + ' ' + aktiveKomponente); 
end;

Geht wunderbar.

[Jerry]

danke, dann muss ich den fehler woanders suchen.
aber jetzt habe ich die gewissheit, dass der code so stimmen sollte.

gruss jerry

[Der_Unwissende]

Hey,
vielleicht solltest du ganz prinzipiell auch noch die Möglichkeit abfangen, dass es mal kein ActiveControll gibt

Delphi-Quellcode:

 if assigned(self.ActiveControl) then
  begin
   aktiveKomponente := Self.ActiveControl.Name; // <--- hier zugriffsverletzung aber wieso????
  end
 else 
  begin
   aktiveKomponente := '';
  end;

Gruß Der Unwissende