unit Menu;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm_menu_principale = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Bt_matrice: TButton;
    Bt_calculette: TButton;
    Bt_equation: TButton;
    Bt_copyright: TButton;
    Bt_quitter: TButton;
    procedure Bt_quitterClick(Sender: TObject);
    procedure Bt_matriceClick(Sender: TObject);
    procedure Bt_copyrightClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form_menu_principale: TForm_menu_principale;
 
implementation
 
{$R *.dfm}
 
uses Matrice , Messagebox;
 
procedure TForm_menu_principale.Bt_quitterClick(Sender: TObject);
//Fermeture du menu principal
begin
  Form_menu_principale.Close ;
end;
 
procedure TForm_menu_principale.Bt_matriceClick(Sender: TObject);
//Ouverture de la fenetre matrice
begin
  Matrice.initialiser ();                       //ligne ou une erreure est annoncé
  Form_menu_principale.visible:=false;
end;
 
procedure TForm_menu_principale.Bt_copyrightClick(Sender: TObject);
//Ouverture de la fenetre copyright
begin
  Form_messagebox.visible:=true;
  Messagebox.message_erreur ('Ce programe a été crée par     dans le cadre de son BTS IG. Cest un freeware.');       //ligne ou une erreure est annoncé
  Form_menu_principale.visible:=false;
end;
 
end.