源码，相信不少人会喜欢的，关于任务栏按钮的右键菜单(0分)

如题，我已写成了控件，但是有一个小问题，就是使用了该控件之后，
关闭DELPHI时都会出现错误，不知道是什么原因呢？第一次学写控件，请高手们帮手
看看到底在哪里出错了。
控件下载：
http://www.lkgarden.com/lfpsoft/ccTrayMenu.zip

高手进来吧。

constructor TTrayMenu.Create(AOwner: TComponent);
begin
inherited;
//在IDE环境下是不是不用....
if csDesigning in ComponentState then
begin
OldWndProc := Pointer(GetWindowLong(Application.Handle, GWL_WNDPROC));
SetWindowLong(Application.Handle, GWL_WNDPROC, longint(@NewWndProc));

OldProc := Pointer(GetWindowLong(Application.Handle, GWL_WNDPROC));
SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(MakeObjectInstance(WndProc)));

FHWND := TForm(AOwner).Handle;
OldFormWndProc := Pointer(GetWindowLong(FHWND, GWL_WNDPROC));
SetWindowLong(FHWND, GWL_WNDPROC, Longint(MakeObjectInstance(WndFormProc)));
end;

FActiveFormMenu := False;
FActiveTrayMenu := False;
ActiveMenu := False;
end;
声明，我不是高手。

好像不行呀。

搞错，应该是：
if not (csDesigning in ComponentState) then

这次好像可以了哦。

gz