upassword.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uPassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ActnList, TBXDkPanels, Mask, RzEdit, TB2Dock,
  TB2ToolWindow, TBX;

type
  TPassWordfrm = class(TForm)
    TBXToolWindow1: TTBXToolWindow;
    Label2: TLabel;
    edNewPws: TRzEdit;
    Label3: TLabel;
    edNewPwsAgn: TRzEdit;
    TBXAlignmentPanel1: TTBXAlignmentPanel;
    ActionList1: TActionList;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    Action1: TAction;
    Action2: TAction;
    procedure TBXButton1Click(Sender: TObject);
    procedure TBXButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TPassWordfrm.TBXButton1Click(Sender: TObject);
begin
  if edNewPwsAgn.Visible then
  begin
    if edNewPws.Text<>edNewPwsAgn.Text then
      MessageBox(Application.Handle,'你输入的密码不匹配。请在两个文本框内重新输入新密码。', '提示', MB_ICONWARNING or MB_OK)
    else
      ModalResult:=mrok;
  end
  else
    ModalResult:=mrok;
end;

procedure TPassWordfrm.TBXButton2Click(Sender: TObject);
begin
  close;
end;

end.