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.

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?

Hallo,

wenn Du schon so fragst, anscheint nirgends?

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

Self gibt ebenfalls die Fehlermeldung aus, wie oben im Screenshot

markieren

Code:

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

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;

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

Entweder dynamisch oder statisch - aber nicht beides mischen.

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)

markieren

Code:

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

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;

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

Was soll das werden?
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