Eingabefelder zur Laufzeit onKeyPress zuweisen

[Leuselator]

Delphi-Quellcode:

// Weist allen input Feldern auf der Sendernform (Dialog) ihre dazugehörige Suchenfunktion zu 
procedure assignOnEnterSearch (Sender : TForm); 
var 
  iCompCount : integer; 
  tmpComp : TComponent; 
begin 
  // Gehe alle Komponenten durch 
  For iCompCount := Sender.ComponentCount-1 downTo 0 do 
  begin 
    tmpComp := Sender.Components[iCompCount]; 
    // Prüfe ob die Komponente ein Inputfeld ist 
    if      (tmpComp is TLabeledEdit) then TLabeledEdit(tmpComp).OnKeyUp := XXX
    else if (tmpComp is TEdit)        then TEdit(tmpComp       ).OnKeyUp := XXX;
  end; 
end;

sollte gehen...
Gruß