delphi - 水平区切り線を使用した Delphi ListView スタイル

Question

私は Delphi Seattle 10 でモバイル アプリケーションを実行していますが、ListView のスタイルに疑問を感じました。

Listview が空の場合、次のように、すべての水平区切り線を埋めずに、次のようになります。

そして、それが可能かどうかはわかりませんが、スタイルを何らかの方法で変更して、次のようになります。

可能ですか？

Answer 1

新しい TListViewItem を追加すると、各区切り線が追加されます。本当にこれを作りたいのなら、それを行う方法は1つだけです。あれは：

TListViewItemの作成

var 
 aItem: TListViewItem;

onCreateのようなTListViewを含むTFormにアクションを追加する

for I:= 0 to 10 do
begin
 aItem := TListView1.Items.Add;
 aItem.Text := '';
end;

これはちょっとしたトリックです。または、Canvas を使用する必要があるかもしれませんが、Canvas を使用することはお勧めしません。