unit ChangeMenu;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TChangeMenuForm = class(TForm)
    Add: TButton;
    Delete: TButton;
    Change: TButton;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure AddClick(Sender: TObject);
    procedure DeleteClick(Sender: TObject);
    procedure ChangeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChangeMenuForm: TChangeMenuForm;

implementation

Uses
   Base, Menu, Add, DeleteRef, Change;

{$R *.dfm}

procedure TChangeMenuForm.AddClick(Sender: TObject);
begin
   ChangeMenuForm.Hide;
   AddForm.Show;
end;

procedure TChangeMenuForm.ChangeClick(Sender: TObject);
begin
   ChangeMenuForm.Hide;
   ChangeForm.Show;
end;

procedure TChangeMenuForm.DeleteClick(Sender: TObject);
begin
   ChangeMenuForm.Hide;
   DeleteForm.Show;
end;

procedure TChangeMenuForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   BaseForm.Show;
   MenuForm.Hide;
   ChangeMenuForm.Hide;
   AddForm.Hide;
   DeleteForm.Hide;
   ChangeForm.Hide;
end;

end.