unit fboquillas;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset,
  ZAbstractDataset, ZDataset, Vcl.Grids, Vcl.DBGrids;

type
  Tboquillas = class(TForm)
    DBGrid1: TDBGrid;
    dsboquillas: TDataSource;
    boquillas: TZQuery;
    boquillasid: TIntegerField;
    boquillascodigo: TWideStringField;
    boquillasdescripcion: TWideStringField;
    boquillasFloatField5bar: TFloatField;
    boquillasFloatField6bar: TFloatField;
    boquillasFloatField7bar: TFloatField;
    boquillasFloatField8bar: TFloatField;
    boquillasFloatField9bar: TFloatField;
    boquillasFloatField10bar: TFloatField;
    boquillasFloatField11bar: TFloatField;
    boquillasFloatField12bar: TFloatField;
    boquillasFloatField13bar: TFloatField;
    boquillasFloatField14bar: TFloatField;
    boquillasFloatField15bar: TFloatField;
    boquillasFloatField16bar: TFloatField;
    boquillasFloatField17bar: TFloatField;
    boquillasFloatField18bar: TFloatField;
    boquillasFloatField19bar: TFloatField;
    boquillasFloatField20bar: TFloatField;
    boquillasFloatField21bar: TFloatField;
    boquillasFloatField22bar: TFloatField;
    boquillasFloatField23bar: TFloatField;
    boquillasFloatField24bar: TFloatField;
    boquillasFloatField25bar: TFloatField;
    boquillasFloatField1bar: TFloatField;
    boquillasFloatField1_5bar: TFloatField;
    boquillasFloatField2bar: TFloatField;
    boquillasFloatField2_5bar: TFloatField;
    boquillasFloatField3bar: TFloatField;
    boquillasFloatField3_5bar: TFloatField;
    boquillasFloatField4bar: TFloatField;
    boquillasFloatField4_5bar: TFloatField;
    boquillasFloatField5_5bar: TFloatField;
    boquillasFloatField6_5bar: TFloatField;
    boquillasFloatField7_5bar: TFloatField;
    boquillasFloatField8_5bar: TFloatField;
    boquillasFloatField9_5bar: TFloatField;
    boquillasFloatField10_5bar: TFloatField;
    boquillasFloatField11_5bar: TFloatField;
    boquillasFloatField12_5bar: TFloatField;
    boquillasFloatField13_5bar: TFloatField;
    boquillasFloatField14_5bar: TFloatField;
    boquillasFloatField15_5bar: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  boquillas: Tboquillas;

implementation

{$R *.dfm}

procedure Tboquillas.FormCreate(Sender: TObject);
begin
  boquillas.Open;
end;

procedure Tboquillas.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if (key='.') and (activecontrol is tdbgrid) then
    begin
        key:=','
    end;
end;

end.