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;
schöner Gedanke. Ist mir ehrlich gesagt so nicht gekommen! Liesse sich einfach umsetzen und hat den Vorteil, dass ich eine ganze Gruppe ansprechen kann und ohne FindComponent auskomme. sehr schön, danke!