evento keypress

[ronson]

Tengo este codigo:

procedure TfrmAlbaranes.txtDescuentoKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then

frmAlbaranes.SpeedButton1.Click;
end;


Y en el evento Onclik del txtDescuento este procedimiento. pero no me funciona por que sera?

[ronson]

si le añado esta linea al codigo del post anterior:

procedure TfrmAlbaranes.txtDescuentoKeyPress(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
if (key=#13) then
begin
frmAlbaranes.SpeedButton1.Click;
codigo.MostrarError('He mostrado una itro');
end
end;


Me captura todas las pulsaciones menos la del INTRO.


A que sera debido eso?

[Nuria]

Hola!

Es sólo una sugerencia, porque no pones el código en el Evento FormKeyPress del formulario:

if Key = #13 then
    if txtDescuento.Focused then 
       frmAlbaranes.SpeedButton1.Click;;

Tienes que poner la propiedad KeyPreview del form a True. Ahora que caigo Igual puede ser que no la tuvieras a true y por eso no te funcionaba.

De todas maneras yo lo realizo de la manera que te comentaba arriba y me funciona perfectamente.

Espero que te sirva.

Saludos!

[ronson]

Hola Nuria he hecho lo que tu me has dicho:

procedure TfrmAlbaranes.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if txtDescuento.Focused then
frmAlbaranes.SpeedButton1.Click;
end;


Tengo en el evento OnKeyprees del formulario y del txtDescuento y no me funciona me captura todas las teclas menos la del intro y no se por que puede ser!


Ademas lo habia puesto en el keyprees del txtDescuento por costumbre ya que yo vengo del VB.


SALUDOS!!

[ronson]

procedure TfrmAlbaranes.FormKeyPress(Sender: TObject; var Key: Char);

begin
if Key = #13 then
if txtDescuento.Focused then
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
frmAlbaranes.SpeedButton1.Click;
end;
end;

Ademas me he asegurado que la propiedad KeyPreview del formulario esta a true.

[ronson]

Sin embargo si pongo esto:


procedure TfrmAlbaranes.FormKeyPress(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);

if Key = #13 then
if txtDescuento.Focused then
frmAlbaranes.SpeedButton1.Click
end;


Me captura todos las teclas MENOS EL INTRO

[Nuria]

Cuando pulsas intro, que valor tiene Key?

[ronson]

Es que no sale ni siquiera ningun valor, se lo salta, incluso si pulso la tecla Backspace me sale algo parecido a un cuadrado pero si pulso intro NO ME SALE NADA!!