Я же говорил, посмотри как сделано в TPanel, ну ладно: ты забыл добавить в published свойство PopupMenu
ручками
Код:
unit MyCmpnt_vcl;
interface
uses
SysUtils, Classes, Controls;
type
TCustomControl1 = class(TCustomControl)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property PopupMenu;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TCustomControl1]);
end;
end.
Свист - "с кем не бывает."
х/ф "Отроки во Вселенной"