unit buscar;

interface

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

type
  TFormaBusqueda = class(TForm)
    CajaBuscar: TEdit;
    Label1: TLabel;
    BotonAceptar: TBitBtn;
    Panel1: TPanel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Panel2: TPanel;
    Shape1: TShape;
    Label2: TLabel;
    Label3: TLabel;
    Clave: TRadioButton;
    Nombre: TRadioButton;
    procedure CajaBuscarExit(Sender: TObject);
    procedure CajaBuscarKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BotonAceptarClick(Sender: TObject);
    procedure ClaveClick(Sender: TObject);
    procedure NombreClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaBusqueda: TFormaBusqueda;

implementation

{uses movinv, Inven, Proveedo, Cliente, Vendedor, Factu, Compras, ConCobra,
  concupag;}

{$R *.DFM}

procedure TFormaBusqueda.CajaBuscarExit(Sender: TObject);
begin
{Close;}
end;

procedure TFormaBusqueda.CajaBuscarKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=13 then
begin
Close;
end;
end;

procedure TFormaBusqueda.FormCreate(Sender: TObject);
begin
CajaBuscar.Text:='';
end;

procedure TFormaBusqueda.FormActivate(Sender: TObject);
begin
CajaBuscar.Text:='';
CajaBuscar.SetFocus;
end;

procedure TFormaBusqueda.Panel2Click(Sender: TObject);
begin
Close;
end;

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

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

procedure TFormaBusqueda.BotonAceptarClick(Sender: TObject);
begin
Close;
end;

procedure TFormaBusqueda.ClaveClick(Sender: TObject);
begin
CajaBuscar.SetFocus;
end;

procedure TFormaBusqueda.NombreClick(Sender: TObject);
begin
CajaBuscar.SetFocus;
end;

procedure TFormaBusqueda.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then
Close;
end;

end.