about.pas

来自「基于高速铁路周边电动势计算的关键」· PAS 代码 · 共 55 行

unit About;

interface

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

type
  TAboutForm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label7: TLabel;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Image2: TImage;
    Label3: TLabel;
    Label4: TLabel;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;
implementation

uses Main;


{$R *.dfm}

procedure TAboutForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if MainForm.Showing then
Close;
end;

procedure TAboutForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if MainForm.Showing then
Close;
end;

end.