有关使用消息的问题，请大家帮忙

[supermanzd]

我定义了一个消息，使用API SendMessage 发送，可是用 GetMessage 却无法接收，请问我该如何解决？？？

[大地精灵]

UP

[DWGZ]

UM_TEST = WM_USER + 100

procedure DoSomething(Msg : TMessage ): message UM_TEST;


procedure DoSomething(Msg : TMessage );
begin

end;

[angelface]

up

[WindowsAPI]

const
UM_TEST = WM_USER + 100
type
TMyWinControl=class(..)
private
procedure DoSomething(Msg : TMessage ): message UM_TEST;
public

end



procedure TMyWinControl.DoSomething(Msg : TMessage );
begin
ShowMessage('测试成功!');
end;


注意TMyWinControl是要接受消息的对象Windows控件,如窗体或自定的Windows控件等.如果有TMyWinControl的对象MyWCtrl,则发送消息时用:
SendMessage(MyWCtrl.Handle,UM_TEST,wParam,lParam);

[李_军]

要用GetMessage接收的话，要注册过该消息才行
用楼上的方法就可以接收了

[Uling]

这个也行
sendmessage(Form1.Handle, UM_TEST, UM_WParam, 0);

const
UM_TEST = WM_USER + 100;
UM_WParam = 1
...
protected
procedure WndProc(Var Message: TMessage); Override;
...
procedure TForm1.WndProc(Var Message: TMessage);
begin
case message.msg of
UM_TEST:
case message.wparam of
UM_WParam: begin { do something }end;
inherited WndProc(message);
end;