unit_about.pas

来自「传奇3封外挂客户端+登陆器+配置器源码.....................」· PAS 代码 · 共 37 行

unit Unit_About;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, jpeg, SUIImagePanel, ExtCtrls, SUIForm, StdCtrls;

type
  TFrm_About = class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    suiButton1: TsuiButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_About: TFrm_About;

implementation

{$R *.dfm}

procedure TFrm_About.suiButton1Click(Sender: TObject);
begin
  Close;
end;

end.