请问如何在控件设计期间响应鼠标的右键（加上菜单及将执行的代码）？(100分)

就像TPageControl设计时，单击右键会有一个“New Page”，TToolBar有一个“New Button”
TStatusBar有一个“Panels Editor……”。

可我的控件继承自TStatusBar时会有“Panels Editor……”,继承自TCustomStatusBar，
并将TStatusBar的全部代码挎过来时，却并没有出现“Panels Editor……”
晕~

还要做一个组件编辑器。

怎么做？能不能具体一点？

TXXXEditor = class(TComponentEditor)
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
....
procedure TXXXEditor.ExecuteVerb(Index: Integer);
begin
ShowMessage('想干嘛，就在这里写代码');
end;

function TXXXEditor.GetVerb(Index: Integer): string;
begin
case Index of
0: Result := '列编辑器 ...';
end;
end;

function TXXXEditor.GetVerbCount: Integer;
begin
Result := 1;
end;

procedure Register;
begin
RegisterComponentEditor(TXXX,TXXXEditor);
end;

最好不要把组件编辑器和组件写到一个单元中。

Thanks,very much!!!

Thanks,very much!!!