OnChange Ereigniss in eine Combobox/Listbox legen

[mkinzler]

Genau das meinte ich

[Roefe68]

Jetzt habe ich es so wie ich es wollte.
Hier die procedure:

Delphi-Quellcode:

procedure TForm1.Erzeuge_Editfeld(iPositionLinks,
                                  iPositionOben,
                                  iBreite,
                                  iEreignis_OnChange,
                                  iEreignis_OnKeyPress  :integer;
                                  sKompName,
                                  sKompLabel,
                                  sKompText             :String;
                                  bVerschiebbar,
                                  bSichtbar,
                                  bAktiv                :boolean;
                                  ParentForm            :TWinControl);

begin
  try
    Edit_Array[AktuellesDynamischesEditfeld] := TEdit.Create(self);
    with Edit_Array[AktuellesDynamischesEditfeld] do
    begin
      Parent             := ParentForm;
      Name               :='Edit_'+sKompName;
      Left               := iPositionLinks+150;
      Top                := iPositionOben;
      //OnChange Event
      case iEreignis_OnChange of
        0: OnChange := Suchfeld_OnChange;
        1: OnChange := Provider_OnChange;
        else OnKeyPress := nil;
      end;
      //OnKeyPress Event
      case iEreignis_OnKeyPress of
        0: OnKeyPress := Suchfeld_Integer_OnKeyPress;
        1: OnKeyPress := Suchfeld_Float_OnKeyPress;
        2: OnKeyPress := Suchfeld_AlphaNum_OnKeyPress;
        else OnKeyPress := nil;
      end;
      OnMouseMove        := Komponente_OnMouseMove;
      Color              := clWhite;
      Text               := sKompText;
      Visible            := bSichtbar;
      Enabled            := bAktiv;
      Width              := iBreite;
    end;
    //ListBox_DynFelder.AddItem(Name,Edit_Array[AktuellesDynamischesEditfeld]);
    inc(AktuellesDynamischesEditfeld);

    //Label zur Komponente erzeugen
    Erzeuge_Label(iPositionLinks,iPositionOben,iBreite,sKompName,sKompLabel,true,true,true,ParentForm);

    except
    on E: Exception do
    begin
      LogException( 'Erzeuge_Editfeld: ', E );
    end;
  end; {try}
end;

Allen Vielen Dank
RWP