Hey
man könnte auch diesen Code in eine Schleife betten und so alle Komponenten auf dem Formular abfragen.
Delphi-Quellcode:
if (form1.Components[0] is TEdit) then
if TEdit(form1.Components[0]).focused then
//...
Ich weiß allerdings nicht, ob dieser Code auch schnell ausgeführt wird
Gruß Looper