【Delphi XE6】Android / iOS 之 ListView

參考資料:
Mobile Tutorial: Using LiveBindings to Populate a ListView (iOS and Android)

新建專案



form 放置一個 TListView,並變更 Align 屬性Client



form 放置一個 TPrototypeBindSource



滑鼠在 TPrototypeBindSource 點右鍵,選擇 Add Field...



出現 Add Field 對話框,點選 ColorsNames



開啟 LiveBgindings Designer



拖曳滑鼠從 ColorsName1Item.Text,連接起來



ListView 預設每條列內有三個元件 -- ImageTextTextButton
展開 Structure 視窗的 ListView1,點選 ItemAppearance,變更 Object Inspector 視窗的 ItemAppearance 屬性為 ImageListItemRightButton



重複上面的步驟 -- 滑鼠在 TPrototypeBindSource 點右鍵,選擇 Add Field...,出現 Add Field 對話框,按 Ctrl 鍵不放,點選 BitmapsCurrency

 開啟 LiveBgindings Designer,將 Bitmap1Item.Bitmap 連接,CurrencyField1Item.ButtonText 連接



ListViewOnButtonClick 寫入程式碼:

procedure TForm1.ListView1ButtonClick(const Sender: TObject; const AItem: TListViewItem; const AObject: TListItemSimpleControl);
begin
    ShowMessage(AItem.Text + ' ' +AItem.ButtonText + ' is clicked.');
end;

當按了條列右方的按鈕時,就會彈出下圖對話框