templateu.pas

来自「source for card readers」· PAS 代码 · 共 36 行

unit TemplateU;

interface

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

type
  TfrmTemplate = class(TForm)
    pnlTemplate: TPanel;
    btnHelp: TButton;
    btnClose: TButton;
    procedure btnHelpClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  end; // end TfrmTemplate = class(TForm)

var
  frmTemplate: TfrmTemplate;

implementation

{$R *.dfm}

procedure TfrmTemplate.btnHelpClick(Sender: TObject);
begin
  ShowMessage ('No Help yet for this screen');
end; // end procedure TfrmTemplate.btnHelpClick

procedure TfrmTemplate.btnCloseClick(Sender: TObject);
begin
  Close;
end; // end procedure TfrmTemplate.btnCloseClick

end. // end TemplateU