Re: [delphi-br] Dúvidas no PageControl e TabSheet ...
SIMPLES, NO EVENTO ONEXIT DO ULTIMO EDIT DE CADA TABSHEET DIGITE O COMANDO: PageControl.TabIndex := PageControl.TabIndex + 1; E NO EVENTO ONENTER DE CADA TABSHEET DIGITE O SETFOCUS NO PRIMEIRO EDIT. VALEU!! RICARDO CERQUEIRA ANALISTA DE SISTEMAS On 6/16/05, Nelson Antonio da Cruz Covolo [EMAIL PROTECTED] wrote: Ol Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vrios edits ... O que eu gostaria de fazer que que quando eu chegar no ultimo edit do TabSheet e mude automaticamente para o proximo TabSheet, e posicione o primeiro edit desse tabsheet ativo... e assim por diante ... Seria tipo uma rolagem entre os TabSheets ... o que esta acontecendo hoje, que quando ele chega no ultimo edit, ele vai para um edit fora do meu PageControl ... no evento OnKeyPress do meu form tenho o seguinte: If (key = #13) Then Begin If Not (activecontrol Is twwdbgrid) and not (activecontrol is TDBMemo) Then Begin key := #0 ; Perform(Wm_NextDlgCtl, 0, 0) ; End ; End ; Desde j eu agradeo a ateno de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Dúvidas no PageControl e TabSheet ...
Valeu pessoal pela ajuda, Fiz da seguinte forma: no evento OnKeyDown: if Key = VK_RETURN then begin PageControl_PESSOA_FISICA.ActivePage := TabSheet_PF_DOCUMENTOS; TabSheet_PF_DOCUMENTOS.SetFocus; end; Caso eu puder colaborar com algum, estou a disposio ... Atenciosamente, Nelson Antonio --- Em delphi-br@yahoogrupos.com.br, Paulo Srgio [EMAIL PROTECTED] escreveu Nelson, No onExit do ltimo edit de cada TabSheet coloque : PageControl1.SelectNextPage(true); EditTal.SetFocus; Espero t-lo ajudado. Paulo Srgio Bhte. /MG -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de Nelson Antonio da Cruz Covolo Enviada em: quinta-feira, 16 de junho de 2005 09:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dvidas no PageControl e TabSheet ... Ol Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vrios edits ... O que eu gostaria de fazer que que quando eu chegar no ultimo edit do TabSheet e mude automaticamente para o proximo TabSheet, e posicione o primeiro edit desse tabsheet ativo... e assim por diante ... Seria tipo uma rolagem entre os TabSheets ... o que esta acontecendo hoje, que quando ele chega no ultimo edit, ele vai para um edit fora do meu PageControl ... no evento OnKeyPress do meu form tenho o seguinte: If (key = #13) Then Begin If Not (activecontrol Is twwdbgrid) and not (activecontrol is TDBMemo) Then Begin key := #0 ; Perform(Wm_NextDlgCtl, 0, 0) ; End ; End ; Desde j eu agradeo a ateno de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] subject=Unsubscribe * O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do http://br.yahoo.com/info/utos.html Servio do Yahoo!. [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Dúvidas no PageControl e TabSheet ...
Ol Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vrios edits ... O que eu gostaria de fazer que que quando eu chegar no ultimo edit do TabSheet e mude automaticamente para o proximo TabSheet, e posicione o primeiro edit desse tabsheet ativo... e assim por diante ... Seria tipo uma rolagem entre os TabSheets ... o que esta acontecendo hoje, que quando ele chega no ultimo edit, ele vai para um edit fora do meu PageControl ... no evento OnKeyPress do meu form tenho o seguinte: If (key = #13) Then Begin If Not (activecontrol Is twwdbgrid) and not (activecontrol is TDBMemo) Then Begin key := #0 ; Perform(Wm_NextDlgCtl, 0, 0) ; End ; End ; Desde j eu agradeo a ateno de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Dúvidas no PageControl e TabSheet ...
Coloque no OnKeyPress do ltimo edit: If (Key = #13) then PageControl.ActivePageIndex := NumeroProximaPagina; - Original Message - From: Nelson Antonio da Cruz Covolo To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 16, 2005 9:41 AM Subject: [delphi-br] Dvidas no PageControl e TabSheet ... Ol Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vrios edits ... O que eu gostaria de fazer que que quando eu chegar no ultimo edit do TabSheet e mude automaticamente para o proximo TabSheet, e posicione o primeiro edit desse tabsheet ativo... e assim por diante ... Seria tipo uma rolagem entre os TabSheets ... o que esta acontecendo hoje, que quando ele chega no ultimo edit, ele vai para um edit fora do meu PageControl ... no evento OnKeyPress do meu form tenho o seguinte: If (key = #13) Then Begin If Not (activecontrol Is twwdbgrid) and not (activecontrol is TDBMemo) Then Begin key := #0 ; Perform(Wm_NextDlgCtl, 0, 0) ; End ; End ; Desde j eu agradeo a ateno de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Dúvidas no PageControl e TabSheet ...
Nelson, No onExit do ltimo edit de cada TabSheet coloque : PageControl1.SelectNextPage(true); EditTal.SetFocus; Espero t-lo ajudado. Paulo Srgio Bhte. /MG -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Nelson Antonio da Cruz Covolo Enviada em: quinta-feira, 16 de junho de 2005 09:41 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dvidas no PageControl e TabSheet ... Ol Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vrios edits ... O que eu gostaria de fazer que que quando eu chegar no ultimo edit do TabSheet e mude automaticamente para o proximo TabSheet, e posicione o primeiro edit desse tabsheet ativo... e assim por diante ... Seria tipo uma rolagem entre os TabSheets ... o que esta acontecendo hoje, que quando ele chega no ultimo edit, ele vai para um edit fora do meu PageControl ... no evento OnKeyPress do meu form tenho o seguinte: If (key = #13) Then Begin If Not (activecontrol Is twwdbgrid) and not (activecontrol is TDBMemo) Then Begin key := #0 ; Perform(Wm_NextDlgCtl, 0, 0) ; End ; End ; Desde j eu agradeo a ateno de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do http://br.yahoo.com/info/utos.html Servio do Yahoo!. [As partes desta mensagem que no continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html