Gruppen von Controls erzeugen - dynamisch vs. ?

[bernau]

Wenn du schon die Controls dynamisch erzeugts, was spricht dagegen die erzeugten Instanzen einem Array zuzuweisen und über das Array auf die Werte der Controls zugreifen.

Delphi-Quellcode:

type
  TAutolackComponentRow = record
    Farbname:TEdit;
    Matt:TCheckbox;
    Preis:TEdit;
    end;


type
  TmyForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    fControlRows:Array[0..10] of TAutolackComponentRow;
  public
  end;


procedure TmyForm.FormCreate(Sender: TObject);
var
  a:Integer;
begin
  for a:=0 to 10 do
    begin
    fControlRows[a].Farbname := TEdit.Create(self)
    // parent, Position setzen etc
    fControlRows[a].Matt := TCheckbox.Create(self)
    // parent, Position setzen etc
    fControlRows[a].Preis := TEdit.Create(self)
    // parent, Position setzen etc
  end;
end;

Auf die entsprechende Komponente greifst du dann über das Array zu.

Delphi-Quellcode:

fControlRows[1].Farbname.text := 'Blau';
fControlRows[5].Matt.checked := true;
fControlRows[7].Preis.checked := '10,25';
for a:=0 to 10 do
  begin
    fControlRows[a].Preis.left := 30;
    fControlRows[a].Preis.top := 25 * a;
  end;