ListViewでタイトル部分を中央寄せ、データ表示部分を右寄せにしたい (ID：148862)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

FMX の TListView なら、↓次の様に書けば実現できます。

uses
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.ListView;

procedure TForm1.FormCreate( Sender : TObject );

var
  ListNo : Integer;
  ListViewItem : TListViewItem;

begin
  ListView1.BeginUpdate;
  try
    // ヘッダーは中央寄せ
    ListView1.ItemAppearanceObjects.HeaderObjects.Text.TextAlign  := TTextAlign.Center;
    // アイテムは右寄せ
    ListView1.ItemAppearanceObjects.ItemObjects.Text.TextAlign    := TTextAlign.Trailing;
    // アイテムのアクセサリを消したい場合は↓のコメント化を解除
//  ListView1.ItemAppearanceObjects.ItemObjects.Accessory.Visible := FALSE;

// ヘッダー追加
    ListViewItem := ListView1.Items.Add;
    ListViewItem.Height  := 40;
    ListViewItem.Text    := 'HEADER';
    ListViewItem.Purpose := TListItemPurpose.Header;

for ListNo := 0 to 9 do
    begin
      // アイテム追加
      ListViewItem := ListView1.Items.Add;
      ListViewItem.Height    := 40;
      ListViewItem.Accessory := TAccessoryType.Detail;
      ListViewItem.Text      := 'No.' + ListNo.ToString;
    end;
  finally
    ListView1.EndUpdate;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る