Jhonas

Denis não tem erro nenhum ... usei o seu código e não deu esse problema uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; ComboBox1: TComboBox; procedure Edit1Exit(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1Exit(Sender: TObject); begin ComboBox1.SetFocus; end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of vk_return, vk_tab: ComboBox1.SetFocus; end; end; end. abraço

tire esse comando Msg.ShowModal; faça o teste e retorne o resultado

exemplo Public Class Form1 'Este exemplo mostra como minimizar o formulário 'atual ao clicar em um botão Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Minimiza o formulário Me.WindowState = FormWindowState.Minimized End Sub End Class abraço

exemplo http://pt.wingwit.com/Software/spreadsheets/168381.html#.VKHsCrEUEU abraço

tente isso /* The class is registered, let's create the program*/ hwnd = CreateWindowEx ( 0, /* Extended possibilites for variation */ szClassName, /* Classname */ _T("Aplicação com interface"), /* Title Text */ WS_OVERLAPPEDWINDOW, /* default window */ CW_USEDEFAULT, /* Windows decides the position */ CW_USEDEFAULT, /* where the window ends up on the screen */ 640, /* The programs width */ ===> experimente alterar esse valor 480, /* and height in pixels */ ===> experimente alterar esse valor HWND_DESKTOP, /* The window is a child-window to desktop */ NULL, /* No menu */ hThisInstance, /* Program Instance handler */ NULL /* No Window Creation data */ ); /*Centralizar janela*/ RECT rect; GetWindowRect(hwnd, &rect); MoveWindow(hwnd, (GetSystemMetrics(SM_CXSCREEN)-rect.top)/2, (GetSystemMetrics(SM_CYSCREEN)-rect.left)/2, rect.top, rect.left, TRUE); ==================================================================================== seu código esta diferente desse case WM_CREATE: { RECT rect; GetWindowRect(hwnd, &rect); MoveWindow(hwnd, (GetSystemMetrics(SM_CXSCREEN)-rect.top)/2, (GetSystemMetrics(SM_CYSCREEN)-rect.left)/2, rect.top, rect.left, TRUE); } definição da função MoveWindow(): Syntax BOOL MoveWindow( HWND hWnd, int X, int Y, int nWidth, int nHeight, BOOL bRepaint ); Parameters hWnd [in] Handle to the window. X [in] Specifies the new position of the left side of the window. Y [in] Specifies the new position of the top of the window. nWidth [in] Specifies the new width of the window. nHeight [in] Specifies the new height of the window. bRepaint [in] Specifies whether the window is to be repainted. If this parameter is TRUE, the window receives a message. If the parameter is FALSE, no repainting of any kind occurs. This applies to the client area, the nonclient area (including the title bar and scroll bars), and any part of the parent window uncovered as a result of moving a child window. ========================================================== reveja o seu código com calma e faça alguns testes abraço

não necessariamente ... o uso de algoritmos ajuda a voce definir o caminho e as derivações que o fluxo de comandos devera seguir no seu programa depois que voce estiver sabendo programar bem o algoritmo se torna desnecessario ( a não ser em certas circunstancias ) abraço

faça um teste com esse código .... o erro gerado vai para um arquivo de log faça algumas alterações para o seu uso procedure TApres.ApplicationEvents1Exception(Sender: TObject; E: Exception); var NomeDoLog: string; Arquivo: TextFile; begin NomeDoLog := ChangeFileExt(Application.Exename, '.log'); AssignFile(Arquivo, NomeDoLog); if FileExists(NomeDoLog) then Append(arquivo) { se existir, apenas adiciona linhas } else ReWrite(arquivo); { cria um novo se não existir } try WriteLn(arquivo, DateTimeToStr(Now) + ':' + E.Message); WriteLn(arquivo,'----------------------------------------------------------------------'); Application.ShowException(E); finally CloseFile(arquivo) end; end; abraço

existe a necessidade de mostrar o erro para o usuario ou voce gostaria de guardar as mensagens de erro em um arquivo de log ?

exemplo http://www.unidev.com.br/index.php?/topic/6258-cc-posi%C3%A7%C3%A3o-da-janela/ abraço

mostre o codigo que esta no onException do AppEvents

faça um teste tire o raise Exception.Create('Mensagem'); e veja o que ocorre obs: siga a execução do código com o break point ( debugger )

adicione esse código ao seu arquivo .config (geralmente app.config) < startup useLegacyV2RuntimeActivationPolicy="true"> < supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/> < /startup> abraço

tome cuidado na digitação #inclued <stdio.h> correto #includ <stdio.h> exemplo http://vaniagimenez.com.br/%5Cpdf%5Clogicapdf%5Caulalogicavgc223.pdf abraço

Dê um exemplo do erro e da mensagem de erro

exemplo de relacionamento entre 3 tabelas repare que é um relacionamento de 1 para N ( muitos ) considere cada tabela como sendo um grupo ... que campo diferencia um grupo do outro ? veja esse exemplo tendo apenas um grupo e uma banda detail ( detalhes ) o grupo sera controlado pelo campo CodPedido da tabela Pedido ( sendo que nesse grupo posso ter outras informações dessa tabela ) e banda detalhe que tera os campos da tabela Parcelas observe a figura acima, e verá que a disposição em que os dados aparecem depois que a Select ( query ) é executada, é a mesma disposição que devera aparecer no quick report -> Produto (primeiro grupo) --> operações 1 (Segundo grupo) --> operações 2 (Segundo grupo) --> material 1 (Terceiro Grupo) --> material 2 (Terceiro Grupo) --> material 3 (Terceiro Grupo) como esta o relacionamento dessas tabelas ? quais são os campos comuns ? como os dados estão ordenados dentro de um dbgrid ? exemplo de relatorio usando 3 grupos ( 3 tabelas relacionadas ) abraço

traduza a pagina se já não estiver traduzida do chinês para o português http://translate.google.com.br/translate?hl=pt-BR&sl=zh-CN&u=http://www.61ic.com/FPGA/Print.asp%3FArticleID%3D49710&prev=search abraço

algoritmo "maior e menor" procedimento kk() var N,MA,ME,cont:inteiro inicio leia (N) ME <- N MA <- N para cont de 1 ate 19 faca Leia (N) se N < ME então ME <- N fimse se N > MA então MA <- N fimse fimpara escreval ("MAIOR:",MA) escreval ("MENOR:",ME) fimprocedimento inicio kk() fimalgoritmo OBS: Compare com o seu código http://www.hardware.com.br/comunidade/ler-numeros/1219207/ abraço

exemplo: https://docs.oracle.com/cd/E17781_01/appdev.112/e18555/ch_twelve_blobs.htm#TDPPH186 abraço

exemplos: update Tbl1 set campo1 = replace(campo1, 'old_str', 'new_str'); ou UPDATE Tbl1 SET Rec1= StrReplace(Rec1, 'SomeValue', ''); ou UPDATE urls SET url = REPLACE(url, 'domain1.com/images/', 'domain2.com/otherfolder/') ou UPDATE yourtable SET url = REPLACE(url, 'http://domain1.com/images/''http://domain2.com/otherfolder/') WHERE url LIKE ('http://domain1.com/images/%'); abraço

novidades do firebird 2.5 - charsets e collates http://asfernandes.blogspot.com.br/2014/01/artigo-novidades-do-firebird-25_5.html Outra novidade da versão 2.5 é o collate UNICODE_CI_AI (para o character set UTF8), variação do collate UNICODE pré-configurado para desconsiderar diferenças de acentos e maiúsculas/minúsculas. O collate UNICODE_CI_AI funciona de maneira similar ao WIN_PTBR e PT_BR, mas aceita o conjunto completo de caracteres Unicode. preciso desprezar os acentos que retornam na coluna município use o caracter coringa para isso exemplo: voce substitui o caracter acentuado pelo caracter _ --WHERE UPPER (CAST(A.XMUNICIPIO AS VARCHAR(256) CHARACTER SET ISO8859_1) COLLATE DE_DE) LIKE '%s_o%' http://support.microsoft.com/kb/98434/pt-br http://msdn.microsoft.com/pt-br/library/ms179859.aspx abraço

veja nesses links https://www.google.com.br/?gfe_rd=cr&ei=ZoyZVJzSF4yF8QePt4DYBg&gws_rd=ssl#q=leitor+rss+flash abraço

<script language="JavaScript"> var tecla=window.event.keyCode; if (tecla==13) { ///codigo correspondente a tecla enter "comandos para você EXECUTAR O SUBMIT DO FORMULARIO VIA JAVASCRIPT" } </script> ===================================================== script para criar teclas de atalho http://codigofonte.uol.com.br/codigos/script-para-criar-teclas-de-atalho ====================================================== outro exemplo <script language=JavaScript> function TocarSom(event, soundobj) { var keynum; if(window.event) { //IE keynum = event.keyCode } else if(event.which) { // Netscape/Firefox/Opera AQUI ESTAVA O PEQUENINO ERRO ao invés de "e." é "event." keynum = event.which } if( keynum==13 ) { <!-- 13 é o código do Enter --> AQUI TAMBEM eval("document."+soundobj).Play(); } } </script> <form> <mtw:input type="text" name="sound" klass="mtwInputText" extra="onkeypress=TocarSom(event, 'sound1')" /> </form> abraço

Hadoop é usado para a extração de palavras-chave a partir de múltiplos arquivos em paralelo https://www.google.com.br/?gfe_rd=cr&ei=pEKXVIK8BOGU8Qe574GYAw&gws_rd=ssl#q=rede+p2p+hadoop abraço

continue com o 11g Express Edition ( versão atualizada ) https://www.google.com.br/?gfe_rd=cr&ei=pEKXVIK8BOGU8Qe574GYAw&gws_rd=ssl#q=oracle+11g+express+edition+tutorial abraço

tente isso http://www.telefort-net.com.br/colobe/index.php/blogdogian/59-recuperar-banco-de-dados-gdb-firebird abraço