两个TFrom窗体之间传送消息

小小de巫师

于 2018-04-08 17:07:18 发布

阅读量729

点赞数

分类专栏： Delphi Xe3 Delphi

本文链接：https://blog.youkuaiyun.com/gfuchao/article/details/79854656

版权

本文档介绍了如何在两个Delphi创建的TForm窗体之间使用WM_COPYDATA消息进行数据传递。提供了接收和发送消息的详细实现代码，包括内存分配、数据复制和释放等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

接收消息========================
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    { Private declarations }
  public
  procedure Mymessage(var t:TWmCopyData);message WM_COPYDATA;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Mymessage(var t:TWmCopyData);
begin
  Edit1.text:=Pchar(t.CopyDataStruct^.lpData);//接受数据并显示。
end;
end.
 
 
发送消息=====================
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Butt

最低0.47元/天解锁文章