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