Jhonas

O erro é porque voce não pode esconder o Form se ele ainda não foi criado exemplo: coloque o comando em um botão : Form1.Hide; Depois que o form é criado é que ele poderá ficar oculto abraço

No vista voce tem que dar permissão para que o delphi possa acessar e modificar o banco de dados Veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=577648 http://scriptbrasil.com.br/forum/index.php...st&p=577571 abraço

Basta usar o componente DBLookupComboBox, voce lista o campo de uma tabela e pode transferir para outra use as propriedades ListSource , ListField e KeyField para referenciar uma tabela e use as propriedades DataSource e DataField para jogar o valor do campo da primeira tabela para a segunda abraço

obs: a intenção é deixar o timer sempre ligado mas na hora trava, o degub aponta para a seguinte parte: procedure TForm1.Button2Click(Sender: TObject); var iall : IHTMLElement; begin button1.Click; if Assigned(emb.Document) then begin iall := (emb.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1.Text := iall.outerHTML; end; end; o button é controlado pelo timer que clika nele a cada 1 segundo voce está acionando pelo timer o button1 e o button2, entretanto o tempo necessario para a execução das rotinas está sendo maior que aquela que o timer dispõe experimente desabilitar o timer1 assim que ele começar procedure TForm1.Timer1Timer(Sender: TObject); begin timer1.Enabled:=false; button2.Click; timer2.Enabled:=true; end; abraço

Se o problema não for de sua placa de video, então o problema de ajuste esta no CI ( circuito integrado ) IC401 (H/V Sync Processor): STV9118 Caso precise do esquema desse monitor, vai achar neste link http://www.eserviceinfo.com/download.php?fileid=35091 abraço

Se voce quiser compartilhar a informação, os membros do forum agradecem abraço

Passe um exemplo pratico para poder esclarecer melhor a dúvida abraço

Veja esses posts http://scriptbrasil.com.br/forum/index.php...st&p=539505 http://scriptbrasil.com.br/forum/index.php...st&p=344216 http://scriptbrasil.com.br/forum/index.php...hlite=processos abraços

Exemplo de como pegar as janelas ativas do windows e pergar o nome de um objeto ou janela sob o cursor Faça uma adaptação para o seu uso unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Button1: TButton; ListBox1: TListBox; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; p: TPoint; i: THandle; implementation {$R *.DFM} Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall; var caption: Array [0..128] of Char; begin Result := True; if IsWindowVisible(Wnd) and ((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or (HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and ((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0) then begin SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption)); lb.Items.AddObject( caption,TObject( Wnd )); end; end; procedure TForm1.Timer1Timer(Sender: TObject); var y, x: integer; s: array [ 0..2047 ] of char; begin GetCursorPos ( p ); i := WindowFromPoint ( p ); Label1.caption := intToStr ( i ); Edit1.Text := intToStr ( i ); // Pergar o nome de um objeto ou janela sob o cursor y := strToInt ( Edit1.text ); GetWindowText ( y, s, x ); Edit2.text := s; end; procedure TForm1.Button1Click(Sender: TObject); begin // Pegar o nome das Janelas Ativas no Windows EnumWindows( @EnumWindowsProc, integer( listbox1 )); end; end. OBS: Conforme voce move o cursor para um objeto ou janela ativa do windows, o handle e o nome do objeto será mostrado no Edit1 e Edit2. para teste voce pode deixar o bloco de notas e a calculadora ativas e o seu programa com o form reduzido em um canto ... passe o mouse pelos objetos ou janelas e veja o que acontece abraço

voce linkou um DataSource ao TADOStoredProc ?

amigo, utilizo da maneira como te passei e funciona perfeitamente exemplo de como utilizo: SERVIDOR:C:\Teste\BancoDados\Dados.fdb esse erro acontece no caminho de rede: Unable to complete network request to host "Servidor". Failed to establish a connection. tambem acontece quando o windows não enxerga a rede ou não foi definida uma exceção para porta de comunicação do Firebird no micro SERVIDOR va em Painel de Controle > Firewall do Windows > clique na aba exceções > clique no botão Adicionar Porta > em Nome digite Firebird Server > e em Numero da Porta digite 3055 e clique no botão OK abraço

Faça um teste com o código acima e especifice os campos que voce quer na select e veja se funciona abraço

Não parece estar.... eu considero dessa maneira como se fossem dois data modules distintos dm.SPAtualiza_Situacao dm.qryconsulta_ver_coberturaCodigo_Animal.AsInteger abraço

Observe que na placa existe um dissipador de calor ..... se o aquecimento é maior que a dissipação de calor, o pc trava para evitar a queima do circuito por excesso de calor. http://img.mercadolivre.com.br/jm/img?s=ML...852.jpg&v=O voce pode adpatar um cooler ao circuito ... veja imagem http://img90.imageshack.us/img90/3286/dsc00521gf6.jpg se conseguir um cooler menor fica melhor http://images02.olx.com.br/ui/1/27/29/13571829_1.jpg abraço

coloque o código completo para podermos analisar abraço

acho que tem algo errado..... voce esta usando o mesmo IP da dica e o nome SERVIDOR onde está o nome SERVIDOR deve ser o nome do micro onde está a sua base de dados ou o numero do IP atual nesse micro abraço

Só para teste, tente assim: var Cod_Animal : integer; with dm.SPAtualiza_Situacao do begin Cod_Animal := dm.qryconsulta_ver_coberturaCodigo_Animal.AsInteger; Parameters.ParamByName('@Codigo_Animal').Value:= Cod_Animal; Parameters.ParamByName('@Codigo_Situacao').Value:= situacao_vaca_lac_coberta; ExecProc; end; Se não funcionar, sugiro voce a colocar a query no mesmo Data Module ( dm.SPAtualiza_Situacao ) . abraço

Existe sim é a senteça With abraço

Veja a mudança no código procedure TFrmContasPagar.Button2Click(Sender: TObject); const ALFA = 'ABCDEFGHIJKLMNOPQRSTUVWXZ'; var parcela,resposta,i:integer; fornecedor,referencia,documento,portador,observacao:string; valorconta,jurosN,multaN,juros,multa:real; dataconta, datavenc:Tdatetime; begin resposta := 0; if (dmdados.IbContasPagar.State in [dsinsert] ) then begin showmessage ('Salve os dados antes para gerar as parcelas'); abort; end else resposta := Application.MessageBox('Deseja gerar as parcelas dessa conta ?','Confirma?',4); if resposta = 6 then begin dmdados.IbContasPagar.Edit; if Trim(DbParcela.Text) = '' then begin showmessage ('Informe a quantidade de parcelas.'); DbParcela.SetFocus; abort; end; i := 1; dataconta := dmdados.IbContasPagarPAGAR_DATACONTA.Value; referencia := dmdados.IbContasPagarPAGAR_REFERENTE.Value; fornecedor := dmdados.IbContasPagarPAGAR_FORNECEDORNOME.Value; documento := dmdados.IbContasPagarPAGAR_DOCUMENTO.Value; valorconta := dmdados.IbContasPagarPAGAR_VALORCONTA.Value; datavenc := dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value; jurosN := dmdados.IbContasPagarPAGAR_JUROSNUMERO.Value; multaN := dmdados.IbContasPagarPAGAR_MULTANUMERO.Value; juros := dmdados.IbContasPagarPAGAR_JUROS.Value; multa := dmdados.IbContasPagarPAGAR_MULTA.Value; portador := dmdados.IbContasPagarPAGAR_PORTADOR.Value; observacao := dmdados.IbContasPagarPAGAR_OBSERVACAO.Value; parcela := dmdados.IbContasPagarPAGAR_QUANTPARCELA.Value; dmdados.Ibcontaspagar.post; while i <= parcela do begin dmdados.ibContaspagar.insert; dmdados.IbContasPagarPAGAR_DATACONTA.Value := dataconta; dmdados.IbContasPagarPAGAR_REFERENTE.Value := referencia; dmdados.IbContasPagarPAGAR_FORNECEDORNOME.value := fornecedor; documento = documento + '-' + ALFA[i]; dmdados.IbContasPagarPAGAR_DOCUMENTO.Value := documento; dmdados.IbContasPagarPAGAR_VALORCONTA.value := valorconta; dmdados.IbContasPagarPAGAR_JUROSNUMERO.Value := jurosN; dmdados.IbContasPagarPAGAR_MULTANUMERO.Value := MultaN; dmdados.IbContasPagarPAGAR_JUROS.Value := juros; dmdados.IbContasPagarPAGAR_MULTA.Value := multa; dmdados.IbContasPagarPAGAR_PORTADOR.Value := portador; dmdados.IbContasPagarPAGAR_OBSERVACAO.value := observacao; dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value := incMonth(datavenc,(1)); datavenc := dmdados.IbContasPagarPAGAR_DATAVENCIMENTO.Value; dmdados.IbContasPagar.Post; showmessage ('Parcela gerada'); Inc(i); end; abraço

Será que voce procurou da maneira correta ? http://scriptbrasil.com.br/forum/index.php...=janelas+ativas abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=577648 abraço

Com relação ao erro coloque a FBClient.dll na mesma pasta do seu executavel (ou na pasta system32 do windows, caso prefira). Se for na do executavel da sua aplicaçao: coloque esse código no evento OnCreate do Data Module que contem o SQLConnetion: SQLConnection.VendorLib := ExtractFilePath(Application.ExeName) ''fbclient.dll''; Esse erro tambem pode ser caudado por compatibilidade do dbExpress para acesso ao Firebird. http://www.devmedia.com.br/articles/viewcomp.asp?comp=971 abraço

Veja a dica que voce mesmo indicou: então a sua path ficaria: SERVIDOR:C:\Ferramentaria\VMS\ControleManutencao\V3.0\Ferramentaria\BancoDados\BancoDados.fdb abraço

essas váriaveis são alimentadas por dados de uma tabela... eu dou um close e open da query pra atualizar a tabela e chamo os dados que eu quero pras variaveis respectivas... porque fazer dois trabalhos ... porque não usar a propria variavel definida na tabela ? tem algo haver eu utilizar essas variaveis para alimentar campos do banco de dados? há alguma restrição quanto a isso??? Não existe restrição, voce deve somente tomar cuidado na implementação do código voce vai encontrar exemplos nos links que indiquei abraço

exemplo: CREATE procedure spAlterarCadastro ( @nomeProcura nvarchar(100) , @nome nvarchar(100) = NULL , @dataNascimento datetime = NULL , @sexo nvarchar(10) = NULL , @numID varchar(10) = NULL ) AS UPDATE Cadastro SET nome = IsNull(@nome, nome) , dataNascimento = IsNull(@dataNascimento, dataNascimento) , sexo = IsNull(@sexo, sexo) , numID = IsNull(@numID, numID) WHERE nome = @nomeProcura Outras fontes de informação: http://www.oficinadanet.com.br/artigo/177/...ored_procedures http://www.linhadecodigo.com.br/Artigo.aspx?id=891 http://www.ebah.com.br/busca.buscar.logic?...red%20Procedure http://www.vclcomponents.com/s/0__/sql_ser...cedure_tutorial OBS: Tente se basear no exemplo para descobrir onde está o erro no seu código abraço