Zur Laufzeit erzeugte Editierfelder

[Kurt Wallander]

Glück auf!

In meiner geplanten app habe ich Matrizen unterschiedlicher Größe (Rang) zu verarbeiten. Deshalb erzeuge ich die Editierfelder für die Komponenten ABC[i,k] zur Laufzeit durch folgenden Code:

Delphi-Quellcode:

procedure TForm1.CreateMatrix(rang:integer);
var
   Edt   : TEdit;
   i,k   : integer;
begin
   SetLength(ABC,rang,rang);
   for i:=0 to rang-1 do
      for k:=0 to rang-1 do
      begin
         if TEdit(FindComponent('ABC'+IntToStr(i)+IntToStr(k))) = nil then
         begin
            Edt:=TEdit.Create(Self);
            Edt.Parent:=GroupBox1;
            Edt.Name:='ABC'+IntToStr(i)+IntToStr(k);
            Edt.Width:=75;Edt.Height:=24;
            Edt.Top:=30+i*35;
            Edt.Left:=15+k*90;
            Edt.Alignment:=taRightJustify;
            Edt.BiDiMode:=bdLeftToRight;
            Edt.Visible:=true;Edt.Enabled:=true;
            Edt.Text:=''
         end;
      end;
   if rang=3 then
   begin
      GroupBox1.Width:=290;GroupBox1.Height:=145;
   end
   else
   begin
      GroupBox1.Width:=195;GroupBox1.Height:=100;
   end;
end;

Das funktioniert einwandfrei. Aber ich habe keine Idee, wie ich die Behandlungsroutinen, z. B. Edt.OnExit, ebenfalls zur Laufzeit erzeugen kann. Statisch geht es nicht, da der Compiler die TEdiit-Felder nicht kennt - sie werden ja erst zur Laufzeit erzeugt - und meckert daher (berechtigt).
Hat jemand da eine Idee?
Ein schönes WE
Kurt

[Dalai]

Füge eine entsprechende Ereignisroutine in deine Klasse (hier wohl TForm1) hinzu und weise diese in der Schleife zu. D.h. alle TEdits verwenden dieselbe Methode.

Grüße
Dalai

[TomyN]

Und gib den Editfeldern eine individuellen Tag, dann weißt Du, welches Feld das Ereignis ausgelöst hat.

Code:

id:= (Sender As TEdit).Tag

[Kurt Wallander]

Glück auf!

Vielen Dank für die Replies.
Noch einmal, mein Problem ist, daß ich die Editierfelder zur Laufzeit erzeugen kann. Die Editierfelder haben Namen:ABC00_Edt, ABC01_Edt usw. usf. In diese Editierfelder gebe ich die Werte der Matrixkomponenten ein. Wenn ich nun mit der TAB-Taste zum nächsten Editierfeld "wandere", soll ein OnExit-Ereignis ausgelöst werden, welches ich benutzen will, um den Wert im Editierfeld den Variablen ABC[0,0], ABC[0,1] ... zuzuweisen. Zur Programmierzeit sind ja weder die ABC00_Edt, ABC01_Edt noch ABCOnExit dem Compiler bekannt.
Den Code habe ich inzwischen leicht modifiziert, so daß ich ihn wieder einstelle.

Delphi-Quellcode:

procedure TForm1.CreateMatrix(rang:integer);
var
   Edt   : TEdit;
   i,k   : integer;
begin
   SetLength(ABC,rang,rang);
   for i:=0 to rang-1 do
      for k:=0 to rang-1 do
      begin
         if TEdit(FindComponent('ABC'+IntToStr(i)+IntToStr(k)+'_Edt')) = nil then
         begin
            Edt:=TEdit.Create(Self);
            Edt.Parent:=GroupBox1;
            Edt.Name:='ABC'+IntToStr(i)+IntToStr(k)+'_Edt';
            Edt.Width:=75;Edt.Height:=24;
            Edt.Top:=30+i*35;
            Edt.Left:=15+k*90;
            Edt.Alignment:=taRightJustify;
            Edt.BiDiMode:=bdLeftToRight;
            Edt.Visible:=true;Edt.Enabled:=true;
            Edt.Text:='';
            Edt.OnExit:=ABCOnExit;
         end;
      end;
   if rang=3 then
   begin
      GroupBox1.Width:=290;GroupBox1.Height:=145;
   end
   else
   begin
      GroupBox1.Width:=195;GroupBox1.Height:=100;
   end;
end;

Viele Grüße
Kurt

[Aviator]

Ich bin ehrlich. Ich verstehe dein Problem aktuell nicht. In deinem letzten Beitrag steht auch keine wirkliche Frage mehr.

Das was du hier ja schon gemacht hast sieht soweit alles ok aus. Du musst jetzt nur noch den Event Handler für OnExit() programmieren.

Delphi-Quellcode:

procedure TForm1.EditExitHandler(Sender: TObject);
begin
  // Alternativ den Tag statt des Namens verwenden
  if (Sender.Name = 'ABCxx') then begin
    // Do something here
  end;
end;

So in der Art könnte der aussehen. Dann kompiliert dein Programm auch. Es sei denn du hast uns in deinem Code Snippet die OnExit() Methode vorenthalten.

[himitsu]

nicht namen vergleichen ... maximal Konstante, aber niemals "irgendwelche" losen strings!!!!!!
niemals mit = ... wenn, dann SameText oder so
und besser immer Variable mit Instanz vergleichen! (z.B. array oder liste mit sprechenden kostanten)