unit adminis;

interface

uses Windows,Messages, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons,Checa, ExtCtrls;

type
  TFormaAdministrador = class(TForm)
    Label1: TLabel;
    Clave: TEdit;
    Label2: TLabel;
    Panel1: TPanel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Panel2: TPanel;
    Shape1: TShape;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    procedure Panel2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ClaveKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaAdministrador: TFormaAdministrador;

implementation

{$R *.DFM}

procedure TFormaAdministrador.Panel2Click(Sender: TObject);
begin
tag:=2;
Close;
end;

procedure TFormaAdministrador.BitBtn1Click(Sender: TObject);
begin

if acceadmi(Clave.Text,'') then
Tag:=1
else
Tag:=0;

Close;

end;

procedure TFormaAdministrador.BitBtn2Click(Sender: TObject);
begin
Tag:=2;
Close;

end;

procedure TFormaAdministrador.FormActivate(Sender: TObject);
begin
Clave.Text:='';
Clave.SetFocus;
end;

procedure TFormaAdministrador.ClaveKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin

if acceadmi(Clave.Text,'') then
Tag:=1
else
Tag:=0;

Close;

end;
end;

procedure TFormaAdministrador.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaAdministrador.Handle, WM_SYSCOMMAND, $F012, 0);

end;

procedure TFormaAdministrador.Label4MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaAdministrador.Handle, WM_SYSCOMMAND, $F012, 0);
end;

end.