Delphi Berlin TListView DynamicAppearance item dynmically add

Question

DynamicAppearance Listviewを動的に追加するにはどうすればよいですか？デザインモードでは、私が望むListViewのレイアウトを作成しました。私は3つのTTextObjectAppearanceを追加しました。これら3つのTTextObjectAppearanceテキストを動的に設定するにはどうすればよいですか？

Answer 1

（私はフォーマットされた答えを追加するために自由を取るました）

var list : TListViewItem; 
    ldes, lOrder, lLegal : TListItemText; 
begin 
    list := ListView1.Items.Add; 
    ldes := list.Objects.FindObjectT<TListItemText>('Description'); 
    lOrder := list.Objects.FindObjectT<TListItemText>('OrderId'); 
    lLegal := list.Objects.FindObjectT<TListItemText>('LegalCode'); 
    ldes.Text := 'Mouri'; 
    lOrder.Text := 'Love'; 
    lLegal.Text := 'You' 
end;