Mascara & Edit

[vtdeleon]

Lo unico que se me ocurre es lo sgte (algo facil), pero no muy efectivo:

HAcer que edit solo acepte numeros y el punto, poner su propiedad selectall en true y en el evento onexit:

Código Delphi [-]
  if LeftStr(edit1.Text,1) <> '$' then
  begin
    edit1.Text:=FormatFloat('$##,##0.00',StrToFloat(edit1.Text));
  end;

[alfredosg19]

Hola de nuevo, te explico como lo hice yo, me llevo mucho tiempo y puede que sea la mejor solución pero a mí me funciona perfectamente. Para empezar puse un Edit y en el Keypress puse los carácteres que se podrían introducir en el Edit, y si no son estos que se introduzca el #0 es decir el carácter null(nada). Hice una función que se llama Activacomas, para activar las comas o desactivarlas (no se pueden escribir dos comas dentro del mismo Edit, ni en el primer carácter).

procedure TfrmCanvi.edPagatKeyPress(Sender: TObject; var Key: Char);
 var a: integer;
 Begin
   If Activacomes=False then
 	If Not (Key IN ['0'..'9',#8]) then
 	  key :=#0 ;
 
   If Activacomes=True then
 	Begin
 	  If Not (Key IN ['0'..'9',#8,',']) then
 		key := #0;
 	  If (Key=',') and (edPagat.Text='') then
 		If Not (Key IN ['0'..'9',#8]) then
 		  key :=#0 ;
 	end;
 end;

La función activacomes es la siguiente:

 function TfrmCanvi.Activacomes: Boolean;
 var
 I, cont: Integer;
 car, copia: String;
 begin
   cont:=0;
   copia:=edPagat.Text;
   For i:=1 to Length(copia) do
 	Begin
 	  car:=copy(copia,i,1);
 	  if car=',' then
 		cont:=cont+1;
 	end;
 If Length(EdPagat.Text)>=5 then
  cont:=1;
 
 if cont>0 then
  result:=False
 else
  result:=True;
 end;

Claro ahora tu complicación está además en el tema del punto, pero supongo que lo podrás hacer igual que la coma. Bueno ya lo probarás y me dirás si te sirvió y si no ya inventaremos otra cosa.¡Suerte!.
Un saludo: Alfredo.

[vtdeleon]

Saludos,

Antes que todo, Gracias alfredosg19 por tu interes .

Me parece ingeniosa esa forma (la utilizare en otro asuntillo que tengo ), pero el usuario tendria que introducir las comas el mismo.

Has visto el componetne CurrencyEdit de la LibRx?

En realidad me gustaria hacer ese!!.

Parece un edit normal, al momento de digitar numeros (1123) y salir del edit este comvierte los numeros en la moneda oficial ($RD1,123.00 Rep. Dom.) que tiene configurada mi pc. Cuando intento modificar el valor del edit, quita el formato que este contiene.

Una idea que me viene a la mente ( pero no he usado y no se si se puede) es la de los comentarios de un hilo en la que un campo memo mostraba su data en un grid utilizando Canvas(no se utilizar mucho esto).

Código Delphi [-]
procedure Tfrmcons.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
const
DX = 5;
DY =2;
var
Str:String;
begin
if(Column.Field is TMemoField) then begin
Str := TMemoField(Column.Field).AsString;
DBGrid1.Canvas.TextRect(Rect, Rect.Left + dx, Rect.Top + DY, Str);
end;
end;

Gracias

[axelbb]

Yo tengo el mismo problema para ingresar un simple importe formato 9999999.99.
¿Como puede ser que Delphi no tenga una máscara o componente nativo decente para una función tan elemental, que cualquier lenguaje de bases de datos para DOS lo tenía??? Pensé que lo había y yo no podía encontrarlo (soy nuevito en Delphi), y buscando me encontré con mucha gente en la misma, y con soluciones complicadísimas... ¡¡para un CHOTO ingreso de importes!!!