Спрятать горизонтальную или вертикальную полосу прокрутки в TListView |
Previous Top Next |
Code: |
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; |
©Drkb::01150
Взято с сайта: http://www.swissdelphicenter.ch