fc_pwd.pas

wbs43open-src.zip 数字隐藏工具

unit Fc_pwd;

interface

uses
  SysUtils, Classes, wbsData, MultiLang
{$IFDEF CLX}
  , QControls, QForms, QStdCtrls
{$ELSE}
  , Controls, Forms, StdCtrls
{$ENDIF}
  ;

type
  TForm3 = class(TForm)
    Memo7: TMemo;
    Button1: TButton;
    Button2: TButton;
    Edit3: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
  Pwd:=Edit3.Text;
  Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
{$IFDEF CLX}
  Application.HelpSystem.ShowContextHelp(720,Application.HelpFile);
{$ELSE}
  Application.HelpContext(720);
{$ENDIF}
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('Fc_pwd.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('Fc_pwd.Button2.Caption');
  Form3.Caption:=ml.GetComponentString('Fc_pwd.Form3.Caption');
  ml.GetComponentStringList('Fc_pwd.Memo7.Lines',Memo7.Lines);
  ///////////////////////////////////////////////////////////////////
end;

end.