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.