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] Dúvidas no PageControl e TabSheet ...
Olá Pessoal ... Tenho um PageControl, com 4 TabSheets, e dentro de cada um desses TabSheets eu tenho vários 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 agradeço a atenção de todos, e ficarei na expectativa de um breve retorno. Atenciosamente, Nelson Antonio [As partes desta mensagem que não 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
