Erstellter Komponente Prozedur zuweisen

[DeddyH]

Meinst Du so etwas?

Delphi-Quellcode:

type
  TDeinForm = class(TForm)
  ...
  private
    procedure ListBoxesOnExit(Sender: TObject);
  ...
  end;

...

procedure TDeinForm.ListBoxesOnExit(Sender: TObject);
begin
  MachWasMitDerListBox(Sender as TListBox);
end;

...

for i := Low(DeinListboxArray) to High(DeinListboxArray) do
  DeinListboxArray[i].OnExit := ListBoxesOnExit;