stockmanejo.~pas.svn-base

来自「example delphi with database」· SVN-BASE 代码 · 共 70 行

unit StockManejo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TFormStock = class(TForm)
    PageControlStock: TPageControl;
    TabSheetNewStock: TTabSheet;
    TabSheetDelStock: TTabSheet;
    GroupBoxNewStock: TGroupBox;
    LabelNewCodBarra: TLabel;
    LabelNewCantidad: TLabel;
    LabelNewStock: TLabel;
    LabelNewPrecio: TLabel;
    EditNewCodBarra: TEdit;
    EditNewStock: TEdit;
    EditNewPrecio: TEdit;
    EditNewCantidad: TEdit;
    BtnNewOK: TBitBtn;
    BtnNewCancel: TBitBtn;
    GroupBoxDelStock: TGroupBox;
    LabelDelCodBarra: TLabel;
    LabelDelCantidad: TLabel;
    LabelDelStock: TLabel;
    LabelDelPrecio: TLabel;
    EditDelCodBarra: TEdit;
    EditDelStock: TEdit;
    EditDelPrecio: TEdit;
    EditDelCantidad: TEdit;
    BtnDelOk: TBitBtn;
    BtnDelCancel: TBitBtn;
    procedure EditNewCodBarraKeyPress(Sender: TObject; var Key: Char);
    procedure EditDelCodBarraKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormStock: TFormStock;

implementation

{$R *.dfm}

procedure TFormStock.EditNewCodBarraKeyPress(Sender: TObject;
  var Key: Char);
begin
     if (Key = #16) then  //ctrl + p
     begin
       ShowMessage('aca iria la ventana de pegado');
     end;
end;

procedure TFormStock.EditDelCodBarraKeyPress(Sender: TObject;
  var Key: Char);
begin
     if (Key = #16) then  //ctrl + p
     begin
       ShowMessage('aca iria la ventana de pegado');
     end;
end;

end.