Ok danke, aber das trift es jetzt auch nicht ganz.. Ich habe jetzt noch einmal etwas ausprobiert bei dem beim erscheinen des Formulars die Komponenten erzeugt werden. Nur bekomme ich bei den Buttons also bei
LBut[i] := TButton.Create(ScrollBox);
den Fehler den ich oben beschrieben habe.
@Perlsau: ich habe es eigentlich versucht einen 'ordentlichen' Code zu schreiben.. Was genau ist das was man fast nicht entziffern kann?
PS: Hier ist die procedure die ich ausführe wenn das Fenster sichtbar wird:
Delphi-Quellcode:
procedure TFrmUse.GenerateButton;
var i: Integer;
begin
BoxScro := TScrollBox.Create(TabAbrech);
BoxScro.Align := alClient;
BoxScro.BorderStyle := bsNone;
FrmOpen.CDS.First;
for i := 1 to FrmOpen.CDS.RecNo do begin
LBut[i] := TButton.Create(BoxScro);
LBut[i].Parent := BoxScro;
LBut[i].Left := 20 + ((LBut[i].Height + 10) * i);
LBut[i].Height := 20;
if (i >= 5) then LBut[i].Height := 20 + ((LBut[i].Height + 10) * i);
LBut[i].Caption := FrmOpen.CDS.FieldByName('speise').Value;
FrmOpen.CDS.Next;
end;
end;
Ich erzeuge auch gleich eine ScrollBox nur das ist nicht das Problem... Oder sollte ich gleich das ganze Projekt hochladen?