OnKeyPress de un TEdit

[nosferatu177]

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