Tema: Tecla ENTER
Ver Mensaje Individual
  #6  
Antiguo 30-06-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Reputación: 23
ContraVeneno Va por buen camino
enter funcione como tab

Pon la propiedad KeyPreview de tu Form a True

luego en la función KeyPrees de tu form has lo siguiente:


Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
inherited;
If Key = #13 Then begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;end;
end;
el cambio en el control dependera del orden que le des a cada control en su propiedad Taborder
Saludos
__________________

Responder Con Cita