Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   sabel el siguiente tab? (https://www.clubdelphi.com/foros/showthread.php?t=20778)

raudelink 25-04-2005 19:27:08

sabel el siguiente tab?
 
hola a todos,
tengo un problemita con una aplicacion donde necesito saber que siguiente componento (edit) sigue en el tab order.

esto es para ke cuando se genere un evento (en este caso el onkeypress), si la tecla ke presionaron fue enter(#13) entonces ke cambie el foco a el siguiente edit, yo se ke le puedo dar el foco manualmente, pero keria sabir si alguno de ustedes sabe como se pone para ke se vaya al tab ke sigue, algo asi como "taborder.next" :-D,
Espero me ayuden!!! o espero se pueda!!!
Gracias!!!

roman 25-04-2005 20:45:05

Usa el método SelectNext del formulario:

Por ejemplo, asigna este método


Código Delphi [-]
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SelectNext(Sender As TWinControl, true, true);
end;

al evento OnKeyPress de los Edits de tu formulario y lograrás que al oprimir ENTER en cualquiera de ellos se pase el foco al siguiente.

// Saludos

raudelink 26-04-2005 01:40:28

Gracias
 
OK, me funciono perfecto, Gracias por su ayuda, y si a alguien les es util, le agrege una linea para evitar el sonido del beep cuando presionas enter

if key=#13 then
begin
key:=#0;
SelectNext(Sender As TWinControl, true, true);
end;


La franja horaria es GMT +2. Ahora son las 06:13:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi