formprin.~pas

来自「Mathematic Method,(mindres carées) delph」· ~PAS 代码 · 共 88 行

unit FormPrin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, Buttons, StdCtrls, TeEngine, Series, TeeProcs, Chart,
  DBChart, Db, DBTables, TeeFunci,Traitment;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Quitter1: TMenuItem;
    Aide1: TMenuItem;
    Aidesurlamthodedesmoindescarres1: TMenuItem;
    Commentutiliserlamethode1: TMenuItem;
    APropos1: TMenuItem;
    Panel1: TPanel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    Button3: TButton;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Entrer1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Entrer1Click(Sender: TObject);
    procedure APropos1Click(Sender: TObject);
    procedure Aidesurlamthodedesmoindescarres1Click(Sender: TObject);
    procedure Commentutiliserlamethode1Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

uses Calculs, Apropos, HtmlHelpAPI;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin
Form2.Show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Entrer1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.APropos1Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm1.Aidesurlamthodedesmoindescarres1Click(Sender: TObject);
begin
HtmlHelpShowTopic('La m閠hode des moindres carr閑s.htm');
end;

procedure TForm1.Commentutiliserlamethode1Click(Sender: TObject);
begin
HtmlHelpShowTopic('La m閠hode des moindres carr閑s.htm');
end;

end.