Class TfrmMenu (unit Menu)

Inherits from

TForm

Constructors



Functions

procedure Exit1Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Label2Click(Sender: TObject);


procedure mnuOpenClick(Sender: TObject);


procedure mnuPop1Click(Sender: TObject);


procedure mnuPop2Click(Sender: TObject);


procedure new1Click(Sender: TObject);


procedure PopupMenuPopup(Sender: TObject);


procedure x11Click(Sender: TObject);


Properties

Events

Variables

AdvMenu : TAdvMenu;


Label1 : TLabel;


Label2 : TLabel;


Memo : TMemo;


mnuFile : TMenuItem;


mnuOpen : TMenuItem;


mnuPop2 : TMenuItem;


mnuPopUp : TMenuItem;


N1 : TMenuItem;


new1 : TMenuItem;


Panel : TPanel;


PopupMenu : TPopupMenu;


r11 : TMenuItem;


r21 : TMenuItem;


StatusBar : TStatusBar;


Sub11 : TMenuItem;


x11 : TMenuItem;


x21 : TMenuItem;


x41 : TMenuItem;


y11 : TMenuItem;


y21 : TMenuItem;


y31 : TMenuItem;


FPop : hMenu;

Private declarations


Constructors


Functions


procedure Exit1Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Label2Click(Sender: TObject);


procedure mnuOpenClick(Sender: TObject);


procedure mnuPop1Click(Sender: TObject);


procedure mnuPop2Click(Sender: TObject);


procedure new1Click(Sender: TObject);


procedure PopupMenuPopup(Sender: TObject);


procedure x11Click(Sender: TObject);


Properties


Events


Variables


AdvMenu : TAdvMenu;


Label1 : TLabel;


Label2 : TLabel;


Memo : TMemo;


mnuFile : TMenuItem;


mnuOpen : TMenuItem;


mnuPop2 : TMenuItem;


mnuPopUp : TMenuItem;


N1 : TMenuItem;


new1 : TMenuItem;


Panel : TPanel;


PopupMenu : TPopupMenu;


r11 : TMenuItem;


r21 : TMenuItem;


StatusBar : TStatusBar;


Sub11 : TMenuItem;


x11 : TMenuItem;


x21 : TMenuItem;


x41 : TMenuItem;


y11 : TMenuItem;


y21 : TMenuItem;


y31 : TMenuItem;


FPop : hMenu;

Private declarations