Douglas Soares

Estou sem tempo para resolver esse problema, no entanto fiz de outro jeito.... usei o componente JVDBGRID da biblioteca Jedi e então usei a opção EditControls, ou seja... quando eu dou 2 cliques no field ele abre um edit grande, daí eu vizualizo toda a informação do campo... o pessoal aqui gostou, então vai ficar assim mesmo! Obrigado pela ajuda prestada!

Baixe essa unit SndKey32.pas e coloque na pasta lib do delphi: http://delphi.about.com/library/weekly/code/sndkey32.zip Depois declare a unit SndKey32 no seu projeto. Em seguida coloque um componente TTimer em seu projeto, altere o interval dele para o tempo desejado em milisegundos, exemplo: 60000, o seja, ele vai fazer o processo a cada 60 segundos (1 minuto) e então adicione no evento ontimer dele o seguinte código: keybd_event(VK_RETURN, 0, 0, 0); SendKeys('/reset', True ); keybd_event(VK_RETURN, 0, 0, 0); Abraços

Vlw pessoal! obrigado por tudo! aproveitando a ocasião gostaria de manda um salve pra galera do fórum de delphi, pro povo da moderação, pro pessoal da xuripita, pro Jhonas! e pra sei lá.... :P Aproveitando a ocasião.... serve um caputino pra mim por favor! rsrsrsrs Abraços!!!

Bom dia, tenho um código para o dbgrid pular linha, ou melhor, para fazer um wordwrap no texto... daí eu preciso aumentar o tamanho da linha conforme o texto, o código é esse: procedure TfrmCadClientes.DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var R : TRect; begin R := Rect; Dec(R.Bottom,0); If Column.Field = cdsOcorre.FieldByName('HISTORICO') Then Begin DBGrid5.Canvas.FillRect(R); DrawText(DBGrid5.Canvas.Handle,PChar(cdsOcorre.FieldByName('HISTORICO').AsString),Length(cdsOcorre.FieldByName('HISTORICO').AsString),R,DT_WORDBREAK); end; end; Tenho 2 situações, quando o texto for maior que 84 caracteres então aumente para 2 linhas, ou seja, howheight 28, e quando for maior que 172 então é 3 linhas e o howheight vai para 42... P.S: achei um post seu com a mesma dúvida, pórem não consegui de maneira algum utilizar a sua função :ninja: http://scriptbrasil.com.br/forum/index.php?showtopic=144939 alguém pode me ajudar??? Obrigado

O código sempre começa assim: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, WinInet; Repare que a unit WinInet foi declarada acima. Abraços

Expresse melhor a sua dúvida!

Declare a unit WinInet e tente assim: if InternetCheckConnection('http://www.seusite.com.br/', 1, 0) then ShowMessage('Tá funcionando') else ShowMessage('Não tá funcionando'); Abraços

Você não tem que "linkar" o evento no botão, e sim executar a ação do onclick assim que clicar no botão... PegaTecla() Daí você deve saber como colocar isso com o intraweb né! Abraços

Ative a propriedade KeyPreview do seu form, use o evento OnKeyDown e faça assim: if key = VK_ADD then ShowMessage('+'); É isso que você quer? Abraços

Amigo, você está atribuindo valores e limpando o componente... você tem que adicionar a quantidade de SqlQuery's que vai precisar, se for 4 query's diferente, então adicione 4 componentes com a mesma conexão... SQLQuery1, SQLQuery2, SQLQuery3 e SQLQuery4... Abraços

Abra o Regedit e vá nessa chave: HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\WinLogon\AllocateCDRoms Verifique a chave AllocateCDRoms, se estiver com o valor 1, então altere para 0 e então tente instalar novamente :P Abraços

Troca isso: SQLQuery1.SQL.Add('insert into driver (Placa) values ('+''''+edit2.Text+''''+') '); por isso: SQLQuery1.SQL.Text('insert into driver (Placa) values ('+''''+edit2.Text+''''+') '); Abraços

Declare a Unit UrlMon, insira essa função no código: Function Download(FSource, FDest: String): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(Fsource),PChar(FDest), 0, nil) = 0; except Result := False; end; end; Adicione um botão no form e no evento onclick coloque isso: procedure TForm1.Button1Click(Sender: TObject); var caminho, linha : string; arq : TextFile; begin caminho := 'C:\arquivo.txt'; Download('http://www.soareseneves.com.br/downloads/sigi/atualiza/Atualizacoes.sn', caminho); AssignFile ( arq, caminho); Reset ( arq ); Read ( arq, linha ); CloseFile ( arq ); if linha = 'SIM' then ShowMessage('SIM') else if linha = 'NÃO' then ShowMessage('NÃO'); end; Abraços

Dê uma olhada nesses links: http://edn.embarcadero.com/br/article/33973 http://forum.devmedia.com.br/viewtopic.php?t=77509 http://www.techtips.com.br/programacao/del...ivos-em-delphi/ Abraços

Qual seu sistema Operacional e versão? Ex: Windows Vista Starter Abraços

Deixe a propriedade Visible do form como false e dps tente: Frm_projeto := TFrm_projeto.Create(Application); try Frm_projeto.ShowModal; finally Frm_Projeto.Release; Frm_Projeto := nil; end; Abraços

Se você já colocou o FormStyle dos 2 para Normal e eles ainda continuam abrindo juntos, clique no menu Project > Options, veja que no lado esquerto tem os forms que são criados automaticamente... dê 2 cliques no que você não quer que abra mais, ele vai passar pra direita... daí é só dar ok e testar! Abraços

Dê uma olhada nesses links: http://www.activedelphi.com.br/forum/viewt...c9493c26cdb78a8 http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=409 http://www.planetadelphi.com.br/dica/6222/...bela-para-outra Abraços

o Problema é que o Memo tem um limite.... peguei o código fonte daquele outro post seu e coloquei no memo, porém ele só aceita 1271 linhas, só que se eu clico em code editor e colo o código, ele aceita tudo... vou descobrir uma outra forma de colocar nele ou então achar um componente maior que ele :rolleyes: Abraços

Faça assim que vai funcionar: frmProdutos := TfrmProdutos.create(Application); try frmProdutos.showmodal; finally frmProdutos.release; frmProdutos := nil; end; Abraços

Coloque um componente IDHttp que está na paleta Indy Clients e faça assim: Memo1.Lines.Text := idhttp1.Get('http://www.url.com.br'); Abraços

Você está querendo filtrar pela func_situação é isso mesmo? Se for tente fazer assim: tabelaX.func_situacao like '%Ativo%'

O Problema é que eu sobreponho o <iframe src=" por um @ pra ficar mais facil localização, alterei pra outro caractere, um que não é utilizado, como percebi existes 3 iframes no código, a informação que você quer parece ser a primeira, se for assim substitua a função que te passei pela que alterei abaixo... function TForm1.TextoEntre(Texto, Delimitador1, Delimitador2: String; CaseSensitive : boolean = false): string; var Inicio, Fim : Integer; Saida : string; begin // Passar o texto para variável temporária Saida := Texto; Saida := StringReplace(Saida, Delimitador1, '¢', [rfReplaceAll]); Delimitador1 := '¢'; // Verificar se é sensível ao caso // Pegar o início if CaseSensitive then Inicio := Pos(Delimitador1, Saida) else Inicio := Pos(ansiUpperCase(Delimitador1), ansiLowerCase(Saida)); // Verificar se localizou if Inicio > 0 then Saida := Copy(Saida, Inicio + Length(Delimitador1), Length(Saida)); // Pegar o fim if CaseSensitive then Fim := Pos(Delimitador2, Saida) else Fim := Pos(ansiUpperCase(Delimitador2), ansiUpperCase(Saida)); // Verificar se localizou if Fim > 0 then Saida := Copy(Saida, 1, Fim - 1); // retornar o resultado Result := Saida; end; P.S: aparentemente está igual, mas eu mudei somente 2 caracteres, e são eles que vão fazer a coisa funcionar :P Abraços

Tente identificar melhor os campos da query... se você não está utilizando todos os campos da tabela então o * from table não deve ser utilizado porque diminui muito o rendimento do banco firebird, tente identificar o campo com a tabela mais ou menos assim: select campo1.CUSTOFUNCIONARIO, campo2.CUSTOFUNCIONARIO campo1.SAIDA_PAI, campo2.SAIDA_PAI from CUSTOFUNCIONARIO , SAIDA_PAI INNER JOIN FUNCIONARIO ON tabelaX.func_codigo = tabelaX.cus_codfunc where tabelaX.CUS_COD_SAIDA_PAI = :SAIPAI_CODIGO and tabelaX.SAIPAI_CODIGO = tabelaXCUS_COD_SAIDA_PAI and tabelaX.func_situacao like 'Ativo' order by tabelaX.CUS_DATA, tabelaX.FUNC_NOME ASC Abraços

Cara testei varias funções e não consegui, não manjo de criptografia, mesmo assim eu esperava obter um resultado :wacko: putz, você deve ta usando a função CriptHell(Texto : string; Demonho : string; brabo : boolean = true); kkkkk se ngm responder posta o código pra nois... quero aprender criptografar assim :rolleyes: Abraços