[ecfisa]

Es sólo una comprobación mas.



Código Delphi [-]
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
with StringGrid1 do
begin
if (Key = '.') and ( Col = 0 ) then Key:= ','; // Col = 0,1,2... etc
end;
end;