在Richedit中得到所选文字的位置(100分)(100分)

  • 主题发起人 主题发起人 简单
  • 开始时间 开始时间

简单

Unregistered / Unconfirmed
GUEST, unregistred user!
我想编一个日记本,查找的时候,希望查找对话框能随查找的文字
自动更改对话框的位置,希望得到高手的指导,谢谢。
 
RichEdit又Strings属性,该属性有Indexof方法,试一下
 
FindText 得到索引,
var aPoint: TPoint;
t := SendMessage(aRichEdit.Handle, EM_POSFROMCHAR, theIndex, 0);
aPoint.x := LoWord(t);
aPoint.y := HiWord(t);
然后用 aPoint := ClientToScree(aPoint);
FindDialog1.Position := aPoint;
 
我试了SuperMMX的方法,我将
var t:longint;
theindex:=123;
运行到
t := SendMessage(RichEdit1.Handle, EM_POSFROMCHAR,theIndex,0);
会出错,不知什么原因
我用的Delphi5.0是否有关
 
出什么错?我的代码是没有测试的,只是一个想法。
 
就是运行到那句就错了,提示的信息我也不记得了
 
我知道了,我当时参考的是 d3 的帮助,d5 的参数已经变了。
应该是:

SendMessage(aRichEdit.Handle, EM_POSFROMCHAR, LongInt(@p), aIndex);
 
运行到 LongInt(@p)出错
p 是什么参数
运行到 aPoint := ClientToScreen(aPoint);也出错
错误信息:HWND于Tpoint类型不符
 
p 是一个 TPoint, 忘写了

你可以自己参照帮助改一改,有时候会写错,
这里没有 help,

这样的学法是不行的,得自己参照帮助,自己摸索, 试验。

 
谢谢,SuperMMX,我会努力的,
 
后退
顶部