文档章节

如何把一个程序中 Edit 中的文本赋给另一个程序的 Edit ? - 回复 "Disk_" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 345
阅读 9
收藏 0

本例效果图:



首先应该知道要接受文本的 Edit 的句柄, 这个有很多办法, 本例用了最简单的自我获取的办法.

程序1: 准备接受文本的程序
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(Edit1.Handle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Text := '程序1';
  Button1.Caption := '显示 Edit1 的句柄';
end;

end.

 
 
 
 
 

 

 

  

程序2: 发送文本的程序
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  p: PChar;
  h: HWND;
begin
  p := PChar(Edit1.Text);
  h := HWND(StrToIntDef(Edit2.Text, 0));
  SendMessage(h, WM_SETTEXT, StrLen(p), Cardinal(p));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Text := '程序2';
  Button1.Caption := '把 Edit1 中的内容发送到 Edit2 中句柄指示的文本控件中...';
  Button1.WordWrap := True; {如果是 Delphi 2009 之前的版本, Button 可能不支持换行}
end;

end.

 
 
 
 
 

 

 

  

这是发送文本, 如果是从对方接收文本要稍麻烦些, 参见:
http://www.cnblogs.com/del/archive/2008/11/15/1334237.html

另外: 获取任意窗口(或控件)的句柄, 可以参见:
http://www.cnblogs.com/del/archive/2008/03/09/1097793.html

本文转载自:http://www.cnblogs.com/del/archive/2008/12/02/1345752.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
JSF 2 简介: 复合组件最佳实践

JSF 是一个基于组件的框架,这意味着它可以提供您所需要的基础架构来实现您自己的组件。JSF 2 提供一种简单的方法来实现自定义的复合组件。 在前面的文章中,我已经向您展示了几个复合组件的...

IBMdW
2011/05/18
1K
0
Visual C++开发中常见问题的答案

1、简述VC6下如何进行程序的调试   在主菜单"Build"中,有一个Start Build的子菜单,它下面包含了Go菜单(快捷键为F5),选择后,程序将从当前语句进入调试运行,直到遇到断点或程序结束。 ...

青夜之衫
2017/12/06
0
0
使用WinHex

winhex 是一个专门用来对付各种日常紧急情况的工具。它可以用来检查和修复各种文件、恢复删除文件、硬盘损坏造成的数据丢失等。同时它还可以让你看到其他程序隐藏起来的文件和数据。总体来说...

东风冷雪
2017/11/13
0
0
C++ 一个程序获取另一个程序Edit控件的内容

转载地址:https://www.cnblogs.com/lujin49/p/4796502.html //一个程序获取另一个程序Edit控件的内容 //根据指定程序的标题名获取改程序窗口的句柄 HWND hWnd=::FindWindow(NULL,"zhang001"...

qq78442761
2018/02/13
0
0
编辑距离计算与Python实现

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。 https://blog.csdn.net/meiqi0538/article/details/100174208 1 什么是编辑距离 在计算文本的...

皮乾东
08/31
0
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
11
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
9
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部