请问如何处理窗体的WM_COPYDATA消息以及用户自定义的消息？

Question

在我的程序里，窗体需要接收一个WM_COPYDATA消息，以及一些自定义的消息。可是我不知道该从何处处理这些消息？知道的朋友，可以给我一个示例吗？

Answer 1

procedure TForm1.Button1Click(Sender: TObject); 
var 
  aCopyData: TCopyDataStruct; 
  hTargetWnd: HWND; 
begin 
  with aCopyData do 
  begin 
    dwData := 0; 
    cbData := StrLen(PChar(Edit1.Text)) + 1; 
    lpData := PChar(Edit1.Text) 
  end; 
  hTargetWnd := FindWindowEx(0, 0, nil, PChar('WM_COPYDATA')); 
  if hTargetWnd <> 0 then 
    SendMessage(hTargetWnd, WM_COPYDATA, Longint(Handle), Longint(@aCopyData)) 
  else 
    ShowMessage('没找到窗体'); 
end; 
type 
  TForm1 = class(TForm) 
    private 
    { Private declarations } 
    procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA; 
  public 
    { Public declarations } 
  end; procedure TForm1.WMCopyData(var Msg: TWMCopyData); 
var 
  sText: array[0..99] of Char; 
begin 
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData); 
  label1.Caption := sText; 
end;

Answer 2

to monkely：我有一个地方不明白，既然WM_COPYDATA消息没有对应的事件，那为何它可以通过WMCopyData函数来处理呢？在这句中：
procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;后面的“message WM_COPYDATA;”是何意啊？是在指明WM_COPYDATA消息是由WMCopyData函数处理吗？

Answer 3

是在指明WM_COPYDATA消息是由WMCopyData函数处理吗？  没错，就是指明WM_COPYDATA消息是由WMCopyData函数处理。