[Lazarus-es] ruidito

[Maxi]

El 7 de julio de 2010 12:42, José Antonio Cuello
<josea en artextrading.com>escribió:

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


Se soluciona asignadno #0 o 0 a la key segun que evento llames, para que el
evento heredado no siga su curso.

-- 
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504
http://miexperiencialinux.blogspot.com/

El que pregunta aprende, y el que contesta aprende a responder.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100707/bf947104/attachment-0002.html>