【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

拖曳滑鼠從 ColorsName1 至 Item.Text，連接起來

ListView 預設每條列內有三個元件 -- Image、Text 和 TextButton，
展開 Structure 視窗的 ListView1，點選 ItemAppearance，變更 Object Inspector 視窗的 ItemAppearance 屬性為 ImageListItemRightButton

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

 開啟 LiveBgindings Designer，將 Bitmap1 與 Item.Bitmap 連接，CurrencyField1 與 Item.ButtonText 連接

在 ListView 的 OnButtonClick 寫入程式碼：

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

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