Wie es aussieht, ist das Objekt schon wieder weg...
Delphi-Quellcode:
for I := 0 to FListe_Button.Count -1 do begin
if Assigned(FListe_Button.Items[I]) then
ShowMessage(FListe_Button.Items[I].ClassName)
else
ShowMessage('Not assigned');
end;
Ergebnis lautet: Not assigned...
Aber warum ist das so? Vorher frage ich die Anzahl der Objekte in der Liste ab und bekomme das Ergebnis 2.
ShowMessage('Anzahl Buttons: '+IntToStr(FListe_Button.Count));
Delphi-Quellcode:
if FListe_Button.Items[I] is TTMSFNCToolBarButton then
ShowMessage('OK')
else
ShowMessage('Not OK');
Auch hier lautet das Ergebnis: Not OK!
Ich gebe die Liste aktuell auch nicht wieder frei...
Vielen Dank
Patrick