Здравствуйте,уважаемые мастера!!!
Не могли бы вы подсказать ,как в TListView сделать,чтобы появляющийся вертикальный скрол имел уже заданную длину и высоту(ну хотя бы высоту), не уменьшался при увеличении кол-ва полей в списке и не поднимался вверх, если пользователь опустился с помощью скрола вниз по списку, а список еще добавляется???
Ну или хотя бы скажите возможно ли отключить вообще вертикальный скрол??

private
 procedure ListViewWndProc(var Msg: TMessage);
var
FListViewWndProc: TWndMethod;
....
implementation
.....
 procedure TForm1.ListViewWndProc(var Msg: TMessage);
begin
  ShowScrollBar(ListView1.Handle, SB_HORZ, True);
  ShowScrollBar(ListView1.Handle, SB_VERT, False);
  FListViewWndProc(Msg); // process message
end;
в onCreate:
FListViewWndProc := ListView1.WindowProc; // save old window proc
 ListView1.WindowProc := ListViewWndProc;