关于事件与消息的问题

Question

TMyEvent = procedure(Sender: TObject) of object;
TMyClass = class
private
  FMyEvent: TMyEvent;
published
  property MyEvent: TMyEvent read FMyEvent write FMyEvent;end;

Answer 1

test=class(tbutton )
  private
   // procedure test1;
   procedure test(var Message: TMessage); message WM_User+100;
  public
  end;
procedure TForm1.Button2Click(Sender: TObject);
var s:test;
begin
s:=test.Create(nil);
s.Parent :=form1;
s.Show;
sendmessage(s.Handle ,wm_user+100,0,0);
end;
procedure test.test(var Message: TMessage);
begin
  showmessage('ss');
end;

Answer 2

谢谢 outer2000(天外流星)！但我还想问的是给一个组件增加一个事件，比方说给TEDIT增加一个颜色改变事件，我该怎么做了？谢谢！