Formato de separador decimal

[jhonny]

Mira, haz la siguiente prueba...

Código Delphi [-]
ShowMessage(DecimalSeparator);

Eso te mostrara el separador decimal de dicha aplicación.

Y si quieres ver el separador de miles, es...

Código Delphi [-]
ShowMessage(ThousandSeparator);

Esas dos variables puedes cambiarlas para que trabajen en tu aplicación como tu quieras, asi por ejemplo:

Código Delphi [-]
 
DecimalSeparator := '.';
ThousandSeparator := ',';

Espero te sirva.

[jhonny]

Si me permites "pachotear" en cierta forma tu codigo, al final esta sería una versión funcional, que solo adapta lo anteriormente dicho por mi, pero a tu propio codigo :

Código Delphi [-]
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var sNumAnterior:string;
begin
   sNumAnterior := (sender as TEdit).Text;
   if (key <> #3) and (key <> #22) then  // #3 = Copiar (Ctrl + C)
   begin                                 // #22 = Pegar (Ctrl + V)
     if key in ['-',DecimalSeparator] then
     begin
       if (pos(key,(sender as TEdit).Text) > 0) and
          (pos(key,(sender as TEdit).SelText) = 0)
          then key:=#0;
       if key ='-' then
       begin
         if ((sender as TEdit).SelStart > 0) then key:=#0;
       end
       else
       begin
         if key = DecimalSeparator then
         begin
           if ((sender as TEdit).SelStart = 0) or
                 (((sender as TEdit).SelStart = 1) and
                 ((sender as TEdit).Text[1] = '-'))
              then key:=#0;
         end;
       end;
     end
     else if not (key in ['0'..'9',#8]) then key:=#0;
   end;
   if key = #22 then
   try
     key := #0;
     (sender as TEdit).PasteFromClipBoard;
     StrToFloat((sender as TEdit).Text);
   except
     (sender as TEdit).Text := sNumAnterior;
     (sender as TEdit).SelStart := Length((sender as TEdit).Text);
   end;
end;

Espero que esto te ayude.

[MaMu]

SOLUCIONADO

Un fenómeno jhonny y gracias por el "pachoteo", ya adapté todo y funciona de mil maravillas. AHora tengo una pregunta que no tiene nada que ver, pero que componente visual me recomendas para hacer una grafica estadistica de entradas y salidas de una caja (mensual y anual).

Saludos

[jhonny]

Empezado por mamu

SOLUCIONADO

Un fenómeno jhonny y gracias por el "pachoteo", ya adapté todo y funciona de mil maravillas. AHora tengo una pregunta que no tiene nada que ver, pero que componente visual me recomendas para hacer una grafica estadistica de entradas y salidas de una caja (mensual y anual).

Saludos

Seguramente estaremos hablando del TChart o el TDBChart (Según tu necesidad)