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!