große Komponente - mehre Elemente gleichzeitig verarbeiten

[Jens Kallup]

Hallo,

würde gerne eine Komponente erstellen, die mir RückZuck
verschiedene Elemente anzeigt bzw. berarbeiten kann.

Es handelt sich hier bei um eine vielzahl von CheckBoxen,
ComboBoxen, sowie Editier-Felder.

Die CheckBoxen hatte ich schon bereits hinbekommen, allerdings
fehlt mir noch nach jeder vierte CheckBox etwas - der Rest.

Folgenden Aufbau sollte das ganze haben:

linke Seite: gefolgt von: dann bis lim oo max. 12
ComboBox CheckBox CheckBox CheckBox CheckBox ComboBox ...
Edit Edit ...

wie kann man das bewerkstelligen?

Checkers : Array of TCustomCheckBox;
Combers : Array of TCustomComboBox;
Edits : Array of TCustomEdit;



constructor TACTimeCheckPanel.Create(AOwner: TComponent);
var
i,j,k,l,ypos, xpos: Integer;
checker_tag: Integer;
begin
inherited Create(AOwner);
Caption := '';
Text := '';
l := 0;

setLength(Checkers,24*5);
setLength(Combers,16);
setLength(edits,16);

checker_tag := 1;

xpos := 110;
ypos := -30;

for j := 0 to 23 do begin xpos := xpos + 22;
for i := 0 to 3 do begin

Checkers[j+(i*23)] := TCustomCheckBox.Create(self);
Checkers[j+(i*23)].Parent := self;

with Checkers[j+(i*23)] do begin
Width := 20;
Height := 20;
Left := xpos;
Top := ypos;
Enabled := true;
Visible := true;
Tag := checker_tag;
end;

inc(checker_tag);
ypos := ypos + 49;
end;
ypos := 22;
case j of
0: begin xpos := 10; end;
3: begin xpos := 190; end;
end;
begin

for l := 0 to 3 do begin
combers[l] := TCustomComboBox.Create(self);
combers[l].Parent := self;

edits[l] := TCustomEdit.Create(self);
edits[l].Parent := self;

with combers[l] do begin
Left := xpos;
Width := 100;
Height := 20;
Top := ypos;
Enabled := true;
Visible := true;
end;

with edits[l] do begin
Left := xpos;
Width := 100;
Height := 20;
Top := ypos + 24;
Enabled := true;
Visible := true;
end;

inc(ypos,48);
end;
end;
xpos := 110;
ypos := -30;
end;
end;

[Jens Köhler]

Post by Jens Kallup
Hallo,
würde gerne eine Komponente erstellen, die mir RückZuck
verschiedene Elemente anzeigt bzw. berarbeiten kann.
Es handelt sich hier bei um eine vielzahl von CheckBoxen,
ComboBoxen, sowie Editier-Felder.

Hallo,

wenn ich das so richtig sehe, bis Du mit Deinen Schleifen durcheinander
geraten. Deine ComboBoxen und Edits werden mit in j-Schleife erzeugt.
Damit erzeugst Du 23 x 3 ComboBoxen und Edits und überschreibst sie in
den Array, weil diese Schleife immer nur von 0-3 läuft

Um diese UhrZeit nicht verwunderlich :-)

Jens