Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 22-01-2008
Avatar de elcolo83
elcolo83 elcolo83 is offline
Miembro
 
Registrado: feb 2007
Ubicación: Argentina
Posts: 65
Poder: 20
elcolo83 Va por buen camino
Lo que podrias hacer es modificar la mascara, por ejemplo asi: (agrega esto en el evento OnKeyPress del TEditMask)

Advertencia: la mascara que estoy usando es '!\+99 00.000.00.00;1;_' supongo que debes tener algo asi en la mascara.


Código Delphi [-]
procedure TForm1.EditMask1KeyPress(Sender: TObject; var Key: Char);
var s, t: String;
begin
if key='/' then
  with TMaskEdit(Sender) do
    begin
      t:= Text;
      s:= EditMask;
      Delete(S, Length(s)-3, 4);
      EditMask:= S+'\/00;1;_';
      Text:= t;
      SelStart:= Length(Text)-2;
    end;
end;

eso si, si el usuario precionara '/' antes de completar el resto de los campos obligatorios lanzara el error de que faltan completar campos como ya sabemos.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
problemas con TMaskEdit squenda OOP 2 21-05-2008 20:23:38
Resultados posibles al insertar en edit Colgueit Conexión con bases de datos 4 04-12-2006 18:57:49
lista de todas las posibles excepciones maruenda Varios 1 06-12-2004 22:31:02
Manejar Excepcion al Salir de un tMaskEdit Jvilomar OOP 0 26-06-2004 14:43:13
Alinear texto en TEdit y TMaskEdit mrmanuel Varios 11 17-03-2004 18:04:24


La franja horaria es GMT +2. Ahora son las 00:23:40.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi