3 respuestas en este tema

[robert01]

Hola

Estoy tratando de pasar un programa originalmente en delphi a lazarus, he solucionado varios inconvenientes pero no se me ocurre como podría hacer con una máscara de entrada de datos

delphi

DmPedidos.Qry_ProductosDATOS_INCLUIDOS.EditMask := '99/99/9999;1;_';

Uso Zeoslib, Pedidos.Qry_Productos es un TZQuery en un datamodule y DATOS_INCLUIDOS es un campo de una tabla de la base de datos.

Un saludo para todos.

[enecumene]

Hola Robert, esos datos son para ser mostrados en un DBGrid?, si es asi el caso, en lazarus esa propiedad no está bien implementado, así que deberás usar el evento OnFieldEditMask para esos menesteres.

Saludos.

[robert01]

Hola Enecumene, gracias por responder

El formulario tiene algunos DBEdits, no muestra los datos de la tabla en un DBGrid. Lo que hace el programa en Delphi es usar un procedure:

delphi

Procedure Habilita_EDICION(Editar:Boolean);
Begin
	With FProductos do  // Ajusta los objetos de la pantalla, conforme el valor enviado para 'EDITAR' 
	Begin
           // AL EDITAR(incluir/modificar) :Deja VISIBLE los botones de CONFIRMAR/CANCELAR ;
	   Pn_Confirma_Cancela.Visible := Editar;
           Pn_Edicion.Enabled := Editar; // al editar, habilita Panel con cajas de edición
	   Pn_Manutencion.Visible := NOT(Editar); // AL EDITAR(incluir/modificar) :Deja botones INVISIBLES de Incluir+modificar + Eliminar+Aceptar ;
		//
		If Editar=True then
		Begin
			Db_NOM_PRO.Setfocus; // Se editar, AJUSTA EL FOCO
			//
			// Ajustando la MÁSCARA para la entrada de datos ;
			// Advertencia: Este tipo de máscara,, el propio objeto "field" de la base de datos,
			// sólo se puede utilizar y modificar un campo. A continuación, retire la máscara 
			FDmPedidos.Qry_ProductosDATOS_INCLUIDOS.EditMask := '99/99/9999;1;_';
 
		End
		Else
		// Ajustando la MÁSCARA para la entrada de datos ;
		// Advertencia: Este tipo de máscara, el propio objeto "field" de la base de datos,
		// sólo se puede utilizar y modificar un campo. A continuación, retire la máscara
		FDmPedidos.Qry_ProductosDATOS_INCLUIDOS.EditMask := '';
	End;
End;

No se como usar el OnFieldEditMask ¿el DBEdit tambien tiene OnFieldEditMask o sólo es el DBGRID?

Gracias por tu ayuda.

[enecumene]

Pues intentalo de esta manera:

delphi

DmPedidos.Qry_ProductosDATOS_INCLUIDOS.EditMask := '99/.99/.9999;1;_';

Saludos.