Novata necesita Ayuda

[[Al González]]

¡Hola a todos!

Para ser sincero, entré a leer este hilo por mera curiosidad de ver cómo se le respondía a nuestra amiga, sospechando lo que luego descubrí.

Empezado por gatosoft

...en "otras circunstancias", los moderadores habrian entrado a este hilo y le habrian "tirado las orejas" a quien inicio el hilo por no poner un titulo mas descriptivo sobre el problema, y lo hubieran remitido a la guia de estilo (sin responder la pregunta)...

Lo mismo medité.

Pero esto:

Empezado por gatosoft

...hemos caido prestos en ayuda de la dama... (yo cai, pero vi que ya no necesitaba ayuda, jejejeje)

Bueno, pero eso esta bien... hay que ser caballero y a las damas se les perdona todo, sobre todo en nuestro club, en donde casi no hay...todas son siempre bienvenidas...

Me dejó sin palabras. Sé que tu último comentario es bien intencionado Gatosoft, pero en lo personal me parece algo sexista. Mas sólo es una observación.

Me alegro que hayas recibido ayuda Day_eli, no dejes de plantearnos tus dudas sobre Delphi. Aquí son todos bienvenidos, sin preferencia de género. Pero te sugiero utilizar títulos más descriptivos para los mensajes, así será más fácil que alguien con experiencia en el tema se interese en responder.

Un abrazo de camaradas.

Al González.

[Wellnic]

Quería llamar la atención sobre un pequeño detalle, y es que usando directamente el evento Edit1KeyPress, el código se ejecuta antes de actualizarse el TEdit (al menos en mi querido Delphi 3. ¿No sería mejor utilizar un Timer?:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Timer1.Enabled:= True;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
      IF Trim(Edit1.Text)=''THEN
      BEGIN
           IF(Key=#69)OR(Key=#86)THEN //E=69 - V=86 .. Utiliza la propiedad "CharCase" en ecUpperCase
              Exit
           ELSE
              Key:=#0;
      END
      ELSE
      BEGIN
           IF Key = #8 THEN Exit; // Tecla 
           IF (Key<#48)OR(Key > #58) THEN
               Key:=#0;
      END;
end;

Timer1.Enabled:= False;
End;

Asimismo, en el Object inspector conviene ponerle al Timer las propiedades Enable a False e Interval a 1.

[BuenaOnda]

.... sabes me resulta raro lo que dices...

[[AzidRain]]

Tienes razón Román, me confundí con el equivalente de MaskEdit de DevExpress que viene mas completo...

Contestando a nuestra amiga:

Pon esto en el onKeyPress del Edit

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // Si la tecla NO es una V o E y es el primer caracter...lo eliminamos
   If ((Key<>'E') and (key<>'V')) and (Length(Edit1.Text)=0) Then
     key:=chr(00);
   //Aqui pon la validacion para los numeros...me dio flojera poner todo el 
código...jeje

end;

Solo permite E como primer caracter y V como segundo, los demas pueden ser cualesquiera

[Wellnic]

Empezado por BuenaOnda

.... sabes me resulta raro lo que dices...

Si pones esto:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Label1.Caption:= Edit1.Text;
end;

¿te aparece en el Label lo mismo que en el edit? A mí me sale con una pulsación de retraso.

[BuenaOnda]

okis pero para lo que tu expones yo utilizaria el evento Change del edit..

[Wellnic]

¡Anda, pues es verdad! A veces me complico la vida sin motivo. No había caído en que Key trae la última tecla pulsada. Ahora todo concuerda.

[BuenaOnda]

tambien puedes probar el evento KeyDown, aqui se puede controlar más teclas que en el evento KeyPress..