为什么收不到自己发送的消息？

[luxiaoban]

我有正在编写一个控件，

有一个消息需要发送给自己，

但好象自己收不到这个消息，为什么？

BTW：这个控件是继承于TComponent.

[luxiaoban]

自定义消息

[Tense]

hehe

[luxiaoban]

我推

[wantme]

采用Perform函数可以

[luxiaoban]

to wantme:

Perform是TControl的函数，我是从TComponent继承的

[luxiaoban]

我再推

[title]

帮你推一下！

[largewang]

Why send message to itself?
Use Method, Ok!
another way:
Send message by it`s owner.

[gzh5200]

你可以用sendmessage( ),再在wndproc( )中处理消息

[luxiaoban]

I want to know why can not receive message.

[largewang]

Let me try.

[luxiaoban]

please answer me.

[largewang]

unit Unit1;

interface

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

const wm_me = WM_USER + 1000;

type
TMyComponent = class(TComponent)
private
procedure ReceiveMessage(var Msg: TMessage); message wm_me;
public
function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
end;


TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TMyComponent }

procedure TMyComponent.ReceiveMessage(var Msg: TMessage);
begin
showmessage('afd');
end;

function TMyComponent.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
var
Message: TMessage;
begin
Message.Msg := wm_me;//Msg;
Message.WParam := WParam;
Message.LParam := LParam;
Message.Result := 0;
if Self <> nil then Dispatch(Message);
Result := Message.Result;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
M: tmycomponent;
begin
M:= tmycomponent.Create(Self);
try
m.Perform(wm_me,0,0);
finally
m.Free;
end;

end;

end.

[luxiaoban]

largewang(垃圾王):

谢谢，成功了