文档章节

用 API 实现的获取文本容器中选择的文本 - 回复 "roy.flex" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 598
阅读 4
收藏 0
点赞 0
评论 0
问题来源: http://www.cnblogs.com/del/archive/2008/06/18/1083011.html#1229305

告诉 roy.flex 同学:
你的问题还是挺复杂的, 先要完成的就是这一步;
再往下做, 如果要捕获其他程序中的鼠标需要做 DLL;
不过还有个简单办法, 就是用 TTimer 定时获取, 这样也就不用钩子了;
但是还需要知道要操作对象的句柄, 这个可以参考: http://www.cnblogs.com/del/archive/2008/03/09/1097942.html

本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{用 API 实现的获取文本容器中选择的文本的函数}
function GetEditSeleteText(h: HWND): string;
var
  len,sx,ex: Integer; {文本总长度, 选择的开始位置, 选择的结束位置}
  buf: PChar;         {所有文本}
begin
  {获取文本总长度}
  len := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
  {为接受所有文本的缓冲区分配内存}
  buf := GlobalAllocPtr(0, len); {这里没有使用 GetMem, 因为需要全局的, 不然无法面对其他程序}
  {获取所有文本}
  SendMessage(h, WM_GETTEXT, len, Longint(buf));
  {获取选择的开始位置和结束位置}
  SendMessage(h, EM_GETSEL, Longint(@sx), Longint(@ex));
  {截取选择的文本}
  Result := Copy(buf, sx+1, ex-sx);
  {释放内存}
  GlobalFreePtr(buf);
end;

{测试 TEdit, 同时与 VCL 的获取方法对比}
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetEditSeleteText(Edit1.Handle) + ' - ' + Edit1.SelText);
end;

{测试 TMemo, 同时与 VCL 的获取方法对比}
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(GetEditSeleteText(Memo1.Handle) + ' - ' + Memo1.SelText);
end;

{测试 TRichEdit, 同时与 VCL 的获取方法对比}
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(GetEditSeleteText(RichEdit1.Handle) + ' - ' + RichEdit1.SelText);
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 145
  ClientWidth = 181
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 95
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 8
    Top = 8
    Width = 81
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
  end
  object Memo1: TMemo
    Left = 8
    Top = 35
    Width = 81
    Height = 46
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object RichEdit1: TRichEdit
    Left = 8
    Top = 87
    Width = 81
    Height = 50
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    TabOrder = 3
  end
  object Button2: TButton
    Left = 95
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 95
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 5
    OnClick = Button3Click
  end
end

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
【R图秀-2】社交网络数据可视化(一)

作者简介Introduction 傅兴:个人公众号:Rapp 往期回顾 为了进一步提高自己数据获取的能力,我把目光放到了互联网上一个重要的数据来源:社交网络(Social Network),比如国外的facebook和...

R语言中文社区 ⋅ 01/28 ⋅ 0

[031] 微信公众帐号开发教程第7篇-文本消息中换行符的使用(转)

本篇文章主要介绍在文本消息中使用换行符的长处以及怎样使用换行符。 近期一个月尽管抽不出时间写博客,但却一直在认真答复大家提出的问题。收到这么多的回复、关注和酬谢,还是蛮有成就感的...

云栖希望。 ⋅ 2017/12/04 ⋅ 0

FileReader类型之文字读取

一、什么是FileReader类型? FileReader类型实现的是一种异步文件读取机制,通常可以用于读取文本文件和图片文件,而本文只单独讲讲文本文件的读取。 使用FileReader读取文本文件内容主要用到...

璿而不华 ⋅ 2017/11/06 ⋅ 0

运维APP番外篇

API是个好东西,特别是restful API是个好东西,我不是开发也就不展开讲了,我喜欢新的东西,也喜欢捯饬新的东西,最好是别人没写过的,如果都写了也就没啥意思了~~~ 好吧,进入正题。我想达到...

youerning ⋅ 2016/03/12 ⋅ 0

最好用的图表工具 -- ECharts

首先比较下目前比较流行的几款图表库: highcharts文档详细易懂,上手快捷,但highcharts依赖于jQuery库,而且Highcharts对个人免费但对企业收费 d3.js更自由些,更容易做出自己想要的效果,但学习...

webmirror ⋅ 2017/12/07 ⋅ 0

Golang 开发的微信 SDK--go-wechat-sdk

WeChat SDK for Go 使用Golang开发的微信SDK,简单、易用。 快速开始 以下是一个处理消息接收以及回复的例子: //配置微信参数config := &wechat.Config{ AppID: "xxxx", AppSecret: "xxxx",...

silenceper ⋅ 2016/09/17 ⋅ 0

silenceper/wechat

WeChat SDK for Go ![GoDoc] (http://godoc.org/github.com/silenceper/wechat?status.svg) 使用Golang开发的微信SDK,简单、易用。 快速开始 以下是一个处理消息接收以及回复的例子: //配置...

silenceper ⋅ 2016/10/24 ⋅ 0

创意 | 一款能让聋哑人送外卖的软件

看到程序人生的推送,快递小哥“挂电话”,不明觉真相的人对其就是一个差评。所以我们常说,不了解真相之前,不要妄下评论。聋哑人只是和我们不能语音交流而已,其他都跟我我们一样,他们也需...

csdnsevenn ⋅ 2017/12/17 ⋅ 0

微信小程序过长文本折叠效果的探索

之前做小程序开发时,遇到要实现过长文本进行的折叠的效果(类型微信朋友圈那种)。主要交互有三点: 让文本过长时折叠、并显示一个“全文”的点击文本 当用户点击“全文”则会展开被折叠的文...

LevonLin ⋅ 2017/11/27 ⋅ 0

Python 网页微信 API--wxBot

wxBot 是用 Python 包装 Web 微信协议实现的微信机器人框架。 目前的消息支持情况: 群消息 文本 图片 地理位置 个人名片 语音 动画 语音电话 红包 联系人消息 文本 图片 地理位置 个人名片 ...

匿名 ⋅ 2017/04/13 ⋅ 9

没有更多内容

加载失败,请刷新页面

加载更多

下一页

那些证书相关的玩意儿(SSL,X.509,PEM,DER,CRT,CER,KEY,CSR,P12等)

之前没接触过证书加密的话,对证书相关的这些概念真是感觉挺棘手的,因为一下子来了一大堆新名词,看起来像是另一个领域的东西,而不是我们所熟悉的编程领域的那些东西,起码我个人感觉如此,且很长...

颖辉小居 ⋅ 20分钟前 ⋅ 0

利用有限制通配符提升API灵活性(28)

1、参数化类型是不可变的 List<String> 不是List<Object>的子类,但是二者是有联系的 利用有限制的通配符类型处理类似情况 List<? extends Object>(生产者) Collection<? super E>(消费者......

职业搬砖20年 ⋅ 26分钟前 ⋅ 0

ssm框架 +bootstrap分页

这里有两种方式 方式一:自己写分页 方式二:使用插件PageHelper 1.自己写分页 1.1 效果 1.2 实现过程 1.2.1 创建分页公共类 //---------------------------1.属性-------------------------...

Lucky_Me ⋅ 33分钟前 ⋅ 0

Istio

helm template install/kubernetes/helm/istio --name istio --namespace istio-system > $HOME/istio.yaml after $ kubectl create namespace istio-system$ kubectl create -f $HOME/ist......

openthings ⋅ 33分钟前 ⋅ 0

内核线程、轻量级进程、用户线程

线程与进程概念 在现代操作系统中,进程支持多线程。 进程是资源管理的最小单元; 线程是程序执行的最小单元。 即线程作为调度和分配的基本单位,进程作为资源分配的基本单位 一个进程的组成...

117 ⋅ 38分钟前 ⋅ 0

elasticsearch2.4.6升级为elasticsearch-5.5.0的经历

将elasticsearch-5.5.0 中的配置 path.data 指向原来的数据路径 即 path.data: /usr/local/src/elasticsearch-2.4.6/data 注意: elasticsearch-5.5.0 需要将jdk版本升级到1.8...

晨猫 ⋅ 39分钟前 ⋅ 1

lvm讲解 磁盘故障小案例

1

oschina130111 ⋅ 43分钟前 ⋅ 0

那些提升开发人员工作效率的在线工具

本文转载自公众号 Hollis 作为一个Java开发人员,经常要和各种各样的工具打交道,除了我们常用的IDE工具以外,其实还有很多工具是我们在日常开发及学习过程中要经常使用到的。 Hollis偏爱使用...

时刻在奔跑 ⋅ 55分钟前 ⋅ 0

restful风格 实现DELETE PUT请求 的web.xml的配置

import org.springframework.beans.factory.annotation.Autowired; import org.springframework.http.HttpStatus; import org.springframework.http.ResponseEntity; import org.springframe......

泉天下 ⋅ 今天 ⋅ 0

Shell数组

Shell数组 Shell在编程方面比Windows批处理强大很多,无论是在循环、运算。 bash支持一维数组(不支持多维数组),并且没有限定数组的大小。类似与C语言,数组元素的下标由0开始编号。获取数...

蜗牛奔跑 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部