u_about.pas

来自「一个简单的学籍管理软件」· PAS 代码 · 共 47 行

unit U_About;

interface

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

type
  TFm_About = class(TForm)
    Btn_Ok: TButton;
    Img_Icon: TImage;
    Lb_Name: TLabel;
    Lb_CopyRight: TLabel;
    Lb_CorpName: TLabel;
    Label1: TLabel;
    procedure Btn_OkKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure Show_AboutMessage;
implementation

{$R *.DFM}

procedure Show_AboutMessage;
var
  Fm_About: TFm_About;
begin
  Fm_About := TFm_About.Create(Application);
  Fm_About.ShowModal;
  Fm_About.Free;
end;

procedure TFm_About.Btn_OkKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    Btn_Ok.Click;
end;

end.