[Lazarus-es] formkeypress problemas

[Paola Bruccoleri]

El 20/08/2013 11:53, Paola Bruccoleri escribió:
> Hola todos..
>
> En los forms donde quiero pasar de un control a otro con enter, heredo 
> de otro (frmEnterESC) que tiene programado en el formkeypress y 
> formkeydown dicho comportamiento. Funciona todo ok
> Pero, tengo otro form especial, donde no quiero heredar de ese, sino 
> colocar en dichos eventos un código similar, pero modificado, ya que 
> además, no quiero cerrar el form con ESC sino que haga otra cosa.
>
> Entonces, copié/pegué el código de esos eventos del  frmEnterESC en
> este, modifiqué la herencia del form y listo. Por ahora como no cambié 
> nada más, se supone que DEBE funcionar igual que antes (la propiedad 
> keypreview del form está en true). Pero no funciona!
> Estoy depurando, y cuando presiono enter en cq control (son edits) no 
> pasa por elevento onkeypress ni onkeydown.
>
> Este es el MISMO código q tengo en frmEnterESC
>
> procedure TfrmAgregar.FormKeyDown(Sender: TObject; var Key: Word;
>   Shift: TShiftState);
> begin
>   if (Key =  27) then
>      begin
>        Key := 0;
>        Close;
>      end;
> end;
>
> procedure TfrmAgregar.FormKeyPress(Sender: TObject; var Key: char);
> begin
>   if (key =  #13) and not(ActiveControl is TCustomButton) then
>     begin
>       SelectNext(ActiveControl, True, True);
>       Key := #0;
>     end
> end;
Hola de nuevo...
me da por revisar los lfm, y veo que no tenía la propiedad keypreview = 
true.. a pesar de que si miro el inspector de objetos del form, SI la 
veo en true...
cosa rara.... la agregué a mano al lfm y ahora anda....

byeeeeeeeeeeeeeee