info.pas

来自「RegistTimes RegistDays时间限制控制控件。(有源代码）工作在」· PAS 代码 · 共 50 行

unit Info;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Wordcap, StdCtrls, Hemibtn;

type
  TInfos = class(TForm)
    MSOC1: TMSOfficeCaption;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    HemisphereButton1: THemisphereButton;
    procedure FormActivate(Sender: TObject);
    procedure HemisphereButton1Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Infos: TInfos;

implementation

{$R *.DFM}

procedure TInfos.FormActivate(Sender: TObject);
begin
label1.caption:=application.exename;

end;

procedure TInfos.HemisphereButton1Click(Sender: TObject);
begin
infos.close;

end;

end.