Ciao nomorelogic. Ho dato un occhiata al link che mi hai indicato ma non ha risolto il mio problema.
Provvisoriamente ho scritto questo codice molto banale:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = ',' then
Key := '.'
end;
In passato ho utilizzato anche Visual Basic e devo dire che in alcuni aspetti semplificava un po la vita perché anche li avevo avuto questo piccolo problema e lo avevo risolto molto più agevolmente in quanto con una sola riga di codice ero riuscito a dire al programma di verificare quale era il separatore decimale del sistema operativo in uso del pc.
Questa era la riga di codice:
SeparatoreWindows = System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator
Speravo di ripetere la stessa identica procedura anche in Lazarus ma sto trovando molte più difficoltà del previsto... :'(
Qualche aiuto? Ciao, Grazie.
{ Character that comes between integer and fractional part of a number }
DecimalSeparator : Char absolute DefaultFormatSettings.DecimalSeparator deprecated;
Meglio non usarla ;)
Stilgar