Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Oi Renato... te enviei por email a dll abraço
  2. voce não resposdeu nem a minha pergunta e nem a do Micheus... sem voce colocar o codigo que esta na dll fica dificil ajudar... de qualquer forma voce pode tentar outras maneiras de controlar a tecla TAB: procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then selectedindex := selectedindex +1 else selectedindex := 0; end; Ou então, pode-se tentar o seguinte método: Utilize o evento onkeydown do componente e insira o seguinte comando: if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior. if Key = VK_TAB then Perform(Wm_NextDlgCtl,0,0); este comando testa a tecla pressionada, se ela for um tab, manda o foco para o componente posterior. .................................................................................. Dica de Márcio Souza Enter funcionando como Tab em toda a aplicação Uses Grids procedure TfrmPri.MudarComEnter(var Msg: TMsg; var Handled: Boolean); begin If not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid) or (Screen.ActiveForm.ClassName = 'TMessageForm')) then begin If Msg.message = WM_KEYDOWN then begin Case Msg.wParam of VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0); VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0); end; end; end; end; no evento OnCreate o Form Principal digite a seguinte linha Application.OnMessage := MudarComEnter; .......................................................... Eu uso desta maneira: if Key = #9 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex <= (fieldcount -1 ) then begin if selectedindex = 2 then begin showmessage('Coluna 3 do DbGrid selecionada'); end; end else selectedindex := 0; abraço
  3. Mensagem : Nenhuma transação de usuário está atualmente em progresso Esta mensagem aparece quando voce não inicia a transação do IBTransaction1 ex : IBTransaction1.StartTransaction; abraço
  4. procure por Dicas [ Imagens no MySQL . Função AddSlashes ] foi mal, não é para delphi .......................................................... aproveitando o que o Micheus já te respondeu, vamos supor que o campo definido na sua tabela seja do tipo TBlob e este linkado ao componente TDBImage, então podemos fazer o seguinte teste: // Para salvar a imagem DataModule1.Table1.Edit; DataModule1.Table1.FieldByName('foto').LoadfromFile('C:\Imagem.jpg'); // o nome foto é minusculo ? DataModule1.Table1.Post; OBS: o codigo que o Micheus postou para voce tambem funciona... abraço
  5. OBS: veja como o codigo foi construido e tente adaptá-lo para o seu uso http://forum.imasters.uol.com.br/index.php?showtopic=230298 abraço
  6. da uma olhada neste post do Micheus http://scriptbrasil.com.br/forum/index.php...st&p=447469 abraço
  7. ajudaria se voce colocasse o codigo da dll e explicasse como voce esta criando o form filho. abraço
  8. se voce postar o codigo onde voce chama o QR fica mais facil te ajudar. possivelmente após o preview do QR, voce esta limpando os campos ou fechando a tabela abraço
  9. voce pode usar a instrução SQL exemplo: Select * from NomedaTabela // NomedaTabela é o nome do seu arquivo de dados order by NOME caso não tenha conhecimento sobre instruções SQL de uma olha neste endereço Principais Instruções em SQL http://www.linhadecodigo.com.br/Artigo.aspx?id=75 abraço
  10. é só clicar nos componentes do seu form e no object inspector voce vai encontrar a propriedade TabStop abraço
  11. Jhonas

    RSA de chave publica

    alguns endereços que poderão ajudar... http://technet2.microsoft.com/WindowsServe...0.mspx?mfr=true http://mosel.estg.ipleiria.pt/files/2_Util...os_digitais.pdf http://download.microsoft.com/download/e/3...003_ISA2006.doc http://es.geocities.com/dte_dotnet/mydtesii40.html abraço
  12. este erro já foi tratado em outro tópico http://scriptbrasil.com.br/forum/index.php...st&p=460062 OBS: foi tratado praticamente o mesmo assunto que voce esta com problemas ............................................................. No seu tópico acima voce colocou: Não estou achando alguns comandos no seu codigo que deveriam estar lá... abraço
  13. experimente fazer um teste da tecla Tab no evento KeyPress no form filho, para ver se esta funcionando. abraço
  14. o ArchiveReader não consegue ler diretamente de um TMemoryStream creio que não seja possivel, voce terá que salvar num arquivo temporario ( *.raf ) para depois lê-lo com o ArchiveReader. abraço
  15. se estivesse no seu micro estaria na pasta bin do delphi, e realmente voce não vai achar na internet... entretanto acho que o problema pode ser solucionado se voce fizer o download do dbExpress driver for Oracle, Windows version 4.20 [size 1332 Kb] http://www.crlab.com/dbx/download.html abraço
  16. vai ai algumas sugestões: http://www.guiadodelphi.com.br/ler.php?codigo=214 http://delphi.about.com/cs/howto/ht/htpdf.htm http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=727 http://forum.devmedia.com.br/viewtopic.php...a40cac1066aee2a http://www.pdfstore.com/category.asp?CtgID=12 abraço
  17. eu não uso este componente, mas voce vai encontrar maiores informações neste endereço http://technet.microsoft.com/en-us/library...691(VS.85).aspx abraço
  18. olhe este post ... acho que vai ajuda-lo http://scriptbrasil.com.br/forum/index.php...st&p=455843 abraço
  19. alguns servidores de email requerem autenticação do smtp, e usam a mesma configuração definida no servidor de entrada OBS: tem certeza que o smtp do gmail é 'smtp.live.com' e a porta é 456 ? se estiver correto, tem que ver que tipo de autenticação o gmail pede Tradunção do erro: abraço
  20. http://www.activedelphi.com.br/lista_topic...1&tópico=48 abraço
  21. Esse erro significa que não conseguiu localizar o servidor, ou o de recebimento (pop) ou o de envio (smtp) OBS: configure corretamente as portas para o hotmail e o gmail abraço
  22. não sei se é isto que voce está querendo... Extended Hex Delphi 6 Editor Control v1.2 http://www.digeratidownloads.com.br/arquiv...rol-855/675.php Caso precise... Programando em delphi6 com Banco de dados http://pucrs.campus2.br/~annes/delphi6int.pdf abraço
  23. se voce entrar no hotmail ou no gmail, deverá encontrar estas informações lá ( pop3 e smtp ). caso não consiga escreva um email para o administrador do servidor de email pedindo estas informações, para que voce possa usa-la se voce consegue enviar pelo outlook voce já deve ter estas configurações. verifique abraço
  24. No evento OnClientConnect do TServerSocket, o Socket.RemoteAddress vai retornar o IP de quem conectou à você. abraço
  25. O componente TAnimate tem uma propriedade chamada CommonAvi onde voce vai encontrar 8 tipos diferentes de arquivos avi na propriedade FileName voce pode buscar um arquivo avi externo em seu computador na propriedade active coloque true para executar o avi obs: alguns arquivos 'avi' não funcionam corretamente em virtude da compressão usada nos mesmos, entretanto os componentes do RX para esta função funcionam perfeitamente download do Rxlib para delphi 3, 4 e 5 http://br.geocities.com/all_software/download.htm download do Rxlib para delphi 6 e 7 http://www.delphibr.com.br/download.php abraço
×
×
  • Criar Novo...