WM＿XXXX消息问题，高手进来帮帮忙吧

[MMas]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TMYImage = class(TImage)
private
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMSize(var Message: TWMSize); message WM_SIZE;
end;

var
Form1: TForm1;
Image1: TMYImage;

implementation

{$R *.dfm}

procedure TMYImage.WMMouseWheel(var Message: TWMMouseWheel);
begin
beep;
end;

procedure TMYImage.WMLButtonDown(var Message: TWMLButtonDown);
begin
beep;
end;

procedure TMYImage.WMSize(var Message: TWMSize);
begin
showmessage('WMSize');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1:=TMYImage.Create(Self);
Image1.Parent:=self;
Image1.Align:=alClient;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Image1.Free;
end;

end.

以上代码，运行时，TWMLButtonDown正常；TWMMouseWheel左上方正常，右边和下边没有触发，但最大化后正常；TWMSize改变大小时根本没触发
问题：
　1.为什么TWMMouseWheel消息有肓区？如果解决啊？
　2.TWMSize何时，怎样才触发呢？

[bds248]

关于TWMMouseWheel可以在Form1的TWMMouseWheel判断鼠标是否在所要的范围内从而触发Image1的TWMMouseWheel。道理同上：
Perform(WM_MOUSEWHEEL, 0, Longint(self));

[etomahawk]

// 大小改变时，应当处理WM_WINDOWPOSCHANGED消息，从TGraphicControl继承下来的没有WM_SIZE
procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;

// 在CM_MOUSEWHEEL消息中处理一下看看
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;

[fjf1107]

樓上的：樓主是想用消息實現，學習消息機制；

樓主說的問題，我也搞不清楚為什麼會出現這種情況。

[anguangqing]

看你的代码，为什么不直接用窗体的事件？完全可以达到相同的效果。

[bds248]

关于WM_SIZE可在你改变AIMAGE尺寸的时候加上一句Perform(WM_SIZE, 0, Longint(self));