Библиотека классов VCL среды проектирования Delphi. Приложения и диалоги

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;

{Создать новый документ}
procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
  {Создание дочернего окна с новым именем}
  CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
{Открыть документ}
procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
  if OpenDialog.Execute then  {Выбор имени документа}
    CreateMDIChild(OpenDialog.FileName); {Создание окна}
end;
procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { Класс TMDIChild определен в модуле CHILDWIN.PAS }
  Child := TMDIChild.Create(Application); {Создание окна}
  Child.Caption := Name;  {Заголовком окна будет 
                           имя файла}
  if FileExists(Name) then 
 // Дочернее окно содержит поле типа TMemo, в которое
 // выполняется загрузка текстового файла:
Child.Memo1.Lines.LoadFromFile(Name); 
end;
Для завершения приложения выполняется следующая  процедура:
procedure TMainForm.FileExit1Execute(Sender: TObject);
begin  Close; end;
В модуле childwin.pas находится код дочерней формы:
type
  TMDIChild = class(TForm)
    Memo1: TMemo;    {Поле для отображения текста}
    procedure FormClose(Sender: TObject; 
                        var Action: TCloseAction);
end;
implementation
procedure TMDIChild.FormClose(Sender: TObject; 
                              var Action: TCloseAction);
begin   Action := caFree; end;
end.

object MainForm: TMainForm
  Caption = 'Приложение с MDI-интерфейсом'
  FormStyle = fsMDIForm
  Menu = MainMenu1
  WindowMenu = Window1
  object StatusBar: TStatusBar
    AutoHint = True
    Panels = <>
    SimplePanel = True
  end
  object ToolBar2: TToolBar
    Images = ImageList1
  object ToolButton9: TToolButton
      Action = FileNew1            {Именованное действие,
           которое будет выполнено при щелчке на кнопке}
    end
    object ToolButton1: TToolButton
      Action = FileOpen1
    end
    {Кнопки панели инструментов}
     ...
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    object File1: TMenuItem
      Caption = '&File'
      object FileNewItem: TMenuItem
        Action = FileNew1
      end
      object FileOpenItem: TMenuItem
        Action = FileOpen1
      end
      object FileCloseItem: TMenuItem
        Action = FileClose1
      end
      ...
      object FileExitItem: TMenuItem
        Action = FileExit1
      end
    end
    object Edit1: TMenuItem
    ...
    end
    object Window1: TMenuItem
    ...
    end
  end
  object OpenDialog: TOpenDialog    {Диалог Open}
    Filter = 'All files (*.*)|*.*'
  end
  object ActionList1: TActionList   
    object FileNew1: TAction
      Category = 'File'
      Caption = '&
      New'
      OnExecute = FileNew1Execute
    end
    object FileOpen1: TAction
      Category = 'File'
      Caption = '&Open'
      OnExecute = FileOpen1Execute
    end
    ...
  end
end

object MDIChild: TMDIChild
  FormStyle = fsMDIChild
  Position = poDefault
  Visible = True
  OnClose = FormClose
  object Memo1: TMemo
    WordWrap = False
  end
end

library Project1;
uses
  SysUtils,  Classes;
{$R *.res}
function F1(X: Integer): Integer; stdcall;
begin    F1:=X*2;    end;
function F2(X: Integer): Integer; stdcall;
begin    F2:=X*X;    end;
exports
F1 ,     	{Функция будут доступна по имени F1}
F2 index 2 ; 	{Функция будут доступна по индексу 2}
end.