udecoderform.pas

来自「工商银行限制了牡丹卡的网上交易功能.催着我们去各分行办领一张网上交易的通行证:口」· PAS 代码 · 共 88 行

unit uDecoderForm;

interface

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

type
  TDecoderForm = class(TForm)
    DE1: TEdit;
    DE2: TEdit;
    lbl1: TLabel;
    Label1: TLabel;
    btn1: TButton;
    Bevel1: TBevel;
    Cap: TLabel;
    procedure FormShow(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DE1KeyPress(Sender: TObject; var Key: Char);
  private
    procedure CreateParams(var Params: TCreateParams);override;
  public
    { Public declarations }
  end;

var
  DecoderForm: TDecoderForm;
  dt: TFileRec;
implementation

{$R *.dfm}

procedure TDecoderForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with params do
    Style := {WS_SIZEBOX or} WS_POPUP or WS_BORDER and not ws_Caption;
end;

procedure TDecoderForm.FormShow(Sender: TObject);
var
  s: string;
begin   
  try
    if not LoadFormFile(application.ExeName,dt) then
      raise TFileRecError.Create('无法完成初始化数据.程序退出.');
    if not CheckData(dt,s) then
      raise TFileRecError.Create('发现数据错误,程序退出.');
    Application.Title := dt.AppName;
    caption := application.Title;
    Cap.Caption := Application.Title;
  except
    on E: TFileRecError do
    begin
      showmessage(e.Message);
      Close;
    end;
    else
      ShowMessage('发生未知错误.程序现在退出!');
      close;
  end;
end;

procedure TDecoderForm.btn1Click(Sender: TObject);
begin
close
end;

procedure TDecoderForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(handle,WM_NCLBUTTONDOWN,HTCaption,0)
end;

procedure TDecoderForm.DE1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    DE2.Text := GetKeyByFunc(DE1.Text, Dt);
  end;
end;

end.