Скачать: CL | DM;

Выключить ScrollBar в ListView   Найти похожие ветки 

← →
Sirakuz ©   (2003-09-03 13:01) [0]

Hi! Как можно выключить Horizontal ScrollBar в TListView?
У меня листвью align=alClient. 2 колонки. Пробовал изменять размеры самой правой колонки при OnResize, но оно происходит только после изменения размеров листвью, поэтому скролбар "мигает" - появляется и исчезает.

---

← →
[lamer]Barmaglot ©   (2003-09-03 13:30) [1]

ShowScrollBar(listview1.handle, SB_HORZ, true); ?

---

← →
Sirakuz ©   (2003-09-03 13:41) [2]

ShowScrollBar не помогает

---

← →
[lamer]Barmaglot ©   (2003-09-03 13:42) [3]

Что не работает?

P.S. Да в предыдущей строке изменил true на false???

---

← →
dataMaster ©   (2003-09-03 13:44) [4]

Было взято на torry.net

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;



---

← →
mrcat ©   (2003-09-03 15:58) [5]

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE)
and not WS_HSCROLL);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c