Ereignis zur Laufzeit zuweisen

znysk

Erfahrenes Mitglied
Hi! Ich bin's mal wieder mit nem Problem!

Ich habe da so 'ne Gruppe von Editfeldern, die Ich Zur Laufzeit Erzeuge, und muss aber nun wissen, wie diesen Feldern zu Laufzeit auch Ereignisse zuweise.
z.B.:
aEdit1.Ereignis.OnChange:=auszuführender_Procedure;

Danke falls mir jemand helfen kann!!!!!!!!!!
 
für den Fall das es jemanden interessiert

Also die Antwort vom Fragenden!

Ich hatte auch vor langer zeit mal gefragt, ob man Komponenter auch als array benutzen kann jatz beides in Verbindung!
--------------------> Ein Ausschnitt aus meinem Programm!
Vereinbarung und erstellung!
Code:
var
  Form1: TForm1;
  Edit : array [1..31,0..9] of TEdit;
  LTag : array [1..31] of TLabel;
  cbox : array [1..31] of Tcheckbox;
implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var i,j,k,l : INTEGER;
wert : Boolean;
begin
{++++++++++++++++++++++++Erstellen der Elemente++++++++++++++++++++++++++++++++}
k:=0;
l:=0;
FOR i:=1 TO 31 DO
BEGIN
  FOR j:=0 TO 5 DO
  BEGIN
    IF i=19 THEN k:=162;
    IF i=19 THEN l:=720;
    Edit[i,j]        :=TEdit.Create(Form1); // Erster Befehl
    Edit[i,j].Left   :=40*i+28-l;
    Edit[i,j].Top    :=20*j+36+k;
    Edit[i,j].Height :=21;
    Edit[i,j].width  :=33;
    Edit[i,j].visible:=False;
    Edit[i,j].Parent :=Form1;               // Letzter Befehl
  END;
  LTag[i]            :=TLabel.create(Form1); // Erster Befehl
  LTag[i].Left       :=40*i+28-l;
  LTag[i].Top        :=20+k+2;
  LTag[i].Autosize   :=TRUE;
  LTag[i].Parent     :=Form1;               // Letzter Befehl

  cbox[i]            :=Tcheckbox.Create(Form1);  // Erster Befehl
  cbox[i].left       :=40*i+38-l;
  cbox[i].Top        :=155+k+2;
  cbox[i].width      :=21;
  cbox[i].TabStop    :=False;
  cbox[i].Parent     :=Form1;                    // Letzter Befehl

  //++++Ereigniszuweisung
    cbox[i].onclick  :=   CboxEreignisClick;
    Edit[i,0].onchange := EditEreignisChange;
    Edit[i,0].onexit   := EditEreignisExit;
  //----Ereigniszuweisung
END;

{------------------------Erstellen der Elemente--------------------------------}

und der Aufruf der Zugewiesenen Ereignisse
die Proceduren dort deklarieren, wo sie normalerweise auch deklariert werden!
Code:
    procedure CboxEreignisClick(Sender: TObject);
    procedure EditEreignisExit(Sender: TObject);
    procedure EditEreignischange(Sender: TObject);
Aufruf auf TForm1 bzw. formtyp achten!!!!!
Code:
    procedure TForm1.editEreignischange(Sender: TObject);
    BEGIN
    END;

    procedure TForm1.EditEreignisExit(Sender: TObject);
    BEGIN
    END;

    procedure TForm1.EditEreignischange(Sender: TObject);
    BEGIN
    END;
 
Zurück