关于派生一个控件的问题。。。。。。。。。。。。。。。

Question

以下是我测试的一个程序：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;type
 TMyImage = class(TImage)
  public
   x : boolean;
   procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
   procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
end;//////////////////////////////////////////////////////////
var
  Form1: TForm1;implementation{$R *.DFM}
procedure TMyImage.CMMouseEnter(var msg: TMessage);
begin
  x := True;
end;procedure TMyImage.CMMouseLeave(var msg: TMessage);
begin
  x := False;
end;end.
 
可以参见：http://go1.163.com/~delphigirl/VCL/38.htm

Answer 1

谢谢c_hk(小李抢刀)，我先回去试试。

Answer 2

类型定义部分应该写成这样
type
  TMyImage = class(TImage)
  public   //<--这里必须加public,否则缺省为published,这样就无法成功编译了
    x : boolean;
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  end;