mainunit.pas

来自「电力系统IEC 103规约通信程序」· PAS 代码 · 共 70 行

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, Buttons,Unit1_TRY,Unit_Help;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    X1: TMenuItem;
    N3: TMenuItem;
    T1: TMenuItem;
    S1: TMenuItem;
    w1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    Bevel1: TBevel;
    SpeedButton_New: TSpeedButton;
    Image1: TImage;
    SpeedButton_Exit: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton_NewClick(Sender: TObject);
    procedure SpeedButton_ExitClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses unit_sel;

{$R *.DFM}

procedure TMainForm.SpeedButton_NewClick(Sender: TObject);
begin
  form_sel.showmodal;
end;

procedure TMainForm.SpeedButton_ExitClick(Sender: TObject);
begin
  close;
end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
  form1_TRY.show; 
end;

procedure TMainForm.A1Click(Sender: TObject);
begin
  form_help.showmodal;
end;

end.