Ver Mensaje Individual
  #5  
Antiguo 07-09-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola weke.

Indudablemente la diferencia de comportamiento es debido al uso del componente TJvXPButton.

El TButton ni siquiera se vé afectado cambiando el comportamiento de la tecla enter en el evento OnKeyPress del form , mediante por ejemplo:
Código Delphi [-]
// En el form: KeyPreview:= True
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Key:= #0;
    Perform(WM_NEXTDLGCTL,0,0);
  end;
end;

Es por eso que te sugerí revisar el evento OnMessage, ya que para lograr el comportamiento que describis es necesario hacer algo como:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := EnterATab; 
end;
...
procedure TForm1.EnterATab(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.Message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_RETURN then
      Keybd_event(VK_TAB, 0, 0, 0);
  end; 
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita