利用RegisterWindowMessage在不同程序窗体间传递消息

最新推荐文章于 2023-09-28 21:54:30 发布

肖文杰

最新推荐文章于 2023-09-28 21:54:30 发布

阅读量3.8k

点赞数

分类专栏： Delphi 文章标签： image forms interface button windows class

Delphi 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

这个例子讲述了如何在程序间传递消息，如何获得屏幕图形。代码如下，同时运行这两个程序，在form1中按下按纽，则在form2中会出现form1的图形。为简便，只列出窗体代码。

-----------------------form1代码------------------------------
unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
    INTERMSG : UINT;
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
INTERMSG := RegisterWindowMessage('窗口通信的例子');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sendmessage(HWND_BROADCAST,INTERMSG,handle,0);
end;

end.
---------------------form2代码----------------------------------
unit Unit2;

interface

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

type
TForm2 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
    Msg2 : UINT;
    procedure GetImage(Form1Window : HWND);
public
    { Public declarations }
protected
    procedure WndProc(var Message: TMessage); override;
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
Msg2 := RegisterWindowMessage('窗口通信的例子');
end;

procedure TForm2.WndProc(var Message: TMessage);
begin
if Message.Msg = Msg2 then
GetImage(Message.WParam)
else inherited;
end;

procedure TForm2.GetImage(Form1Window : HWND);
var
    Form1DC: HDc;
    Form1Rect: TRect;
begin
image1.Picture := nil;
Form1DC := GetWindowDC(Form1Window);
GetWindowRect(Form1Window,Form1Rect);
image1.Width := Form1Rect.Right-Form1Rect.Left;
image1.Height := Form1Rect.Bottom - Form1Rect.Top;
BitBlt(Image1.Canvas.Handle,0,0,image1.Width,
         image1.Height,
         Form1DC, 0,
         0, SRCCOPY);
Image1.Refresh;
ReleaseDC(Form1Window, Form1DC);
SetForegroundWindow(handle);
beep; //收到信号并且成功完成
end;