[QRLabel em Tempo de Execução]

Substitua:

ac:= TQRLabel.Create(nil);

por

ac:= TQRLabel.Create(self);

e veja o que acontece.

Abraços

[Conexao Firebird Delphi 7]

Dê uma olhada nesse link:

http://imasters.uol.com.br/artigo/2169/int...ao_ao_firebird/

Abraços

[(Resolvido) Iniciar Aplicativo ao Ligar PC]

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

[Como alterar um dado clicando num Tbutton?]

você tem que colocar um TSQLQuery, um ClientDataSet e DataSetProvider, ligue-os e depois faça a query no Evento SQL do componente SQLQuery:

SELECT CODIGO, COR

FROM TABELA1

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

[(Resolvido) Componente DBcombobox]

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

[(Resolvido) Como Interagir o delphi com Páginas WEB para pegar valores]

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

[ToolButton delphi 2010]

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

[ToolButton delphi 2010]

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

Abraços

[(Resolvido) MounthCalendar]

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

[mudar nome de pasta a copiar de lado para outro]

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

[mudar nome de pasta a copiar de lado para outro]

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 ???

[mudar nome de pasta a copiar de lado para outro]

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

[mudar nome de pasta a copiar de lado para outro]

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

[(Resolvido) Componente Speller]

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

Abraços

[Como criar Instalador Delphi]

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

[Como criar Instalador Delphi]

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

[erro em campo lookup]

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

[erro em campo lookup]

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!

[erro em campo lookup]

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

[erro em campo lookup]

Veja se isso te ajuda:

http://scriptbrasil.com.br/forum/index.php...n+not+supported

Abraços

[(Resolvido) resultado de consulta]

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

[(Resolvido) resultado de consulta]

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

[Como criar Instalador Delphi]

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

[Quick Report com Delphi 2010]

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

[Como editar mascaras do Word?]

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