请教如何使STRINGGRID的SCOLLBAR 上下移动呀 帮帮俺 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 何使STRINGGRID的SCOLLBAR 上下移动呀 什么意思,说清楚点,它本来就能动阿要不你是不是改了某些属性?找属性里的SCOL有关的试着改改就行了 StringGrid每次增加一行,滚动条就滚动到最下面procedure TForm1.Button1Click(Sender: TObject);begin StringGrid1.RowCount:=StringGrid1.RowCount+1; sendmessage(StringGrid1.Handle,WM_VSCROLL,SB_BOTTOM,0);end; StringGrid1.Row:=StringGrid1.RowCount-1; procedure TForm1.BitBtn1Click(Sender: TObject);varScrollMessage:TWMVScroll;begin ScrollMessage.Msg:=WM_VScroll; ScrollMessage.ScrollCode:=SB_LINEDOWN; ScrollMessage.Pos:=0; stringgrid1.Dispatch(ScrollMessage);end; 跟 wdonghai(小王) 原理一样SB_LINEDOWN 向下一行SB_BOTTOM 最后一行{SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,SB_THUMBTRACK, SB_TOP }类推!!! ADODataSet 控件 怎么判断正在连接的人数! 获取ico不透明如何处理? 关于DateTimePicker的郁闷问题 高分相求!!!哪儿有容易用一点的支持自定义报表的控件? 如何使托盘中的图标显示为自己定义的图标? C的联合数据类型如何用PASCAL描述? delphi中获得本机IP地址的函数是什么? db文件格式 初学者问题 怎么拦截系统函数?(超高度难题!) 继续放分!!!给中国队加油!!!(红海) 如何编制一程序,最下化(或者关闭时)缩到右下角状态栏(变成小图标)?
要不你是不是改了某些属性?找属性里的SCOL有关的试着改改就行了
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1;
sendmessage(StringGrid1.Handle,WM_VSCROLL,SB_BOTTOM,0);
end;
var
ScrollMessage:TWMVScroll;begin
ScrollMessage.Msg:=WM_VScroll; ScrollMessage.ScrollCode:=SB_LINEDOWN; ScrollMessage.Pos:=0; stringgrid1.Dispatch(ScrollMessage);end;
SB_BOTTOM 最后一行{SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,SB_THUMBTRACK, SB_TOP }
类推!!!