home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi1 / lmdtoolb.exe / demos / scrsaver / pwchange.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-08  |  971 b   |  51 lines
  1. unit Pwchange;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, Dialogs;
  7.  
  8. type
  9.   TPWCh = class(TForm)
  10.     Label1: TLabel;
  11.     Password1: TEdit;
  12.     OKBtn: TBitBtn;
  13.     CancelBtn: TBitBtn;
  14.     Label2: TLabel;
  15.     password2: TEdit;
  16.     procedure OKBtnClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   PWCh: TPWCh;
  25.  
  26. implementation
  27. uses main;
  28. {$R *.DFM}
  29.  
  30. procedure TPWCh.OKBtnClick(Sender: TObject);
  31. begin
  32.  
  33.    if ((Length(Password1.Text)>0) and (Password1.Text=PassWord2.Text)) or
  34.       (Length(PassWord1.Text)=0) then
  35.          with mainform.saver do begin
  36.           Password:=password1.text;
  37.           CheckPassWord:=Length(PassWord1.Text)>0;
  38.          end
  39.    else
  40.      begin
  41.        MessageDlg('Invalid Input', mtError, [mbOK],0);
  42.        password1.Setfocus;
  43.        exit;
  44.      end;
  45.  
  46.    modalresult:=mrOK;
  47. end;
  48.  
  49. end.
  50.  
  51.