Wie gesagt, inzwischen gehe ich davon aus, dass es nicht klappen kann. Aber ich beschreibe man meine Überlegungen noch mal mit meinen Beispiel aus dem ersten Beitrag (nur der Vollständigkeitshalber).
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
var
i: Integer;
Tmp: T???;
begin
with ListBox1 do
for i := 0 to Items.Count - 1 do
begin
//An jedem Item hängt ein Objekt, nehmen wir an es ist ein TBitmap, aber ich weiß es nicht
//Nun stellt sich die Frage ob ich Tmp im Betrieb zu dem Objekttyp machen kann der
//am Item hängt. Also ermitteln, dass es TBitmap ist und Tmp zu TBitmap machen
Tmp:= T???(Items.Objects[i]);
//Das Free ist hier Sekundär und nur ein Beispiel. Das wird auch so klappen, da es jedes Objekt besitzt
//Aber um das geht es weniger, sondern kann ich Tmp zuerst zu TBitmap machen und
//es erst dann freigebe
Tmp.Free;
end;
end;
Wie gesagt, mich interessierte es nur ob das geht.
//Edit:
Oder anders ausgedrückt
nur das ich die Info TBitmap aus dem Objekt an dem Item erfahre.