Hallöchen Gemeinde,
ich häng an einem Problem fest.
TPanels sollen mit Buttons bestückt werden.
Die Panels existieren schon und haben Namen lt. Tabelle "panels".
Praktischerweise will ich nun nicht 2 Abfragen starten
sondern nur eine.
Delphi-Quellcode:
pansel.SQL.Text:='SELECT A.panelnr,B.ebene,B.anzeige,B.wert,B.farbe,B.fogr';
pansel.SQL.Add(' FROM panels AS A INNER JOIN buttons AS B');
pansel.SQL.Add(' ON A.panelnr=B.ebene');
pansel.Open; pansel.First; j:=0;
while not pansel.Eof do begin
Spalte := j mod 6;
Zeile := j div 6;
aBut:=TXiButton.Create(main);
aBut.Left:=Spalte*115; aBut.Top:=Zeile*45;
...
aBut.Font.Size:=pansel.fieldbyname('fogr').AsInteger;
aBut.Hint:=pansel.fieldbyname('anzeige').asString;
aBut.ColorScheme:=GetCoSche(pansel.fieldbyname('farbe').AsString);
aBut.Caption:=pansel.fieldbyname('anzeige').AsString;
aBut.Tag:=pansel.FieldByName('wert').AsInteger;
aBut.OnClick:=main.form.p1_1click;
inc(j);
//end;
pansel.Next;
end;
nun wird mit "j" die position festgelegt wo der Button sich befinden soll.
Da nun das alles runterrasselt wird "j" immer weiter inkrementiert und nicht beim nächsten panel
wieder auf 0 gesetzt.
Ich glaube ich hab mich nun etwas festgefahren, soll ich besser die Panels auch erst
kreiern wenn die buttons erstellt werden?
Oder ist das alles Quatsch und ich bin völlig falsch...