Memo问题

khzide 2003-07-29 01:58:46

在Memo中使用SetSel时，如果此时设置范围不在可视区域内，会自动滚动到可视区域。怎样才能不让其滚动。

...全文

40 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

从天而降的扣篮 2003-08-03

打赏
举报

回复

表示关注Ing

khzide 2003-08-01

打赏
举报

回复

是EM_EXSETSEL消息不是SetSelTextBuf.我试过了，不行

firetoucher 2003-07-29

打赏
举报

回复

是SetSelTextBuf吧
你可以自己编写对EM_REPLACESEL消息的控制相应事件，只替换文字就行了
procedure WMUr(var Message); message EM_REPLACESEL;

FrameSniper 2003-07-29

打赏
举报

回复

这个楼主，好大方！！！！

wisefish 2003-07-29

打赏
举报

回复

up

当memo内容多时,换行定位类似假死…… 1、内容读进readTxtKeep 2、要查找的关键字KeyStr 3、刷新Memeo显示ss 4、然后根据前面显示的次数、关键字,Memeo定位到需要的位置

MEMO控件MEMO控件

这是早上传的发现有问题不能在Delphi Xe5中运行但能在Delphi7中运行我想删除它也没权限 http://download.csdn.net/detail/teststudio/6404077 所以重传下 Delphi TMemo字符串的查找完全实现已经完全的解决Delphi TMemo的查找对话框和替换对话框功能的所有功能查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif

一个简单的备忘录 public void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException { String action = request.getParameter("action"); if(action.equals("add")) { Memo memo = new Memo(); String path = memo.add(request, response); this.dispatch(request,response,path); } if(action.equals("select")) { Memo memo = new Memo(); String path = memo.select(request, response); this.dispatch(request, response, path); } if(action.equals("save")) { Memo memo = new Memo(); String path = memo.save(request, response); this.dispatch(request, response, path); } }

Delphi XE7 Indy的IdHTTP写的微信公众平台，只做了部分功能，希望大家能用上 temp := JSONObject.Values['subscribe'].ToString; Memo1.Lines.Add('subscribe:' + temp); temp := JSONObject.Values['openid'].ToString; Memo1.Lines.Add('openid:' + temp); temp := JSONObject.Values['nickname'].ToString; Memo1.Lines.Add('nickname:' + temp); temp := JSONObject.Values['sex'].ToString; Memo1.Lines.Add('sex:' + temp); temp := JSONObject.Values['city'].ToString; Memo1.Lines.Add('city:' + temp); temp := JSONObject.Values['country'].ToString; Memo1.Lines.Add('country:' + temp); temp := JSONObject.Values['province'].ToString; Memo1.Lines.Add('province:' + temp); temp := JSONObject.Values['language'].ToString; Memo1.Lines.Add('language:' + temp); temp := JSONObject.Values['headimgurl'].ToString; Memo1.Lines.Add('headimgurl:' + temp); temp := JSONObject.Values['subscribe_time'].ToString; Memo1.Lines.Add('subscribe_time:' + temp); temp := JSONObject.Values['remark'].ToString; Memo1.Lines.Add('remark:' + temp);

5,928

社区成员

262,931

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章