获取指定窗口EDIT、RICHEDIT控件选中的内容

王朝other·作者佚名  2006-07-10
窄屏简体版  字體: |||超大  

{

文章名 : 获取指定窗口EDIT、RICHEDIT控件选中的内容

说明 : 无

作者 : JJony

QQ : 254706028

博客 : http://blog.csdn.net/jzj_jony

空间 : http://jonychen,ys168.com

测试环境 : WinXPSP2+Delphi7

声明 : 您可以任意转载,但请注明文章作者和出处

}

获取指定窗口EDIT、RICHEDIT控件选中的内容

前两天看到DFW有人问如何获取选中的内容,随便回答了利用系统消息,今天又去看似乎那个人还

未解决,于是把我实现的代码贴出来,以供大家参考,顺便再次强调下Windows是个消息的系统,

所以处理系统消息一定要掌握,下面就是实现代码,很简单:

//获取指定窗口EDIT、RICHEDIT控件选中的内容

//实现函数

function GetSelectedText(

h:thandle; //EDIT或RICHEDIT的句柄

Buffer: PChar; //返回获取的选中文本

BufSize: Integer //指定返回的大小

): Integer; //返回实际获取的文本的大小

var

P: PChar;

spos,epos:integer;

slen:integer;

sl:integer;

begin

SendMessage(H, EM_GETSEL, Longint(@SPos), Longint(@EPos));//获取选中字符串的起始位置

//和结束位置

sl := EPos-SPos; //计算选中字符串长度

slen:=SendMessage(h,WM_GETTEXTLENGTH, 0, 0); //获取控件文本整个长度

P := StrAlloc(slen + 1); //分配足够内存以存储控件所有文本

try

SendMessage(h,WM_GETTEXT,StrBufSize(P), Longint(p)); //获取控件所有文本

if sl >= BufSize then sl := BufSize - 1; //根据自定义buffer的长度获取文本串

//防止内存溢出

StrLCopy(Buffer, P + SPos, sl); //返回选中的字符串

result:=sl; //返回实际获取的文本的大小

finally

StrDispose(P); //释放内存

end;

end;

//调用实例:获取记事本中当前选中的内容

procedure TForm1.Button1Click(Sender: TObject);

var

h:thandle;

buf:array[0..MAX_PATH] of char;

begin

h:=findwindow('Notepad',nil);

if h<=0 then exit;

h:=findwindowex(h,0,'Edit',nil);

if h<=0 then exit;

GetSelectedText(h,@buf,sizeof(buf));

memo1.Text:=strpas(@buf);

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航