在FileListBox中添加滚动条碰到难题

Description of your first forum.

在FileListBox中添加滚动条碰到难题

帖子yanweiwu » 星期六, 2004年12月4日 09:16


我在FileListBox中想要添加水平滚动条代码如下:
var
    hfl:THandle;
    kk:SCROLLINFO;
    il:integer;
begin
   hfl:=FileListBox1.Handle;
    il:=getflw(FileListBox1);//取得文件列表名的最长长度
   kk.cbSize:=sizeof(kk);
   kk.fMask:=SIF_PAGE;
   kk.nPage:=il+5;
   kk.nPos:=0;
   kk.nMin:=0;
   kk.nMax:=il+25;
   setscrollinfo(hfl,SB_HORZ,KK,TRUE);  
end;
可是一点滚动条没有反应,请各位大侠指教一下,谢谢了.
因为没有多少分了,请见谅哦
 
 
 

在FileListBox中添加滚动条碰到难题

帖子yanweiwu » 星期二, 2004年12月7日 16:08


help me