[delphi] input valore decimale

[123delphi321]

Ciao a tutti,

scusatemi...

ho un campo dbedit collegato ad un field tipo numeric con 3 decimali.

ho immesso nella editFormat #0.000,

funziona bene,...solo che per inserire i valori decimali devo premere il simbolo ',' invece del '.' presente nel tastierino numerico.

c'e' un modo per far si che abbia effetto il tasto '.' del tastierino numerico?


grazie

[web ces]

scusa... non mi ricoedo come si fa a cambiare l'EditFormat...

[web ces]

non puoi usare una MaskEdit che te lo scrive già il '.' ?

[alka]

Originariamente inviato da 123delphi321
c'e' un modo per far si che abbia effetto il tasto '.' del tastierino numerico?

Devi intercettare l'evento OnKeyPress e sostituire "manualmente" il carattere con il separatore decimale.

Un esempio:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['.', ','] then
    Key := DecimalSeparator;
end;

Dovrebbe funzionare anche con un DBEdit.