Как отключить гор.скроллбар у ListView?

Пробуйте так
SetWindowLong(LV.Handle, GWL_STYLE, GetWindowLong(LV.Handle, GWL_STYLE) and not WS_HSCROLL);

Спасибо,попробую!

нашел такой-код:
type
TNoHScrollListview = Class( TListview )
private
Procedure WMNCCalcSize( Var msg: TMessage ); message WM_NCCALCSIZE;
end;

procedure TNoHScrollListview.WMNCCalcSize(var msg: TMessage);
var
style: Integer;
begin
style := getWindowLong( handle, GWL_STYLE );
If (style and WS_HSCROLL) <> 0 Then
SetWindowLong( handle, GWL_STYLE, style and not WS_HSCROLL );
inherited;
end;
но куда его втыкнуть без понятия.. :(

Это создание производного компонента. Component->New Component...

Алекс1978, ты без конца здесь спрашиваешь. Не пора ли начать что то самому делать? Курнуть пару книг по дельфи, например. Для старта.

производного компонента? Потомок листвьюв? Но без скролла? Форумы наверное и придумали чтобы помогать друг-другу.. Или я не прав Вашингтон?

а ты думаешь интересно подсказывать пицот раз одно и то же? форумы нужны для обсуждения действительно интересных задач и накопления в следствие этого опыта и скиллов участников. твой вопрос много нам опыта прибавил? вот то то и оно...

по теме - нафиг тебе создавать новый компонент. просто в событии onCreate формы пропиши:
[highlight=delphi]
Style := GetWindowLong(ListView1.Handle, GWL_STYLE );
if (Style and WS_HSCROLL) <> 0 then
SetWindowLong(ListView1.Handle, GWL_STYLE, Style nd not WS_HSCROLL );
[/highlight]

Спасибо большое за код Вашингтон! Твой ответ прибавил опыта мне, со временем он тоже кому-то пригодится,если мне пров инет не отрубает :)