Das werd ich mal an einem Beispiel ausprobieren.
aber zu meinem eigentlichen Problem:
Delphi-Quellcode:
//t1.Filter:='GRUPPE='+QuotedStr('Hotstuff');
//t1.Filtered:=True;
t1.First;
while not t1.eof do begin
Spalte := i mod 6;
Zeile := i div 6;
aLabel:=TXiButton.Create(Self);
aLabel.Parent:=hot;
aLabel.Visible:=True;
aLabel.Left:=Spalte*82;
aLabel.Top:=Zeile*35;
alabel.Width:=80;
alabel.Height:=33;
aLabel.ColorScheme:=csNeoSky;
aLabel.Caption:=t1.fieldbyname('kurz').AsString;
aLabel.Tag:=t1.FieldByName('artnr').AsInteger;
aLabel.OnClick:=p1_1Click;
t1.Next;
end;
//t1.Filtered:=False;
Ich hab testhalber den Filter deaktiviert,
ich bekomme nur den letzten Datensatz,
dabei wird doch erst auf First gesetzt
und jeweils Next in der Schleife, WARUM??