Objekte zur Laufzeit erzeugen

[Popov]

Ich hab hier eine Funktion aus einem meiner Projekte rauskopiert (und angepasst), die auch Fenster dynamisch erzeugt. Die "Blaupause" für die Formulare (man kann unendlich davon erzeugen) wird nicht automatisch erzeugt, sondern ist nur verfügbar.

[Luki206]

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?

[mkinzler]

-BoxScro hat keinen Parent.
-Wann wird frmUse erzeugt?
-Wo und wie ist LBut[] delartiert?
...

[Luki206]

-BoxScro hat jetzt einen Parent

-FrmUse steht in der Erstellungsreihenfolge als zweites und wird durch FrmUse.Show; aufgerufen

-LBut liegt in private und ist so deklariert:

Code:

LBut: array of TButton;

[mkinzler]

Zitat:

-LBut liegt in private und ist so deklariert:

Code:

LBut: array of TButton

;

Dann solltest du den Array auch dimensionieren

setLength( LBut, FrmOpen.CDS.RecNo+1);

[Popov]

Delphi-Quellcode:

unit Unit1;

...

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.GenerateButton;
  Form2.Show;
end;

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabAbrech: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    BoxScro: TScrollBox;
    LBut: array[0..3] of TButton;
  public
    { Public-Deklarationen }
    procedure GenerateButton;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.GenerateButton;
var
  i: Integer;
begin
  BoxScro := TScrollBox.Create(TabAbrech);
  BoxScro.Parent := TabAbrech; //<<<<<<<<<<<<<<<<<<<<<
  BoxScro.Align := alClient;
  BoxScro.BorderStyle := bsNone;
  //FrmOpen.CDS.First;
  for i := 1 to High(Self.LBut) do //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 := IntToStr(LBut[i].Left); // FrmOpen.CDS.FieldByName('speise').Value;
    //FrmOpen.CDS.Next;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  PageControl1.Align := alClient;
end;

end.

[Jumpy]

Delphi-Quellcode:

  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);

Ist jetzt nicht zum eigentlichen Problem, weil mMn die Hälfte der Infos fehlen, die man bräuchte, um einen vernünftigen Rat zu erteilen. Daher nur zum obigen Codeschnipsel:

Wieso hängt die linke Position von der Höhe ab (die dazu erst noch in der nächsten Zeile gegeben wird? Wie wird die wohl vorher gewesen sein?).

Button für i>5 werden größer??? Sollte hier Top gemeint sein???

[Luki206]

Ok ich habe alles jetzt noch einmal bearbeitet, habe die Länge des Array's gesetzt und habe auch die Fehler mit dem was Jumpy angesprochen hat beseitigt. Nur wird nur ein Button erzeugt. die prozedure sieht jetzt so aus:

Delphi-Quellcode:

procedure TFrmUse.GenerateButton;
var i: Integer;
begin
BoxScro := TScrollBox.Create(TabAbrech);
BoxScro.Parent := TabAbrech;
BoxScro.ParentBackground := true;
BoxScro.Align := alClient;
BoxScro.BorderStyle := bsNone;
FrmOpen.CDS.First;
 for i := 1 to High(Self.LBut) do begin
   LBut[i] := TButton.Create(BoxScro);
   LBut[i].Parent := BoxScro;
   LBut[i].Left := 20 + 2*(i+1);
   LBut[i].Top := 30;
   if (i >= 5) then LBut[i].Top := 30 + 2*(i+1);
   LBut[i].Caption := FrmOpen.CDS.FieldByName('speise').Value;
   FrmOpen.CDS.Next;
 end;
end;

[DeddyH]

Zitat:

for i := 1 to High(Self.LBut) do begin

Sicher, dass das so stimmt?

[Sir Rufo]

Zitat von DeddyH:

Zitat:

for i := 1 to High(Self.LBut) do begin

Sicher, dass das so stimmt?

Eben, wer high sagt muss auch fisch - äh low sagen.

Delphi-Quellcode:

for i := low( Self.LBut ) to high( Self.LBut ) do