PDA

Ver la Versión Completa : sabel el siguiente tab?


raudelink
25-04-2005, 19:27:08
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



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
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;