메인 메뉴에 팝업메뉴 달기

메인 메뉴에 팝업메뉴 달기

728x90

 

 

 

unit Unit1;

 

interface

 

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;

 

type

  TForm1 = class(TForm)

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

N41: TMenuItem;

N123121: TMenuItem;

N122221: TMenuItem;

N44441: TMenuItem;

N33331: TMenuItem;

N11221: TMenuItem;

N22331: TMenuItem;

N44551: TMenuItem;

N221: TMenuItem;

N221111: TMenuItem;

N2221: TMenuItem;

N2222: TMenuItem;

 

private

{ Private declarations }

protected

procedure WndProc(var Message: TMessage); override;

public

{ Public declarations }

end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

{ TForm1 }

 

procedure TForm1.WndProc(var Message: TMessage);

begin

  case Message.Msg of

    WM_NCRBUTTONDOWN :

    begin

      PopupMenu1.Popup(Message.LParamLo, Message.LParamHi);

    end;

  end;

 

  inherited;

end;

end.