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

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;

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.

[vagtler]

Wo wird die Größe des Arrays gesetzt?

Und ist es wirklich sinnvoll, auf die Variable frmStart1 zuzugreifen? Wäre ein self hier nicht angebrachter?

[akio87]

Hallo,

wenn Du schon so fragst, anscheint nirgends? :gruebel:

wie muss das dann aussehen? Ich bekomm dann eine Fehlermeldung "Inkompatible Typen" (Siehe Anhang)

Self gibt ebenfalls die Fehlermeldung aus, wie oben im Screenshot

Code:

PanelArray: array[1..999] of TUniPanel;

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;

  SetLength(PanelArray, 999);
  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);

[vagtler]

Entweder dynamisch oder statisch - aber nicht beides mischen.

[akio87]

mit Arrays habe ich noch nie gearbeitet, ist ein komplett neues Thema für mich...

hab es nun mal so gestaltet, ich denke dass müsste nun 'nur' Statisch sein, oder?

ich bekomm dann folgende Fehlermeldung (Anhang)

Code:

PanelArray: array[1..999] of TUniPanel;

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;

  //SetLength(PanelArray, 999);
  UniServerModule.SQLTable1.First;
  For i := 1 to UniServerModule.SQLTable1.RecordCount do
   begin
     //Panel erstellen
     PanelArray[i] := TUniPanel.Create(self);
     PanelArray[i].Parent := PanelArray[i].Create(PanelArray[i]);
     PanelArray[i].SetBounds(0,100*i -100,UniPanel1.Width,100);
     PanelArray[i].Name := 'ArrayPanel' + IntToStr(i);

[Dalai]

Was soll das werden?

Delphi-Quellcode:

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

Was ist denn ein Parent? Und wo soll dieses eine Panel hin? Musst du den Parent demzufolge erst erzeugen? Sehr wahrscheinlich nicht, und schon gar nicht kann das Objekt selbst sein eigener Parent sein.

Übrigens wäre es klasse, wenn du Screenshots nur dann verwendest, wenn sie angebracht sind; in diesen Fällen hier kann man auch die Meldung aus dem Compiler-Log kopieren und im Code auf die entsprechende Zeile verweisen.

MfG Dalai

[akio87]

ohman ihr seit die besten...

nun gehts :) Vielen Dank

Eine kleine Frage noch, wenn ich jetzt noch einmal den Button betätige, wie kann ich die erstellten freigeben und neu erstellen?

Code:

PanelArray: array[1..999] of TUniPanel;

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(self);
     PanelArray[i].Parent := UniPanel1;
     PanelArray[i].SetBounds(0,100*i -100,UniPanel1.Width,100);
     PanelArray[i].Name := 'ArrayPanel' + IntToStr(i);

[mkinzler]

Delphi-Quellcode:

for i := Low( PanelArray) to High(PanelArray) do
begin
  PanelArray[i].Free;
end;

[akio87]

Vielen Dank an Alle! Echt, ihr seid super!

klappt so, wie ich es mir vorstelle :)

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;

  for i := Low( PanelArray) to High(PanelArray) do
   begin
     PanelArray[i].Free;
   end;


  UniServerModule.SQLTable1.First;
  For i := 1 to UniServerModule.SQLTable1.RecordCount do
   begin
     //Panel erstellen
     PanelArray[i] := TUniPanel.Create(self);
     PanelArray[i].Parent := UniPanel1;
     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] := TUniButton.Create(self);
     ButtonArray[i].Parent := PanelArray[i];
     ButtonArray[i].SetBounds(PanelArray[i].Width - 80 , PanelArray[i].Height - 30 ,75,25);
     ButtonArray[i].Caption := 'Warenkorb';
     //ButtonArray[i].OnClick := muss noch erstellt werden

     //Label setzen und Namen aus Datenbank definieren
     ArtNameArray[i] := TUniLabel.Create(self);
     ArtNameArray[i].Parent := PanelArray[i];
     ArtNameArray[i].SetBounds(10, 10 ,100,13);
     ArtNameArray[i].Caption := UniServerModule.SQLTable1.fieldByName('Hersteller').AsString + ' ' + UniServerModule.SQLTable1.fieldByName('ArtBZ').AsString;

     ArtNrArray[i] := TUniLabel.Create(self);
     ArtNrArray[i].Parent := PanelArray[i];
     ArtNrArray[i].SetBounds(10, ArtNameArray[i].Top + 20, 50, 13);
     ArtNrArray[i].Caption := UniServerModule.SQLTable1.fieldByName('ArtNr').AsString;

     //Next zeile
     if not UniServerModule.SQLTable1.EOF then
      begin
        UniServerModule.SQLTable1.Next;
      end;
   end;
end;

[mkinzler]

Jetzt wieder auf dyniamschen Array zurückstellen

Delphi-Quellcode:

PanelArray: array of TUniPanel;

Delphi-Quellcode:

SetLength(PanelArray, UniServerModule.SQLTable1.RecordCount);