Ver Mensaje Individual
  #14  
Antiguo 15-05-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Hola

No dudo que los componentes JEDI sean muy buenos, pero esto se puede hacer con los Edit normales de Delphi, digo yo "pa" que entonces es la POO .

Coincido con [Caro] al decir que se inicialicen todos los Edit a cero y se genere el evento OnKeyPress con lo siguiente:

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

Depués generar el evento OnChange en cualquier Edit de este forma:

Código Delphi [-]
procedure TGerencia_Reg.Edit1Change(Sender: TObject);
begin
   if ( (Sender as TEdit).text = '') or (Sender as TEdit).text = ' ') ) then
        (Sender as TEdit).text := '0';
end;

Finalmente seleccionas los 323 Edit's restantes y le asignas los mismos eventos a todos.

Así de fácil te la pone nuestra herramienta Delphi

Intentalo y veras lo bonito que queda

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita