怎样才能不显示滚动条的滑块？

Question

TMEMO的ScrollBars:=ssBoth;
不就是你要的效果？

Answer 1

大家没有明白我的意思，看看这两幅图的区别就明白了！
http://www.chinasf.com/snap1.jpg
http://www.chinasf.com/snap2.jpg

Answer 2

Memo1.ScrollBars:=ssBoth;就是你想要的效果吗？怎么了？你的不行吗？

Answer 3

假如是DBGRID呢?有没有办法把滚动条去掉呢??

Answer 4

我只对TScrollBar和没有将TScrollBar完全封装的控件进行过设置。给你一个简单的例子吧，我建议你到大富翁上搜索一下相关的贴子，你会有收获的！
这个程序是从大富翁上抄的，不太好意思没时间自己写，主要是 把TDBNavigator放在TDBGrid的水平Scrollbar上
1. 去掉DBGrid的水平滚动条，把ScrollBars设置为ssNone
2. 创建内置的水平滚动条FScr和FNav, 和其它控件
3. 控制FScr和FNav的位置（和宽度）
我认为至此外观上已搞定type
  TTestGrid = class(TDBGrid)
  private
    FNav: TDBNavigator;
    FScr: TScrollBar;
    ...
  protected
    procedure Loaded; override;
    procedure Resize; override;
    ...
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    ...
  published
    ...
  end;implementationconstructor TTestGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 400;
  ScrollBars := ssNone;  FScr := TScrollBar.Create(Self);
  FScr.Parent := Self;
  FScr.Left := 0;
  FScr.Width := 100;
  FScr.Top := Height - FScr.Height - 3;  FNav := TDBNavigator.Create(Self);
  FNav.Parent := Self;
  FNav.Left := 101;
  FNav.Height := FScr.Height;
  FNav.Top := Height - FNav.Height - 3;
  FNav.Width := 200;
  ...
end;destructor TTestGrid.Destroy;
begin
  ...
  FNav.Free;
  FScr.Free;  inherited Destroy;
end;procedure TTestGrid.Loaded;
begin
  inherited Loaded;  Resize;
end;procedure TTestGrid.Resize;
begin
  inherited;  FScr.Top := Height - FScr.Height - 3;
  FNav.Top := Height - FNav.Height - 3;
end;