| Class TfrmMenu (unit Menu) |
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;| 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