Введение в программирование

       

Компонент главного меню} File1: TMenuItem;


type TMainForm = class(TForm) MainMenu1: TMainMenu; { Компонент главного меню} File1: TMenuItem; {Компоненты элементов меню} FileNewItem: TMenuItem; FileOpenItem: TMenuItem; FileCloseItem: TMenuItem; Window1: TMenuItem; Help1: TMenuItem; N1: TMenuItem; FileExitItem: TMenuItem; WindowCascadeItem: TMenuItem; WindowTileItem: TMenuItem; WindowArrangeItem: TMenuItem; HelpAboutItem: TMenuItem; OpenDialog: TOpenDialog; FileSaveItem: TMenuItem; FileSaveAsItem: TMenuItem; Edit1: TMenuItem; CutItem: TMenuItem; CopyItem: TMenuItem; PasteItem: TMenuItem; WindowMinimizeItem: TMenuItem; StatusBar: TStatusBar; {Компонент строки состояния} ActionList1: TActionList; {Компонент для определения списка именованных действий} EditCut1: TEditCut; {Компонент для копирования в буфер обмена} EditCopy1: TEditCopy; EditPaste1: TEditPaste; FileNew1: TAction; {Компонент именованного действия} FileSave1: TAction; FileExit1: TAction; FileOpen1: TAction; FileSaveAs1: TAction; WindowCascade1: TWindowCascade; WindowTileHorizontal1: TWindowTileHorizontal; WindowArrangeAll1: TWindowArrange; WindowMinimizeAll1: TWindowMinimizeAll; HelpAbout1: TAction; FileClose1: TWindowClose; WindowTileVertical1: TWindowTileVertical; WindowTileItem2: TMenuItem; ToolBar2: TToolBar; {Панель инструментов} ToolButton1: TToolButton; {Кнопки панели инструментов} ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton9: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ImageList1: TImageList; procedure FileNew1Execute(Sender: TObject); procedure FileOpen1Execute(Sender: TObject); procedure HelpAbout1Execute(Sender: TObject); procedure FileExit1Execute(Sender: TObject); end;

Листинг 25.1.
Закрыть окно





type

TMainForm = class(TForm)

MainMenu1: TMainMenu; {Компонент главного меню}

File1: TMenuItem; {Компоненты элементов меню}

FileNewItem: TMenuItem;

FileOpenItem: TMenuItem;

FileCloseItem: TMenuItem;

Window1: TMenuItem;



Help1: TMenuItem;

N1: TMenuItem;

FileExitItem: TMenuItem;

WindowCascadeItem: TMenuItem;

WindowTileItem: TMenuItem;

WindowArrangeItem: TMenuItem;

HelpAboutItem: TMenuItem;

OpenDialog: TOpenDialog;

FileSaveItem: TMenuItem;

FileSaveAsItem: TMenuItem;

Edit1: TMenuItem;

CutItem: TMenuItem;

CopyItem: TMenuItem;

PasteItem: TMenuItem;

WindowMinimizeItem: TMenuItem;

StatusBar: TStatusBar; {Компонент строки состояния}

ActionList1: TActionList; { Компонент для определения

списка именованных действий}

EditCut1: TEditCut; {Компонент для копирования

в буфер обмена}

EditCopy1: TEditCopy;

EditPaste1: TEditPaste;

FileNew1: TAction; {Компонент именованного действия}

FileSave1: TAction; FileExit1: TAction;

FileOpen1: TAction; FileSaveAs1: TAction;

WindowCascade1: TWindowCascade;

WindowTileHorizontal1: TWindowTileHorizontal;

WindowArrangeAll1: TWindowArrange;

WindowMinimizeAll1: TWindowMinimizeAll;

HelpAbout1: TAction;

FileClose1: TWindowClose;

WindowTileVertical1: TWindowTileVertical;

WindowTileItem2: TMenuItem;

ToolBar2: TToolBar; {Панель инструментов}

ToolButton1: TToolButton; {Кнопки панели инструментов}

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton9: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton10: TToolButton;

ToolButton11: TToolButton;

ImageList1: TImageList;

procedure FileNew1Execute(Sender: TObject);

procedure FileOpen1Execute(Sender: TObject);

procedure HelpAbout1Execute(Sender: TObject);

procedure FileExit1Execute(Sender: TObject);

end;


Содержание раздела