abouttty.pas

来自「Delphi串口通信控件-支持4个端口」· PAS 代码 · 共 71 行

unit AboutTTY;

interface

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

type
  TAboutBoxForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Panel3: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Image2: TImage;
    Image3: TImage;
    procedure Panel1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    FIsModal: boolean;
    FReqToClose: boolean;

    procedure CloseMe;
  public
    // Constructor
    constructor Create( AOwner: TComponent; isModal: boolean ); reintroduce; virtual;

    property ReqToClose: boolean read FReqToClose;
  end;

var
  AboutBoxForm: TAboutBoxForm;

implementation

{$R *.DFM}

// Constructor
constructor TAboutBoxForm.Create( AOwner: TComponent; isModal: boolean );
begin
  inherited Create( AOwner );
  FIsModal := isModal;
  FReqToClose := false;
end;

procedure TAboutBoxForm.CloseMe;
begin
  if FIsModal then
    ModalResult := mrOk
  else
    FReqToClose := true;
end;

procedure TAboutBoxForm.Panel1Click(Sender: TObject);
begin
  CloseMe;
end;

procedure TAboutBoxForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  CloseMe;
end;

end.