楼上,你的方法是可行的我其实就是用的这个方法,但是就是怕,如果安装到其他电脑上由于操作系统的不同而出现不同的状况。 var i,w:integer; begin w:=0; for i:=0 to 2 do begin w:=w+dbgrid1.Columns[i].Width; end; if dbgrid1.width-w<34 then dbgrid1.Height:=361 else dbgrid1.Height:=345; end; 我想的能不能过的一个现滚动条的消息。 如果不能就只能用这个不太好的做法
可以用记录数来判断,当大于某一个值时就显示滚动条
用dbgrid的height和每一行的height计算纪录数
var i,w:integer;
begin
w:=0;
for i:=0 to 2 do
begin
w:=w+dbgrid1.Columns[i].Width;
end;
if dbgrid1.width-w<34 then
dbgrid1.Height:=361
else
dbgrid1.Height:=345;
end;
我想的能不能过的一个现滚动条的消息。
如果不能就只能用这个不太好的做法