Jhonas

Colega... Va em Painel de controle / Sistema / Hardware / Gerenciador de dispositivos / Adaptadores de Video e desistale o que estiver la. ( use o botão direito do mouse para isto ) Voce deve fazer uma limpeza nos registros use o Easy-Cleaner para isto http://baixaki.ig.com.br/download/Easy-Cleaner.htm Deslique o micro, retire a placa de video e passe uma borracha macia nos contatos dos 2 lados, limpe e recoloque lique o micro, a placa de video devera ser reconhecida pelo windows e pedira para voce instalar os drivers que vêm com placa. Teste e depois diga o resultado. abraço

usando o delphi para uma rede local seria procedure TForm1.Button1Click(Sender: TObject); begin WinExec(PChar('NET TIME \\nome da maquina /set /yes'),SW_Normal); end; se for um servidor externo, a paleta de componentes IndyClients já tem um componente que faz isso, que é o IdSNTP, onde SNTP significa Simple Network Time Protocol, disponivel para o delphi 7 procedure TForm1.Button1Click(Sender: TObject); begin IdSNTP1.Active := True; repeat edit1.Text := FormatDateTime('dd/mm/yyyy hh:mm:ss', IdSNTP1.DateTime); Until (IdSNTP1.DateTime <> 0); end; Mais informações sobre o assunto: NTP significa Network Time Protocol ou Protocolo de Tempo para Redes. É o protocolo que permite a sincronização dos relógios dos dispositivos de uma rede como servidores, estações de trabalho, roteadores e outros equipamentos à partir de referências de tempo confiáveis. http://ntp.br/guia.html http://www.ntp.br/ntp.html http://ntp.br/utilizando.html abraço

Quando o tempo do relogio do windows (BIOS) for parado, voce não terá como contabilizar o tempo em que está usando, a não ser por um outro timer independente que estaria utilizando o processador para contabilizar o tempo, entretanto se por algum motivo o processador travar ou for exigido 100% de processamento, seu tempo vai ficar defasado. A solução seria então pegar o horario de um provedor ou um site, para ajustar novamente o relogio do windows voce pode usar o codigo acima para marcar o tempo inicial e para o tempo final voce chama um provedor para ajustar o horario do relogio abraço

Voce vai linkar ao componente YuSoftButton1 ao componente YuSoftLabel1 atraves da propriedade YusoftButton do proprio YuSoftLabel1 No YuSoftLabel1 existem as propriedades OnClickState , OnExtendedState e OnMouseEnterState com as cores definidas quando acontecer um destes eventos... não tem erro Abraço

Usando o Google Maps na Aplicação - Delphi 7 http://www.devmedia.com.br/articles/viewcomp.asp?comp=5540 Como calcular Latitude e Longitude http://scriptbrasil.com.br/forum/index.php...st&p=190855 Outro Exemplo http://www.koders.com/delphi/fid1A9B26A1DD...E220F6398D.aspx abraço

Veja neste endereço se ajuda. http://blog.digows.com/?p=44 abraço

Microsoft Developer Studio O Microsoft Visual Studio é um conjunto de ferramentas integradas para desenvolvimento de software, voltado para diversos públicos desde amadores a equipes corporativas. Esta seção é voltada para desenvolvedores de aplicações utilizando o Visual Studio, fornecendo artigos técnicos, dicas, truques e links úteis. http://www.microsoft.com/brasil/msdn/visua...io/default.mspx Exemplo http://dev.w3.org/cvsweb/libwww/WinCom/WinCom.rc?rev=1.13 abraço

Olhe na pasta ... \Yupack\Demo ... tem um exemplo mostrando como utilizar o botão abraço

Tente este codigo para deixar o Form transparente: Procedure TForm1.FormCreate(Sender: TObject); const WS_EX_LAYERED = $00080000; LMA_COLORKEY = $00000001; LMA_ALPHA = $00000002; type TLayerFunc = function(hwnd : HWND; crKey : COLORREF; bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall; var ExtStyle : LongInt; LayerFunc : TLayerFunc; LibHandle : HModule; begin LibHandle := LoadLibrary(user32); if LibHandle > 0 then begin LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes'); if Assigned(LayerFunc) then begin ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE); SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED); LayerFunc(Handle, rgb(255,0,0), 120, LMA_ALPHA or LMA_COLORKEY); end; FreeLibrary(LibHandle); end; end; abraço

Voce esta falando de delphi ou PHP ?? é um programa para internet ?? abraço

Não entendi direito.... porque somar um timer com outro ??? ou seria somar um tempo incial com um tempo final ??? e porque mostrar num showmessage se o timer o chamaria para a cada segundo para mostrar ??? voce tem que ser um pouco mais claro nas suas idéias se for para somar um tempo inicial com um tempo final ... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Timer2: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Button1: TButton; Label4: TLabel; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; TempoFinal, TempoInicial, Tempo : TTime; n : integer = 0; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=FormatDateTime('hh:nn:ss',Time); end; procedure TForm1.Button1Click(Sender: TObject); begin n := n + 1; if n = 1 then begin TempoInicial:=StrToTime(Label1.Caption); Label2.Caption:= TimeToStr(TempoInicial); end else begin TempoFinal:=StrToTime(Label1.Caption); Label3.Caption:= TimeToStr(TempoFinal); Tempo:= TempoInicial + TempoFinal; /// ou pode ser o tempo inical - o tempo final n := 0; end; Label4.Caption:= TimeToStr(Tempo); end; end. Abraço

Você pode instalar o Interbase Server em outra maquina ou pode colocar seguintes arquivos no diretorio c:\windows\system32 gds32.dll , midas.dll , dbexpint.dll talvez seja necessario registrar as dlls atraves do regsrvr32 Mais informações: http://scriptbrasil.com.br/forum/index.php...st&p=351324 ou procure no forum pela palavra gds32.dll abraço

Se estiver falando de DBGrid, voce pode usar o DBNavigator, botões proprios para o DBGrid ou pode ver este endereço: http://www.mail-archive.com/delphi-br@yaho...r/msg58360.html já se for um StringGrid ... veja este post https://www.scriptbrasil.com.br/forum/lofiv...hp/t101805.html abraço

Um exemplo Grid para Excel http://www.joaomorais.com.br/pascal/push.p...wnload=19639298 Criando planilhas do Excel com o Delphi http://blog.stiod.com.br/?p=57 abraço

Acho que é a mesma coisa, visto que tem quase que os mesmos componentes http://baixaki.ig.com.br/download/Lazarus.htm abraço

Da uma olhada neste post e veja se ajuda http://scriptbrasil.com.br/forum/index.php...st&p=440289 abraço

Existe um procedimento de desinstalação e instalação do indy neste forum mas leia tudo com calma, antes de fazer o procedimento .... onde aparecer indy substitua pela versão que voce esta usando http://forum.clubedelphi.net/viewtopic.php?t=57069 abraço

se voce não testar não vai saber ... abraço

o primeiro erro de lógica está em que voce não poderá digitar nada neste campo, pois este campo estará linkado a um registro da tabela. o segundo erro está na mensagem ('Digite o número da pedra!') ... digitar aonde ?? se voce esta comparando um campo vazio de sua tabela. voce deve primeiro definir sua tabela campos : Num_Pedra // definir o numero da pedra ex: 1,2,3,4,5.... etc Empresa // definir o nome da empresa para cada numero de pedra exemplo : 1 - EmpresaA 2 - EmpresaB 3 - EmpresaN ... etc Depois voce montará o codigo para verificar se o numero da pedra existe na tabela, ou se nada foi digitado if Edit1.Text = '' then begin ShowMessage('Digite o número da pedra!'); Edit1.SetFocus; exit; end; MinhaTabela.First; // apontar para o primeiro registro da tabela IF MinhaTabela.Locate('Num_Pedra',strtoint(Edit1.Text), []) THEN // varrer a tabela para achar o numero da pedra begin Form5.Show; // se encontrou exibe o Form com o nome da empresa end else begin ShowMessage('Este numero não existe na Tabela'); // se não encontrou Edit1.SetFocus; end; A lógica seria mais ou menos assim... sugiro voce ler mais para aprender. abraço

A versão do Iny que vem com o delphi 7 funciona perfeitamente, talves voce tenha que baixar outra versão do indy para o delphi 8... vai ai alguns endereços para baixar o arquivo OBS: lembre-se que para instalar outra versão do indy voce deve desinstalar a anterior primeiro http://www.indyproject.org/Sockets/fpc/indy-10.2.0.3.zip http://downloads.atozed.com/indy/indy10.1.5_d7.exe http://indy.fulgan.com/ZIP/ um exemplo parecido com o seu http://www.mail-archive.com/delphi-br@yaho...r/msg48683.html abraço

Colega, se voce não tem o conhecimento básico para programar em delphi, que tal dar uma olhada nestas apostilas e depois nos endereços que te passei no outro post ? http://www.portaldaprogramacao.com/apostilas.asp?c=10 abraço

Crie uma nova aplicação no dephi No form coloque um componente MonthCalendar1 da aba Win32 Ajuste as laterais do form para que fiquem juntas ao componente MonthCalendar1 No Form, altere a propriedade BorderStyle para BsNone, e a propriedade Position para poDesktopCenter Quando voce executar, o calendario ficara no centro do Desktop sem a possibilidade de minimizar Para fechar use o evento OnDblClick do componente MonthCalendar1 procedure TForm1.MonthCalendar1DblClick(Sender: TObject); begin Form1.Close; end; abraço

Fernando ... voce só me passou um botao que chama outro form onde está o código botão BUSCAR ? que irá buscar na tabela se existe aquele código. sem maiores detalhes fica dificil abraço

Não será porque faltou um ponto => IdSMTP1.BoundIP := '200.101.79.154'; IdSMTP1.AuthenticationType := atLogin; // tem que ser este se não, não faz a autenticação que o Bol precisa IdMessage1.Body.Add(Edit1.Text); //Corpo da mensagem ou usando um Memo IdMessage1.Body.Add(Memo1.Lines.Text); //Corpo da mensagem Mas foi exatamente o que te passei ... usando somente um botao e um edit abraço

Não vi nada parecido por enquanto, mas de qualquer maneira veja nestes endereços, acho que tem alguma coisa sobre o assunto: http://sourceforge.net/softwaremap/trove_l...hp?form_cat=574 http://www.chmod.com.br/vb/showpost.php?p=...mp;postcount=13 http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=831 abraço