Hi,
wozu
TListBox erweitern? Eine ListBox hat doch bereits eine
TStrings (abstrakter Vorfahre von
TStringList)-Eigenschaft. Und mithilfe von
AddObject kann man dann auch ganz einfach Objekte, beliebigen Typs hinzufügen:
Delphi-Quellcode:
type
TMyCustomObject = class(TObject)
// beliebige Eigenschaften, Methoden etc.
end;
{ ... }
var
AnCustomObject: TMyCustomObject;
begin
AnCustomObject := TMyCustomObject.Create;
MyListBox.Items.AddObject('Caption', AnCustomObject);
end;
var
ASavedObject: TMyCustomObject;
begin
ASavedObject := MyListBox.Items.Objects[{Hier kommt die ID des Eintrags}] as TMyCustomObject;
end;
Chris