<br><br><div class="gmail_quote">El 7 de julio de 2010 12:42, José Antonio Cuello <span dir="ltr"><<a href="mailto:josea@artextrading.com">josea@artextrading.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

Hola, creo que si lo tratas en el keypress en vez del key down puedes<br>
anular la pulsación con key := #0 ya que en el keydown la tecla ya ha<br>
sido pulsada y se lanzan los eventos de teclado igualmente.<br>
<br>
Bueno no se si me he explicado correctamente, pero creo que para que<br>
haya un keydown debe haber keypress pero no al reves.<br>
<br>
Yo controlo la pulsación del enter y el escape así y no me da problema.<br>
<br>
procedure TBaseForm.FormKeyPress(Sender: TObject; var Key: char);<br>
begin<br>
  if assigned( Screen.ActiveControl ) then<br>
  begin<br>
    if (Key = #13) then<br>
    begin<br>
      if Screen.ActiveControl.InheritsFrom(TCustomButton) then Exit;<br>
<br>
      if Screen.ActiveControl.InheritsFrom(TWinControl) and not<br>
Screen.ActiveControl.InheritsFrom(TCustomMemo) then<br>
      begin<br>
        Key := #0;<br>
        repeat<br>
          SelectNext(Screen.ActiveControl, True, True);<br>
        until (Screen.ActiveControl = nil) or<br>
              (not (Screen.ActiveControl.InheritsFrom(TCustomPage) or<br>
Screen.ActiveControl.InheritsFrom(TCustomNotebook)));<br>
      end;<br>
    end;<br>
  end<br>
  else<br>
    if (Key = #13) then<br>
    begin<br>
      Key := #0;<br>
      SelectNext(nil, True, True);<br>
    end;<br>
end;<br>
<br>
Espero que te sirva<br>
<br>
El mié, 07-07-2010 a las 12:31 -0300, Paola Bruccoleri escribió:<br>
<div><div></div><div class="h5">> Hola José..<br>
> > El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No<br>
> > hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas<br>
> > creo que no funciona en ninguna plataforma, de todos modos puedes<br>
> > probar a poner:<br>
> ><br>
> > procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;<br>
> >    Shift: TShiftState);<br>
> > begin<br>
> >    if (key =  VK_ESCAPE) then begin<br>
> >       Key := 0;<br>
> >       close;<br>
> >    end;<br>
> > end;<br>
> ><br>
> ><br>
> si, ese clin lo hace cuando pasás por algunos controles, como los<br>
> combos, rx, etc... otros no.<br>
> No me funcionó ese tip que me distes.. lo sigue haciendo igual..<br>
><br>
> Así que esto por ej de pasar con enter los controles no funciona en linux?<br>
> Es indispensable para sistemas de gestión, donde se factura sin parar!!!<br>
> chauuuuuuuuuu<br>
><br>
><br>
><br>
> _______________________________________________<br>
> Lazarus-es mailing list<br>
> <a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br>
<br>
<br>
</div></div>________________________________________________________________________<br>
<br>
ARTEX TRADING S.A.<br>
<font color="#888888">José Antonio Cuello Principal<br>
</font><div><div></div><div class="h5"><br>
<br>
<br>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></div></blockquote></div><br><br clear="all">Se soluciona asignadno #0 o 0 a la key segun que evento llames, para que el evento heredado no siga su curso.<br><br>-- <br>Twitter: @nenunocomar<br>Maximiliano Duarte<br>

Linux User #495070<br>Ubuntu User #28504<br><a href="http://miexperiencialinux.blogspot.com/">http://miexperiencialinux.blogspot.com/</a><br><br>El que pregunta aprende, y el que contesta aprende a responder.<br>