In einer TObjectList werden die Instanzen abgelegt, Du hast also vollen Zugriff auf alle Eigenschaften und Methoden der jeweiligen Instanz. Wenn es sich nicht um eine spezialisierte Ableitung bzw. eine generische TObjectList handelt, musst Du diese aber vorher noch auf den entsprechenden Typen casten.
Wenn ich dich also richtig verstehe sollten alle eigenschaften des aktuellen button(Instanz)
oButton.Num
oButton.BmpFile
oButton.ButtonKey
oButton.ToolTip
oButton.ButtonCmd
beispiel für button 1 im feld 0 gespeichert sein?
Also der Counter macht mir ärger.
Der dritte button wird einfach nicht addiert in die ObjectList
Delphi-Quellcode:
if Btn > FColButtons.Count - 1 then
begin
try
oButton := TClsButtonInfo.Create(nil);
oButton.Num := Btn;
AddButton(oButton);
finally
oButton := nil;
end;
end;
Die ersten beiden werden ordnungsgemäß addiert
aber beim dritten ist der Count immer noch 2 obwohl er eigentlich 3 sein müßte.
Die probleme nehmen einfach kein ende mit der Liste
Sternchen für OK!
1*, 2* 3, 4*, 5, 6*, 7, 8*
Was ist mit den anderen die werden einfach nicht addiert.
Der FColButtons.Count erhöht sich nicht nach dem addieren des 2,4,6 usw..
gruss