关于控件编写,恭迎高手！！！

Question

如何写控件在IDE环境中的右键菜单，比如在PageControl1对象上右键会出现一个菜单(New Page,Nex Page...),如何把自己的菜单加进去

Answer 1

<<Delphi6从入门到精通>>上有,我记不住。

Answer 2

TTrayNotifyIcon = class(TComponent)
  private
    FPopupMenu:TPopuPMenu;  public
    constructor Create(AOwner:TComponent);Override;
    destructor Destroy;override;
  published
    property PopupMenu:TPopupMenu read FPopupMenu write SetPopupMenu;
    
  end;
procedure TTrayNotifyIcon.SetPopupMenu(Value:TPopupMenu);
{Write method for Popupmenu property}
begin
  FPopupMenu:=Value;
  if Value<>nil then Value.FreeNotification(self);
end;
再配置一下PopupMenu的属性写出自已想要的菜单就行了

Answer 3

这个东东能在界面设计的时候出现吗？，我是要在IDE里出现，是给程序员用的，不是给用户用的

Answer 4

打开delphi自带的Image Editor（ToolsàImage Editor），新建一个组件资源（fileànewàComponent Resource File (.dcr)），在弹出的窗口中右键单击new新建一个bitmap位图资源调整好位图的大小（我们用24*24）和色深后确定，双击建立好的位图名字还是做图（做图工具的使用基本和windows自带的画图程序差不多，这里略过），完成后我们需要为位图文件另取一个名字（右键点击bitmap），因为delphi强制要求这个位图的名字要和组件的名字一样，并且要全部大写，这里我们就取为：TCLOCK。最后保存这个资源文件到我们的组件包（dpk文件）目录，命名为ClockDcr.dcr。最后在Clock的代码中的interface部分加入一个编译器开关：{$R ClockDcr.dcr}然后重新编译更新组件（还记得怎么更新吗？），这时的组件图标已经变成我们刚才做的位图了！

Answer 5

我已经自己鼓捣出来了，不过谢谢tangxiaochun(风林) ，照样给分