Спрятать горизонтальную или вертикальную полосу прокрутки в TListView



Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FListViewWndProc: TWndMethod;
procedure ListViewWndProc(var Msg: TMessage);
public
{ Private declarations }
FShowHoriz: Boolean;
FShowVert: Boolean;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListViewWndProc(var Msg: TMessage);
begin
ShowScrollBar(ListView1.Handle, SB_HORZ, FShowHoriz);
ShowScrollBar(ListView1.Handle, SB_VERT, FShowVert);
FListViewWndProc(Msg); // process message 
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FShowHoriz := True; // show the horiz scrollbar 
FShowVert := False; // hide vert scrollbar 
FListViewWndProc := ListView1.WindowProc; // save old window proc 
ListView1.WindowProc := ListViewWndProc; // subclass 
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ListView1.WindowProc := FListViewWndProc; // restore window proc 
FListViewWndProc := nil;
end;

Далее: Ускорить удаление элементов из TListView »»