Mehrere Edit Felder dynmaisch erstellen, mit Prozedur

**holle**

ich möchte beim programmstart 26 editfelder erstellen und ihnen verschiedene eigenschaften zuordnen. soweit funktioniert das auch ganz gut. jetzt möchte ich aber zusätzlich noch das beim onexit ereignis die prozedur check aufgerufen wird, bei jedem edit feld. wie kann ich das realisieren???

hier mein quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

			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;

thanx holle

Mehrere Edit Felder dynmaisch erstellen, mit Prozedur

Mehrere Edit Felder dynmaisch erstellen, mit Prozedur

Forumregeln