Mehrere Objekte zur Laufzeit erzeugen

**fisipjm**

Hi,

ich stehe gerade vor folgendem Problem. Ich möchte mehrere Komponenten, um genau zu sein 2 Tedits, 1 TLable und 1 Tspeedbutton jeweils dynamisch zur Laufzeit erzeugen. Dazu habe ich jeweils ein Dynamisches Array erzeugt und lass mit die Teile per Parent auf ein Panel Mappen.

Irgendwie schein mein Delphi aber ein Problem damit zu haben wenn ich mehr als 3 Komponenten zur Laufzeit einbinden möchte. 2 gehen Problemlos, sobald ich die 3. Hinzunehmen spinnt mein Delphi und hängt sich auf. Kennt ihr das verhalten?
Anbei mal die 3 Prozeduren.

zusammenfalten · markieren

Delphi-Quellcode:

			  private

    TabellenCombo : array of TComboBox;

    FeldCombo : array of TComboBox;

    dynDelBtn : Array of TSpeedbutton;

procedure TForm1.CreateNewDynDelButton;

begin

  inherited;

  SetLength(dynDelBtn, length(dynDelBtn)+1);

  dynDelBtn[length(dynDelBtn)]         := TSpeedbutton.Create(self);

  dynDelBtn[length(dynDelBtn)].Parent  := self.DokExpPanel;

  dynDelBtn[length(dynDelBtn)].Name    := 'DynBtn'+inttostr(length(dynDelBtn));

  dynDelBtn[length(dynDelBtn)].Visible := True;

  dynDelBtn[length(dynDelBtn)].Left    := 5;

  dynDelBtn[length(dynDelBtn)].Top     := (dynDelBtn[length(dynDelBtn)].Height + 10) * length(dynDelBtn);

  dynDelBtn[length(dynDelBtn)].Width   := 20;

  dynDelBtn[length(dynDelBtn)].Height  := 15;

  dynDelBtn[length(dynDelBtn)].Glyph   := nil;

  ImageList1.GetBitmap(0, dynDelBtn[length(dynDelBtn)].Glyph);

  dynDelBtn[length(dynDelBtn)].OnClick:=DeleteMeBtn;

end;

procedure TForm1.CreateNewTableCombo;

begin

  SetLength(TabellenCombo, length(TabellenCombo)+1);

  TabellenCombo[length(TabellenCombo)]:=TComboBox.Create(self);

  TabellenCombo[length(TabellenCombo)].Parent := self.DokExpPanel;

  TabellenCombo[length(TabellenCombo)].Name := 'Tabellen'+inttostr(length(TabellenCombo));

  TabellenCombo[length(TabellenCombo)].Left := 30;

  TabellenCombo[length(TabellenCombo)].Top := (TabellenCombo[length(TabellenCombo)].Height + 10) * length(TabellenCombo);

end;

procedure TForm1.CreateNewFieldCombo;

begin

  SetLength(FeldCombo, length(FeldCombo)+1);

  FeldCombo[length(FeldCombo)]:=TComboBox.Create(self);

  FeldCombo[length(FeldCombo)].Parent := Self.DokExpPanel;

  FeldCombo[length(FeldCombo)].Name := 'Felder'+inttostr(length(FeldCombo));

  FeldCombo[length(FeldCombo)].Left := 200;

  FeldCombo[length(FeldCombo)].Top := (FeldCombo[length(FeldCombo)].Height + 10) * length(FeldCombo);

end;

Danke im Voraus für die Hilfe

Mehrere Objekte zur Laufzeit erzeugen

Mehrere Objekte zur Laufzeit erzeugen

Stichworte

Forumregeln