loginmsgunit.pas

传奇3.0私服登录器源码

unit LoginMsgUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinForms, KsSkinEngine, KsSkinLabels,
  KsSkinButtons;

type
  TFrmLoginMsg = class(TForm)
    skin: TSeSkinEngine;
    FrmLoginMsg: TSeSkinForm;
    LblMsg: TSeSkinLabel;
    BtnOk: TSeSkinButton;
    procedure BtnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLoginMsg: TFrmLoginMsg;

implementation

{$R *.dfm}

procedure TFrmLoginMsg.BtnOkClick(Sender: TObject);
begin
  Close;
end;

end.