Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #10  
Antiguo 14-03-2013
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hola,

Creo que la comprobación para habilitar/inhabilitar el botón puede hacerse únicamente usando el evento OnChange del MaskEdit:

Código Delphi [-]
procedure TForm1.MaskEdit1Change(Sender: TObject);
var
  IsValid: Boolean;

begin
  IsValid := true;

  try
    MaskEdit1.ValidateEdit;
  except
    on EDBEditError do
      IsValid := false;
  end;

  btnCalculate.Enabled := IsValid and (Length(MaskEdit1.Text) = 8);
end;

Cuando se llena el MaskEdit, y luego se le borran caracteres, MaskEdit.Text está "lleno" pero es inválido.

Por otra parte, también puede optarse por usar dos controles TEdit para capturar cada una de las partes.

// Saludos
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
Excepciones propias andresenlared JAVA 5 07-03-2012 20:33:08
Politicas Erroneas Pascalizado Debates 2 14-07-2007 04:18:56
Crear Clases propias o Usar Existentes jorllazo Debates 19 27-04-2007 03:07:39
no reconoce uses propias Xana Varios 1 13-03-2007 18:17:55
Crear librerias propias en delphi Jan_polero OOP 5 15-05-2004 13:29:04


La franja horaria es GMT +2. Ahora son las 15:26:31.


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