procedure TForm1.ListBox1Click(Sender: TObject); begin ListView1.ViewStyle := TViewStyle(ListBox1.ItemIndex); end;