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
  #7  
Antiguo 14-05-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 24
Caro Va por buen camino
Hola axlrafael, primero inicializa todos tus edit con un valor 0, y pon el codigo que tienes paar que reciba solo numeros en uno de tus edit y despues ese evento de ese edit lo asocias a los demas edit, para que no repitas codigo.

Código Delphi [-]
procedure TGerencia_Reg.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
  if not (key in ['0'..'9',#8,#32,#13]) then
   key:=#0;
end;

y en el evento OnExit de tu edit, puedes verificar que no se salga de dicho edit si esta vacío y este evento también lo asocias a todos tus edits.

Código Delphi [-]
procedure TGerencia_Reg.Edit1Exit(Sender: TObject);
begin
 if TEdit(Sender).Text='' then
  begin
   showmessage('Debe introducir un número');
   TEdit(Sender).SetFocus;
  end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
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
Como crear un bucle con TEdit's axlrafael OOP 12 08-05-2008 19:22:48
Pasar demas datos de un DBGRID a TEDIT's Ericato Varios 5 09-03-2007 17:44:05
cambiar campo null a not null andressanchez Firebird e Interbase 8 18-09-2006 22:00:09
Como valido un null?? jbetancurt Firebird e Interbase 2 11-11-2004 16:19:39
Como puedo grabar un NULL en la BD? furniman Varios 2 23-03-2004 11:36:36


La franja horaria es GMT +2. Ahora son las 06:50:16.


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