delphi自定义windows消息

delphi自定义消息比较简单

先定义自己的消息类型

const WM_MY_MSG = WM_USER + 100;

然后在类或窗口里写个消息过程，格式就是下面的格式，过程名和消息类型随便你定义

 procedure DoMymessage(var msg: TMessage);message WM_MY_MSG;





//实现
procedure TForm1.DoMymessage(var msg: TMessage);
begin
  if msg.Msg = WM_MY_MSG then
  begin
    Memo1.Lines.Add(PChar(msg.LParam));
  end;
end;

测试：发送消息

procedure TForm1.Button1Click(Sender: TObject);
var
  x: INT_PTR;
begin
//可发送字符，我在c++里试过，好像不能这样发送字符串，记不太清了，Delphi还是很方便
  x := Integer(pchar('阿斯顿'));
  SendMessage(Self.Handle,WM_MY_MSG,0,x);
end;