DELPHI WM_CopyData 用法
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure MyCopyDataMsg(Var Msg : TMessage); Message WM_COPYDATA;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
cdds : TCopyDataStruct;
begin
cdds.dwData := 0;
cdds.cbData := length(Edit1.Text)+1;
cdds.lpData := pchar(Edit1.Text);
SendMessage(Handle,WM_COPYDATA,0,LongWord(@cdds));
end;
procedure TForm1.MyCopyDataMsg(var Msg: TMessage);
var
cdds : TcopyDataStruct;
begin
if msg.Msg = WM_COPYDATA then
begin
cdds := PcopyDataStruct(Msg.LParam)^;
edit2.Text := (Pchar(cdds.lpData));
end;
end;
end.
最新文章
- web.xml配置详情 - 简要介绍
- ubunut 14.04 将Caps Lock设置为Control
- 引用google的jQuery文件
- Maven仓库的布局
- [WebGL] Setting Up WebGL
- JS 严格模式
- 为什么希捷选择了8GB作为标准的闪存容量呢?答案就在下面(新的驱动器可以实现一定程度上的写入缓存)
- javascript中的三角学
- Python——字符串2.0(实验)
- FineUIPro v5.2.0已发布(jQuery升级,自定义图标,日期控件)
- 18 徐州 M
- hashlib模块(加密模块)
- 安装lnmp1.5,搬迁Laravel项目到服务器笔记
- C#正则表达式_简单梳理_Emoji表情字符处理
- cocos2dx 3.x(加载网络自定义头像)
- LeetCode - Two Sum IV - Input is a BST
- 创建DLL动态链接库——声明导出法
- windows的cmd下面格式化某个盘符
- 普通用户修改root密码【转】
- No.101_第二次团队会议