Предыдущая страница реферата | 26  27  28  29  30  31  32  33  34  35  36 | Следующая страница реферата

  StdCtrls, ExtCtrls,variables;

type

  TlockScreen__ = class(TForm)

    Panel1: TPanel;

    Label1: TLabel;

    Edit1: TEdit;

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormCreate(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure WNDPROC(var m : tmessage); override;

  private

     canclose : integer;

    { Private declarations }

  public

    { Public declarations }

  end;

var

  lockScreen__: TlockScreen__;

implementation

{$R *.DFM}

procedure TlockScreen__.WNDPROC(var m : tmessage);

begin

   inherited wndproc(m);

end;

procedure TlockScreen__.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

   begin

      if edit1.text=password__ then

      begin

         canclose:=1;

         close;

      end else edit1.text:='';

   end;

end;

procedure TlockScreen__.FormClose(Sender: TObject;

  var Action: TCloseAction);

begin

   if canclose=1 then action:=cafree else action:=canone;

end;

procedure TlockScreen__.FormCreate(Sender: TObject);

begin

   canclose:=0;

end;

procedure TlockScreen__.FormResize(Sender: TObject);

begin

   panel1.left:=(clientwidth-panel1.width) div 2;

   panel1.top:=(clientheight-panel1.height) div 2;

end;

Рекомендуем скачать другие рефераты по теме: реферат на тему характеристика, виды рефератов.



Предыдущая страница реферата | 26  27  28  29  30  31  32  33  34  35  36 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки