TListBox에 항목을 추가하고 데이터 객체와 연관시키는 방법은 무엇입니까?

Question

코드보기 :

function ShowItem(MyData: TMyData): TListItem; 
var 
    vListItem: TListItem; 
begin 
    vListItem := ListView1.Items.Add; 
    vListItem.Data := MyData; 

    vListItem.ImageIndex := 1; 
    vListItem.Caption := MyData.Caption; 

    Result := vListItem; 
end; 

TListBox에서이 기능을 사용하려면 어떻게해야합니까? ListView.Items 속성은 TListItem의 속성 인 것 같습니다. ListBox.Items가 아니기 때문에이 함수는 TListBox의 올바른 매개 변수를 반환 할 수 없습니다.

어떻게 이것을 TListBox로 변환 할 수 있습니까?

고맙습니다

Answer 1

이 수행해야합니다 (당신이 그것을 자신과 사용자 정의 무승부를 구현하지 않는 한) 목록보기의를 붙일 속성은 목록 상자에 대한 아날로그가 없기 때문에 동등한이 없습니다

function ShowItem(MyData: TMyData): Integer; 
begin 
    Result := ListBox1.Items.AddObject(MyData.Caption, MyData); 
end; 

Answer 2

.