Memo问题

khzide 2003-07-29 01:56:54

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

...全文

39 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

newsofter 2003-07-29

打赏
举报

回复

Up

pressman 2003-07-29

打赏
举报

回复

老问题了
你贴了几个呀？
结吧！

firetoucher 2003-07-29

打赏
举报

回复

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

wisefish 2003-07-29

打赏
举报

回复

up

function SearchMemo(Memo: TCustomEdit; const SearchString: string; Options: TFindOptions): Boolean; var Buffer, P: PChar; Size: Word; begin Result := False; if Length(SearchString) = 0 then Exit; Size := Memo.GetTextLen; if (Size = 0) then Exit; Buffer := SysUtils.StrAlloc(Size + 1); try Memo.GetTextBuf(Buffer, Size + 1); if frDown in Options then P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, [soDown]) else P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, []);

Delphi 7.0 获取Memo控件中字符的可见行数，没讲时在Memo控件中随便粘贴入一些字符，单击窗口中的“检测可见行数”按钮，即可得到该文本框控件中字符的行数，将这一系列执行命令集成在delphi的按钮监听事件中，编写如下代码即可：　　function LinesVisible(Memo: TMemo): integer; 　　Var 　　 OldFont : HFont; 　　 Hand : THandle; 　　 TM : TTextMetric; 　　 Rect : TRect; 　　 tempint : integer; 　　begin 　　 Hand := GetDC(Memo.Handle); 　　 try 　　 GetTextMetrics(Hand, TM); 　　 Memo.Perform(EM_GETRECT, 0, longint(@Rect)); 　　 tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; 　　 finally 　　 ReleaseDC(Memo.Handle, Hand); 　　 end; 　　 Result := tempint; 　　end; 　　　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　begin 　　 bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; 　　end; 　　程序运行效果请参见截图所示，完整源码请下载。

MEMO控件MEMO控件

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

动态改变FastReport内的Memo内容 Delphi 动态改变FastReport内的Memo内容 Delphi

数据库相关

2,498

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章