Douglas Soares

Substitua: ac:= TQRLabel.Create(nil); por ac:= TQRLabel.Create(self); e veja o que acontece. Abraços

Dê uma olhada nesse link: http://imasters.uol.com.br/artigo/2169/int...ao_ao_firebird/ Abraços

Você pode utilizar o registro do windows :) eu até te passaria um exemplo em delphi mas não vou fazer isso, tenho mt dificuldades com Windows Vista e 7, ele não cria a chave porque não tem permissões... daí o que eu fiz... criei um instalador do InnoSetup que faz isso por mim :D, não sei porque mas ele tem permissão divina pra acessar o registro :P, segue o compilador: http://www.4shared.com/file/tffRqz-o/iniciar.html O Script acima eu coloco o firebird para iniciar com o Windows (COMO APLICAÇÃO) Se você não tem o InnoSetup instale-o: http://www.baixaki.com.br/download/inno-setup.htm em seguida o ISTool http://www.baixaki.com.br/download/istool.htm PS: dps que fizer o executavel pelo InnoSetup você pode coloca-lo na pasta de sua aplicação, e executa-la com um ShellExecute. Abraços

você tem que colocar um TSQLQuery, um ClientDataSet e DataSetProvider, ligue-os e depois faça a query no Evento SQL do componente SQLQuery: Depois adicione os campos no seu TSqlQuery e no ClientDataSet, em seguida use o seguinte comando no botão: cdsTeste.Open; cdsTeste.IndexFieldNames := 'codigo'; cdsTeste.FindKey([cod]); cdsTeste.Edit; cdsTeste.FieldByName('COR').Value := 1; // valor que desejar cdsTeste.ApplyUpdates(0); cdsTeste.Close; Abraços

não tenho certeza mas acho que o ItemIndex começa com 0 então tenta assim: if DBComboBox1.ItemIndex = 5 then ShowMessage('Agora foi!'); Abraços

Tenta colocar isso num botão: ShowMessage(WebBrowser1.OleObject.Document.All.Tags('input').item('meucampo').text); P.S: mude o meucampo para seu respectivo campo input! Abraços

Tenta primeiro apagando as imagens e se não der certo você apaga o ToolBar e adicione-a novamente....

já passei por isso... você tem que readiciona-lo ao form e colocar as imagens novamente que deve resolver. Abraços

Utilize o evento DblClick do MonthCalendar, e coloque o seguinte código: procedure Tform1.MonthCalendar1DblClick(Sender: TObject); begin Label1.Caption := DateToStr(MonthCalendar1.Date); end; Abraços

Não, você pode fazer como eu te disse... checa se existe a pasta no destino, se não existir você cria, daí você pega e copia! dirFile1 := 'C:\Teste'; FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; StrECopy(p, PChar(dirFile)); //nome da pasta a copiar FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Application.Handle; Fo.wFunc := FO_COPY; Fo.pFrom := @Buffer; if not DirectoryExists(dirFile1 + '_1') then // checo se a pasta Teste_1 existe ForceDirectories(dirFile1 + '_1'); // Se não existe crio ela Fo.pTo := PChar(dirFile1 + '_1'); //copio para a pasta Teste_1 Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Erro a copiar ficheiro imagens') Faça o teste, creio que vai ser o que você precisa! Abraços

Deixa eu ver se entendi... você tem uma pasta C:\Teste, e no outro computador é C:\Teste_1, você gostaria de alterar o nome da pasta de Teste_1 para Teste ???

Tenta assim: dirFile1 := 'C:\Teste'; FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; StrECopy(p, PChar(dirFile)); //nome da pasta a copiar FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Application.Handle; Fo.wFunc := FO_COPY; Fo.pFrom := @Buffer; if not DirectoryExists(dirFile1 + '_1') then // checo se a pasta Teste_1 existe ForceDirectories(dirFile1 + '_1'); // Se não existe crio ela Fo.pTo := PChar(dirFile1 + '_1'); //copio para a pasta Teste_1 Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Erro a copiar ficheiro imagens') Abraços

Isso aqui tá que nem quarto de adolescente... uma bagunça... ops sou adolescente kkkkk Tem como dá uma explicada melhor nisso ae??? e se possível adicionar a tag Abraços

Você deve ter esquecido de copiar alguma Dll... verifique na pasta da aplicação! Abraços

Achei algo interessante... o Inno Setup é mt bom e agora vi que no site tem as fontes pra baixar!!! e são em delphi!!! segue o link do site: http://www.jrsoftware.org/isdl.php procura com atenção que você acha o link pra download das fontes! Abraços

Não que eu saiba... componente bom pra isso mesmo é aquele que comentei nos primeiros posts... pelo delphi tem como fazer mas é mt gambiarra ^^

nossa deu o mesmo erro que o seu aqui porém num relatório... e lá o problema era na query... onde será que está dando o problema aí... :( ... vou tentar pesquisar mais.... se eu encontrar algo falo pra vc! Abraços

putz meu chefe pegou a fonte e arrumou pra mim ^^, ele falou que não fez nada d+, apenas tinha algum erro na query... tenta postar sua query aqui!

aff, não posso te ajudar nesse caso pois fui abrir meu programa aqui e está dando esse mesmo erro ¬¬ alguém nos ajude, rsrsrsrs

Veja se isso te ajuda: http://scriptbrasil.com.br/forum/index.php...n+not+supported Abraços

Não tinha reparado que você faz isso no evento OnChange de um Edit, assim ele vai dar erros porque você usa o mesmo componente query, daí uma hora ele vai fechar e outra ele vai abrir, vai ficar num loop infinito pelo jeito... tenta assim: procedure TForm1.Edit4Change(Sender: TObject); var tabela : string; begin if (not RadioButton7.Checked) and (not RadioButton8.Checked) and (not RadioButton9.Checked) then bd.ADOQuery2.close else begin if RadioButton7.Checked then tabela := 'plv_chv'; if RadioButton8.Checked then tabela := 'rsm_lgl'; if RadioButton9.Checked then tabela := 'norma'; bd.ADOQuery2.close; bd.ADOQuery2.SQL.Clear; bd.ADOQuery2.SQL.Add ( 'Select * From tbl_legislacao Where ' + tabela + ' Like ' ); bd.ADOQuery2.SQL.Add(QuotedStr('%' +Edit4.Text+'%')); bd.ADOQuery2.open; DbGrid4.Refresh; end; end; Abraços

Você apenas está fazendo uma pesquisa quando um dos radiobox's estão marcados, porém você ainda deixa a query aberta, creio que você tem que fecha-la. Tente assim: procedure TForm1.Edit4Change(Sender: TObject); begin if RadioButton7.Checked then begin bd.ADOQuery2.Active := false; bd.ADOQuery2.SQL.Clear; bd.ADOQuery2.SQL.Add ( 'Select * From tbl_legislacao Where plv_chv Like ' ); bd.ADOQuery2.SQL.Add(QuotedStr('%' +Edit4.Text+'%')); bd.ADOQuery2.Active := true; DbGrid4.Refresh; end else bd.ADOQuery2.close; if RadioButton8.Checked then begin bd.ADOQuery2.Active := false; bd.ADOQuery2.SQL.Clear; bd.ADOQuery2.SQL.Add ( 'Select * From tbl_legislacao Where rsm_lgl Like ' ); bd.ADOQuery2.SQL.Add(QuotedStr('%' +Edit4.Text+'%')); bd.ADOQuery2.Active := true; DbGrid4.Refresh; end else bd.ADOQuery2.close; if RadioButton9.Checked then bd.ADOQuery2.Active := false; bd.ADOQuery2.SQL.Clear; bd.ADOQuery2.SQL.Add ( 'Select * From tbl_legislacao Where norma Like ' ); bd.ADOQuery2.SQL.Add(QuotedStr('%' +Edit4.Text+'%')); bd.ADOQuery2.Active := true; DbGrid4.Refresh; end else bd.ADOQuery2.close; Abraços

Sem componentes de terceiros você poderia fazer uma "gambiarra" colocando um botão e alguns panels e ir avançando eheheh

Tem jeito sim, é só você comprar a versão 2010 no site: http://www.qusoft.com/ ou então dar um "jeitonho brasileiro" ehehe Abraços

Bom dia pessoal! Tenho uma dúvida que a tempo me perturba e nunca achei o que realmente preciso... Tenho varios documentos word que uso com mascaras que pegam os dados do meu banco e funciona normal, porém as vezes preciso mandar essas cartas por email, e com mascaras não dá pois o cliente não vai ver os dados lá... então eu abro o word e vou em Mala Direta > Editar documentos individuais... daí ele abre outro word com o mesmo documento porém com os dados sem as mascaras!!! É isso que eu preciso, ou então um jeito de alterar o documento de word pelo mascara, exemplo: Word.FieldByName('igreja').text := 'testando'; alguém pode me ajudar?? Abraços