Mehrere Edit Felder dynmaisch erstellen, mit Prozedur

[Helmi]

Hallo,

hier mal dein Code mit Erweiterung um "check":

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure check(Sender: TObject);

{ ... }

procedure TfrmMain.check(Sender: TObject);
begin
  Showmessage('es wurde eine Änderung im Edit: ' +
              (Sender as TLabeledEdit).Name + ' durchgeführt!');
end;

procedure TfrmMain.FormCreate(Sender: TObject);
  var edit: TLabeledEdit;
      i: integer;
begin
  //label erstellen
  for i:= 0 to 25 do begin
    edit:=TLabeledEdit.Create(self);
    edit.EditLabel.Caption:=chr(65+i);
    edit.Name:=chr(65+i);
    edit.Text:='';
    edit.Width:=20;
    edit.Height:=20;
    edit.Left:=21*i+16;
    edit.Top:=128;
    edit.OnChange:=check;  //und hier soll die prozedur check; aufgerufen werden
    edit.Parent:=frmMain;
  end;
end;