vcl内部如何按收自定义消息
unit tabletxt;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ComCtrls,comobj,OleServer,WordXP,ActiveX;
const
wm_yb=wm_user+8;
type
tfiletype=(mytxt,myword,myExcel);
ttabletxt = class(tcomponent)
private
procedure mymessage(var msg:tmessage);message wm_yb;
protected
public
procedure mysave(myfilename:string);
published
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('yb', [ttabletxt]);
end;
procedure ttabletxt.mysave(myfilename: string);
begin
postmessage(application.mainform.Handle,wm_yb,1,0);
end;
procedure ttabletxt.mymessage(var msg: tmessage);
begin
showmessage('dffffffffffeeeeeeeeeeeefdsf');
inherited;
end;
end.
基本代码如上所示,但无法收到自定义消息,为何,如何解决,请高手赐教