Cita:
|
Empezado por Paoti
si funciona, lo he probado con el turbo delphi y esta funcionando.
no sé que pueda pasar.
¿tienes algo programado en los demás eventos de la caja de texto?
Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key=#13) then begin ShowMessage('ahora que pasa'); Caption := 'Entro en el Enter'; Button1.Caption := 'Entro en el enter'; end; end; |
si; es asi: (y me funciona correctamente en delphi 7)
if not (Key in ['0'..'9','.', #8, #13]) then
Key := #0; //solo acepte esas teclas
if key in ['.'] then //si la q se presiono es "punto"
begin
if (cadena<='0') or (cadena >='255') then
begin
mensaje('El número debe de estar entre....!');
edit1.Text:='';
edit.SetFocus;
end;
cadena:='';
end
else
begin
cadena:=cadena+key;
end;
Espero te funcione
