SendMessage的使用

SendMessage和PostMessage自己做个笔记。
SendMessage:将指定的消息发送到一个或多个窗口，知道消息处理完成，在返回执行下面的内容。
PostMessage:发送消息后，消息进入消息队列，然后直接返回。
SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）；

-hWnd：句柄，其窗口程序将接收消息的窗口的句柄。
获取窗体的句柄，handle := Findwindow（nil，Pchar(Form.Caption)）;

-Msg： 指定被发送的消息。（系统有设定好的，也可以自定义设定）

• wParam：附加的消息。
• IParam：附加的消息。
• 返回值：返回值指定消息处理的结果，依赖于所发送的消息。

1.这一段代码是sendMessage发送消息

procedure TForm2.btn1Click(Sender: TObject);
var
   wndhwnd:HWND;
begin
   wndhwnd:=FindWindow(nil,PChar(form1.Caption));
   SendMessage(wndhwnd, WM_APPLY, 123, 3);
end ;

2.这是在第二个窗体接收消息

type
  TForm1 = class(TForm)
  private
    
  public
    procedure ShowMsg(var message:TMessage);
    message WM_APPLY;
  end;

procedure TForm1.ShowMsg(var message: TMessage);
begin
  ShowMessage('消息传递过来了');
end;