哦哦哦哦,这个问题比较难比较难比较难
不知道你是自己放上去的滚动条还是系统自动添加的滚动条。
如果能够得到滚动条的handle然后再改变他的属性还是有可能的。我得研究研究。以前做过一个滚动条,只是用来在上面放图片的。而且很难使用。唉

解决方案 »

  1.   

    up
      gz
    up
      gz
    up
      gz
    up
      gz
    up
      gz
      

  2.   

    procedure TCoolScrollBar.Update(AScrollWindow:TWinControl);
    var
      Code: Word;
      ScrollInfo: TScrollInfo;
    begin
      Code := SB_HORZ;
      if FVisible then
      begin
        ScrollInfo.cbSize := SizeOf(ScrollInfo);
        ScrollInfo.fMask := SIF_ALL ;
        ScrollInfo.nMin := 0;
        ScrollInfo.nPage := FPageSize;
        ScrollInfo.nPos := FPosition;
        ScrollInfo.nTrackPos := FPosition;
        ScrollInfo.nMax := FRange;    Windows.SetScrollInfo(AScrollWindow.Handle, Code, ScrollInfo, TRUE);
     end else
     begin
      {Set Standard scrollbar of AScrollWindow}
       Windows.SetScrollRange(AScrollWindow.Handle,Code,0,0,TRUE);
       //Windows.SetScrollPos(AScrollWindow.Handle,Code,FPosition,TRUE);
     end;
    end;
      

  3.   

    ehom:你用的是FlatStyle?打开那个TFlatScrollbarUnit.res和TFlatScrollbarUnit.pas看看!另外注意flatmemo中的RedrawBorder 方法!