谁知道如何操作TMemo的滚动条? 我想控制TMemo滚动条的位置,,,谁知道怎么做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SendMessage(Memo1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);但是这样只能以行为单位滚动,我向更精确的控制。 现在用的电脑没装DELPHI,不然一起研究一下 可不可以用SMB_SETPOS,来设置位置,SendMessage(Memo1.Handle, WM_VSCROLL, SMB_SETPOS, POS);POS是要设置的位置整数型没帮助信息在,电脑又没装DELPHI,不知道对不对 用WM_VSCROLL 配合 SB_THUMBTRACK 就可以搞定nScrollCode = (int) LOWORD(wParam); // scroll bar value nPos = (short int) HIWORD(wParam); // scroll box position 注意 在wParam 参数的高位中放 要移动的位置,就是 nPos,低位放 SB_THUMBTRACK, 具体如下procedure TForm1.Button1Click(Sender: TObject);var pos:SmallInt; wP:Integer;begin pos:=10;\\要移动的位置 wp:=pos shl 16 ;\\把 pos放到高位 wp:=wp+SmallInt(SB_THUMBTRACK);\\参数 SB_THUMBTRCK 放在低位 SendMessage(Memo1.Handle,WM_VSCROLL,wp,0);end; 使用Delphi7开发三维坐标系。 隐藏安装程序问题 续 串口通信程序报错 大家帮忙看看 TSaveDialog 使程序自动关闭 有哪位大哥知道如何在滚动时让Excel标题栏不动!在Excel里是怎么设置的? 申请国家创新基金怎么办? 在那里可以下载到win2000 server的‘终端管理客户端’??(在线) TBitmap为何不能加载成功? 为什么用DBGRID组件显示数据时,数据会发生变化 网络映射驱动器的问题 Currency相加 关于COM 接口实现问题请教
但是这样只能以行为单位滚动,我向更精确的控制。
nScrollCode = (int) LOWORD(wParam); // scroll bar value
nPos = (short int) HIWORD(wParam); // scroll box position
注意 在wParam 参数的高位中放 要移动的位置,就是 nPos,低位放 SB_THUMBTRACK,
具体如下
procedure TForm1.Button1Click(Sender: TObject);
var
pos:SmallInt;
wP:Integer;
begin
pos:=10;\\要移动的位置
wp:=pos shl 16 ;\\把 pos放到高位
wp:=wp+SmallInt(SB_THUMBTRACK);\\参数 SB_THUMBTRCK 放在低位
SendMessage(Memo1.Handle,WM_VSCROLL,wp,0);
end;