TPopupMenu как подкомпонент, не работает - PullRequest
Новая
       34

TPopupMenu как подкомпонент, не работает

0 голосов
/ 29 января 2019

Я пытаюсь разработать компонент, в частности кнопку, связанную с всплывающим меню.Я не могу понять, почему я не вижу PopupMenu.

Здесь мой код: 

unit DropDownButton;

    interface

    uses
      System.SysUtils,
      System.Classes,
      Vcl.Controls,
      Vcl.StdCtrls,
      System.Types,
      Vcl.Menus;

    type
      TDropDownButton = class;

      TDropDownButton = class(TButton)
      private
        FDropDownMenu: TPopupMenu;
      protected
      public
        constructor Create(AOwner: TComponent); override;
        procedure Click; override;
      published
        property DropDownMenu: TPopupMenu read FDropDownMenu;
      end;

    procedure Register;

    implementation

    procedure Register;
    begin
      RegisterComponents('Flexline', [TDropDownButton]);
    end;

    constructor TDropDownButton.Create(AOwner: TComponent);
    begin
      inherited Create(AOwner);
      FDropDownMenu:= TPopupMenu.Create(Self);
      FDropDownMenu.Name:= 'Menu';
      FDropDownMenu.SetSubComponent(True);
    end;

    procedure TDropDownButton.Click;
    var
      _point: TPoint;
    begin
      _point:= Self.ClientToScreen(Point(0,0));
      FDropDownMenu.Popup(_point.X,_point.Y + Height);
      inherited Click;
    end;

    end.

Заранее спасибо.

Я хотел бы сделать выпадающийкнопка для использования в моем проекте

...