unit_about.pas

来自「类似打蜜蜂的游戏」· PAS 代码 · 共 54 行

unit Unit_About;

interface

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

type
  TfrmAbout = class(TForm)
    mmInfo: TMemo;
    btnOk: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.dfm}

uses Unit_Main;

procedure TfrmAbout.btnOkClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmAbout.FormCreate(Sender: TObject);
var img: TImage;
begin
  img := frmMain.image_Title;
  img.Left := 16;
  img.Top := 8;
  img.Parent := Self;
  img.Show;
end;

procedure TfrmAbout.FormClose(Sender: TObject; var Action: TCloseAction);
var img: TImage;
begin
  img := frmMain.image_Title;
  img.Parent := frmMain;
end;

end.