如何去掉RichViewEdit上下滚动条?(问题简单,但是需要用过的才知道...) ( 积分: 50 )

RichViewEdit默认是有上下滚动条的,但是我的文字信息很少,根本不需要滚动条,有了它界面反而难看.

不知道设置它的那个属性可以去掉滚动条.

我试了下：
SetScrollRange(RichEdit1.Handle, SB_BOTH, 0, 0, True);
好像鼠标点到RichEdit里滚动条又溜出来了，不知道高手有没有办法。

function GetPCUserName: AnsiString; //得到用户名
var
lpName: PAnsiChar;
lpUserName: PAnsiChar;
lpnLength: DWORD;
begin
Result := '';
lpnLength := 0;
WNetGetUser(nil, nil, lpnLength); // 取得字串长度
if lpnLength > 0 then begin
GetMem(lpUserName, lpnLength+1);
if WNetGetUser(nil, lpUserName, lpnLength) = NO_ERROR then
Result := lpUserName;
FreeMem(lpUserName);
end;
end;

function GetUserNameEx: String;
var
sName: PChar;
iSize: DWORD;
begin
iSize := 255;
Result := '';
GetMem(sName,255);
try
if Windows.GetUserName(sName,iSize) then Result := sName;
finally
FreeMem(sName);
end;
end;

拿个凳子坐下学习
呵呵