Webanwendung Objekte zur Laufzeit erstellen

**akio87**

Hallo,

ich bin schon seit tagen auf der suche nach einer Lösung und hoffe nun, ihr könnt mir weiter helfen...

Ich bin dabei eine Art WebShop zu erstellen via Intraweb oder jetzt aktuell neu mit UniGui, Kundenspezifisch und auch nur für bestimmte Kunden (kein öffentlicher Shop).

Ich versuche zur Laufzeit in einem vorhandenen TPanel (soll der Rahmen Gesamt definieren) ein weiteres Panel zu erstellen (Der ArtikelPanel), welcher dann ebenfalls zur Laufzeit Label, Button und Co rein soll, um diese wiederum zu definieren aus der SQL Datenbank (ArtNr, ... )...

Code sieht bisher wie folgt aus und gibt mir beim ersten Create() schon die Fehlermeldung (siehe im Anhang)...

markieren

Code:

			type

  Tfmstart1 = class(TUniForm)

    UniButton1: TUniButton;

    UniPanel1: TUniPanel;

    procedure UniButton1Click(Sender: TObject);

    procedure UniFormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

    PanelArray: array of TUnipanel;

    ButtonArray: array of TUnipanel;

  end;

markieren

Code:

			procedure Tfmstart1.UniButton1Click(Sender: TObject);

var

 i: Integer;

begin

  UniServerModule.SQLTable1.Active := false;

  UniServerModule.SQLTable1.TableName := 'artikelliste';

  UniServerModule.SQLTable1.Active := true;

  UniServerModule.SQLTable1.Open;

  UniServerModule.SQLTable1.First;

  For i := 1 to UniServerModule.SQLTable1.RecordCount do

   begin

     //Panel erstellen

     PanelArray[i] := TUniPanel.Create(fmstart1.UniPanel1);

     PanelArray[i].Parent := PanelArray[i].Create(PanelArray[i]);

     PanelArray[i].SetBounds(0,100*i -100,UniPanel1.Width,100);

     PanelArray[i].Name := 'ArrayPanel' + IntToStr(i);

     //TPanel in der höhe erweitern

     UniPanel1.Height := UniPanel1.Height + PanelArray[i].Height;

     //Button auf erstellten Panel erstellen

     ButtonArray[i] := TUniPanel.Create(PanelArray[i]);

     ButtonArray[i].SetBounds(PanelArray[i].Width - 80 , PanelArray[i].Height - 30 ,75,25);

     ButtonArray[i].Caption := 'Warenkorb';

     //ButtonArray[i].OnClick :=

   end;

Ich hoffe, ihr könnt mir dabei helfen.

Vielen Dank.

Webanwendung Objekte zur Laufzeit erstellen

Webanwendung Objekte zur Laufzeit erstellen

Forumregeln