Douglas Soares

:blink: Tenta assim: procedure TOrca.Edit1Exit(Sender: TObject); begin if RadioGroup1.Focused then Abort else edit1.text := dm.sqlclientenome.asstring; end; Abraços

Não entendi... você tá querendo colocar informações de um combobox num dbgrid, é isso?

Poste o código da Thread por favor :rolleyes:

Ou simplesmente usar a mesma função passando parametros: procedure Controle_Campos(Ativo : Boolean); var X: Integer; begin for x := 0 to frmTal.ComponentCount - 1 do if frmTal.Components[X] is TEdit then TEdit(frmTal.Components[X]).Enabled:= Ativo else if frmTal.Components[X] is TLabel then TLabel(frmTal.Components[X]).Enabled:= Ativo else if frmTal.Components[X] is TMemo then TMemo (frmTal.Components[X]).Enabled:= Ativo end; Para Ativar: Controle_Campos(True); Para Desativar: Controle_Campos(False); Abraços

Esse erro acontece muito comigo ¬¬, é um saco, faz o seguinte... Creio que a sua thread continua sendo executada quando você fecha o programa, por isso ele dá o erro ao fechar pois ela tenta acessar os componentes de um form que não existe mais... tente para-la no OnClose do form que deve resolver o problema! Abraços

Você vai precisar do component ZipMaster, porém ele usa 2 Dlls, uma pra compactar e outra pra descompactar, não conheço nenhuma outra forma de fazer isso sem ser por dll ou componente. Segue o link do fórum para o componente ZipMaster: http://scriptbrasil.com.br/forum/index.php...hlite=zipmaster Abraços

Tentar deixar a opção doNodeAutoIndent como TRUE e faça o teste. Abraços

Olá, O que Significa isso??? você está associando o texto do DBEdit aos campos... você tem q editar a propriedade DataSource dos DBEdits e o Field para os respectivos campos, dps disso você coloca isso no botão alterar: MeuCds.Edit; E isso no botão salvar: MeuCds.ApplyUpdates(0); Abraços

Dê uma olhada nesses links: http://www.brandonstaggs.com/2007/07/26/im...stem-in-delphi/ http://www.activedelphi.com.br/modules.php...r=0&thold=0 Creio que um deles vai te ajudar! Abraços

Vá Em Tools > Environment Options > Library. Abra a Library Path e adicione o caminho para a fonte do componente ZipMaster, feito isso dê OK e tente compilar sua aplicação novamente. Abraços

Dê uma olhada nesses links: http://delphi.about.com/cs/adptips2000/a/bltip1200_5.htm http://forum.codecall.net/tutorials/34035-...elphi-code.html http://www.experts-exchange.com/Programmin...Q_21504230.html Com um desses links você conseguirá o que precisa! Abraços

Boa tarde. Sei que estou ausente do fórum e não estou cumprindo muito com minha obrigação, o problema é que a empresa que trabalho é do meu pai e ela está crescendo muuito, não estou tendo tempo pra nada, nem pra ir na escola as vezes... podem retirar meu cargo de moderador se acharem melhor, tenho mais 3 projetos pra concluir antes de sequer pensar em postar novamente, mas juro que mesmo se eu não for mais moderador eu volto a postar assim que concluir os projetos aqui... vamos ao que interessa! Estou tendo muitos problemas com UAC e com o Internet Explorer na questão de arquivos e origem de arquivos e blá blá blá, quero comprar um certificado digital para meus aplicativos e adicionar neles, gostaria que me indicassem um site confiável para tal compra e se possível gostaria de saber também como integrar esse certificado a cada um de meus executaveis... nunca fiz esse tipo coisa e estou perdido... Obrigado pela atenção!!!

Você pode usar o comando que te passei com componentes de terceiros mas para isso você tem que abrir seu projeto no delphi e ir em Project>Options, depois vai em Directories/Conditionals e clique nos 3 pontinhos do "Search path" e adicione cada pasta de componentes de terceiros que deseja utilizar! Abraços

Eu utilizo esse código para compilar meus projetos e funciona normalmente: dcc32 -B -u C:\Projeto\Projeto.dpr -Q -W-UNIT_PLATFORM Abraços

Declare a Uses: Tlhelp32 Implemente a função: function Tform1.ProcessoExiste(ExeFileName: string): boolean; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32}; begin result := false; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then begin Result := true; exit; end; ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; Depois faça a checagem: if ProcessoExiste('MeuPrograma.exe') then ShowMessage('Uhull to aberto') else WinExec (pChar('MeuPrograma.exe'), SW_MAXIMIZE); Abraços

Sua dúvida já foi respondida em outro tópico que você abriu, por favor não crie tópicos repetidos sem antes mesmo consultar se já responderam outro! http://scriptbrasil.com.br/forum/index.php?showtopic=153952 Abraços e estou fechando o tópico para futura remoção em 2 dias!

Dê uma olhada nesse link: http://delphi.about.com/cs/adptips2001/a/bltip0801_2.htm Abraços

Tenta assim: var tam : Integer; begin RichEdit1.Text :=RichEdit1.Text+' Texto que será imprimido no RichEdit'; tam := RichEdit1.Lines.Count; SendMessage(RichEdit1.Handle, EM_LINESCROLL, 0, tam); end; Abraços

Bom dia, estou com um sério problema no meu pc, estou a 2 dias tentando fazer funcionar um foninho ou caixa de som no pc, quando eu coloco nele ele continua saindo som no notebook e não no fone/caixa de som, no desespero instalei/desinstalei drivers e nada.... daí apelei e puis pra atualizar a BIOS.... só que dai o windows não ligou mais, daí fui no console de recuperação tentei reparar e nada.... percebi que o windows automaticamente trocou as letras das unidades, estava assim: C: (Windows) - D: (system reserved), passou a ficar assim C: (system reserved) - D: (Windows), imaginei que fosse esse o problema dele não ligar mais... daí fui lendo uns sites e coloquei o CD do win7, fui na parte de partições e apaguei a partição system reserved pra ver se o windows voltava a ser C:.... até aí beleza, ele voltou, só que daí perdeu todo o boot e não liga mais nem a pau... como eu recupero a partição do sistema ou o boot? tem como eu reparar o windows 7 que nem o XP?, dá pra eu reinstalar o windows 7 sem formatar ou perder dados algum? Espero que possam me ajudar... Obrigado!

Sabendo o caminho do arquivo que você abriu, você pega e salva ele sem o dialogo, assim: SynEdit1.Lines.SavetoFile(caminho_arquivo); SynEdit1.SetFocus; Na hora de fechar você pode perguntar se quer salvar, coloca isso no evento OnCloseQuery: var flags : integer; begin flags := Application.MessageBox('Deseja salvar as alterações?', 'Salvar', MB_YESNOCANCEL); if flags = ID_NO then Application.Terminate; if flags = ID_YES then begin if caminho_arquivo <> '' then begin SynEdit1.Lines.SavetoFile(caminho_arquivo); SynEdit1.SetFocus; end else begin if Savedialog1.Execute then begin SynEdit1.Lines.SavetoFile(Savedialog1.FileName); SynEdit1.SetFocus; end; end; Application.Terminate; end; if flags = ID_CANCEL then Abort; end; Abraços

Feche o processo de quem o está usando ou utilize esse programa pra desbloquea-lo e assim poder apagar: http://www.baixaki.com.br/download/unlocker.htm Abraços

Dê uma olhada nesse link: http://www.activedelphi.com.br/forum/viewt...de733e1e6777445 Abraços

A Primeira coisa a fazer é testar se sua Webcam está funcionando, tente abrir um programa externo ou o próprio software dela..

Qual banco de dados você utiliza?

Reparei que tem um espaço à mais na sua query, então tente assim: Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT Campos FROM TABELA WHERE CampoData = :Data'); Query1.Parameters.ParamByName('Data').AsDateTime := MonthCalendar1.Date; Query1.Open; Abraços