在Memo中使用SetSel时,如果此时设置范围不在可视区域内,会自动滚动到可视区域。怎样才能不让其滚动。
解决方案 »
- 求助delphi运算符问题。
- cxgrid 的问题?
- Delphi中使用.net写的webservice所返回的Dataset类
- 那位能帮我写一个尝试连接数据库的代码?
- 为什么我在sql server里面把字段默认值设为0,但增加记录的时候,该字段不会自动设为默认值0,这是为什么???
- 急,在线等!请问advstringgrid能实现多表头吗?若能如何实现?
- 一个关于RTF的小问题。
- 怎样让2个LISTVIEW的滚动条同步滚动??(急)
- 学习delphi还要看那些书?谢谢各位了,帮忙指点一下了!!!!!
- 请教WINAPI等高手,如何实现myactivex.集合.属性a这样类型的属性?
- 特急 @@@cxGrid 数据处理@@@
- 一个简单的打印问题
procedure TForm1.Button5Click(Sender: TObject);
begin
with Memo1 do
begin
Lines.LoadFromFile('G:\ff.txt');
ScrollBars:=ssboth;
SetFocus;
SelStart:=200;
SelLength:=-195;
end;
end;
begin
SetFocus;
SendMessage(Handle, EM_SETSEL, 50, 50);
SendMessage(Handle, EM_GETSEL, Longint(50), Longint(54));
SendMessage(Handle, EM_SETSEL, 50, 54); end;
可以工作,自己看看tcustomedit里的代码。
with memo1 do
begin
SetFocus;
SendMessage(Handle, EM_SETSEL, 500, 540);
end;
即可实现
在SendMessage(Handle, EM_SETSEL, 500, 540);中,500时开始的位置,540是选择结束的位置。