Die Idee von mkinzler gefällt mir sehr...
Nur weiss ich nicht die das zu verstehen ist.
Also ich habe jetzt eine Procedure meiner Form1 hinzugefügt und allen Editierfeldern diese beim KeyPress Event zugeordnet. Wie komme ich den Jetzt mit Sender an die Klassennamen?
Delphi-Quellcode:
procedure TForm1.einfuegemodus(Sender: TObject; var Key: Char);
begin
with (Sender as TEdit).<Methode> do
begin
showmessage(ClassName);
end;
end;