htglmk.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 58 行

unit htglmk;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  ThtglForm = class(TForm)
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label1: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  htglForm: ThtglForm;

implementation

uses htgl, htcx;

{$R *.DFM}

procedure ThtglForm.SpeedButton1Click(Sender: TObject);
begin
    htlrForm:=ThtlrForm.Create(application);
    hide;
    htlrForm.ShowModal;
    htlrForm.free;
    show;
end;

procedure ThtglForm.SpeedButton3Click(Sender: TObject);
begin
    close;
end;

procedure ThtglForm.SpeedButton2Click(Sender: TObject);
begin
    htcxForm:=ThtcxForm.Create(application);
    hide;
    htcxForm.ShowModal;
    htcxForm.free;
    show;
end;

end.