如何获得richedit控件中当前选定字符
1个回答
推荐于2016-09-28
展开全部
/获取指定窗口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;
//实现函数
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;
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询