Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Salto del Cursor entre Paneles (https://www.clubdelphi.com/foros/showthread.php?t=70136)

Er0s 01-10-2010 14:04:51

Salto del Cursor entre Paneles
 
Buenos dias!!

Tengo Edits en diferentes paneles, pero no consigo pasar el cursor de el ultimo edit del primer panel, al primero del segundo panel. El primer panel tiene el taborder 0 y el segundo el Taborder 1 y los edits dentro de cada panel llevan su TabOrder correspondiente.

Necesito lo mismo para los groupbox, aunque supongo que sera lo mismo.

Gracias

Caro 01-10-2010 15:48:01

Hola Er0s, prueba utilizando el procedimiento SelectNext:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
 SelectNext(ActiveControl, True, True);
end;

Saluditos

Er0s 01-10-2010 16:26:08

Esto no me Funciona Caro...... lo he hecho tal y como tu lo muestras, en el evento OnShow

ecfisa 01-10-2010 17:31:34

Hola ErOs.

Si tenés el primer TPanel con TabOrder = 0 y el segundo con TabOrder = 1,
y dentro de cada TPanel, los TEdits tienen TabOrders = 0,1,2...n,
y el último TEdit tiene el TabOrder máximo de ese TPanel, debería funcionarte sin problemas.

¿ Usas algún evento de captura de tecla que pueda estar interfiriendo ?

Saludos. :)

ecfisa 01-10-2010 18:06:22

Hola de nuevo ErOs.

Se me acaba de ocurrir... ¿ En los TPanels, tenés la propiedad TabStop = False ?
Por que si está igual a True, tendrías que presionar dos veces la tecla Tab para
llegar del último TEdit del Primer TPanel, al primer TEdit del sengundo TPanel.
Ya que este captura el foco antes que el TEdit.


Saludos. :)

Er0s 01-10-2010 18:30:42

Gracias por las respuestas....

Funciona perfectamente.... por lo que veo soy demasiado rápido abriendo hilos... el problema venia de uno de los paneles que el enabled estaba en False.


Mil disculpas y Mil Gracias


La franja horaria es GMT +2. Ahora son las 18:42:19.

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