Jhonas

Veja no help do delphi abraço

a sua pergunta foi : estou te dando a sugestão de um equipamento para o que voce quer http://www.alibaba.com/product-free/108596...ransmitter.html abraço

verifique a propriedade DataField se tem o nome do campo e na propriedade DataSource se tem o nome do DataSource da sua tabela OBS: Dbcheckbox marcados e acinzentados, significa que não estão linkados a uma tabela pelo DataSource ou a tabela não esta aberta observe as propriedades dos outros Dbcheckbox que estão funcionando abraço

exemplo: procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then begin selectedindex := selectedindex + 1; CDS_Banco.Edit; case selectedindex of 1 : CDS_BancoCODCLI.AsInteger := CDS_CadcliCOD.AsInteger; 2 : CDS_BancoDATA.value := now; 3 : CDS_BancoDEPOSITOS.Value := 0.00; 4 : begin // comandos end; end; end; obs: conforme voce muda de coluna com a tecla TAB ( começando em 0 zero ) voce pode atribuir o valor que quiser as colunas referenciadas com os campos da sua tabela abraço

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

OBS: o comando SecondsBetween é do Delphi 7 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses DateUtils; {$R *.dfm} //Função converter Segundos para Horas function Seg_Hora( Seg:LongInt ):string; Var Hora,Min:LongInt; Tmp : Double; begin Tmp := Seg / 3600; Hora := Round(Int(Tmp)); Seg := Round(Seg - (Hora*3600)); Tmp := Seg / 60; Min := Round(Int(Tmp)); Seg := Round(Seg - (Min*60)); Result := FormatFloat( '00', Hora )+ ':' + FormatFloat( '00', Min ) + ':' + FormatFloat( '00', Seg ); end; procedure TForm1.Button1Click(Sender: TObject); var total : int64; ini, fim : TDateTime; begin ini := strtodatetime(Edit1.Text); fim := strtodatetime(Edit2.Text); total := SecondsBetween(ini,fim); Label1.Caption := 'Tempo Total : '+ seg_hora(total); end; procedure TForm1.FormActivate(Sender: TObject); begin edit1.Text := '13/10/2010 13:25:10'; edit2.Text := '14/10/2010 15:33:15'; end; end. abraço

A lógica é que o tempo total esteja em segundos, para facilitar o calculo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses DateUtils; {$R *.dfm} //Função converter Segundos para Horas function Seg_Hora( Seg:LongInt ):string; Var Hora,Min:LongInt; Tmp : Double; begin Tmp := Seg / 3600; Hora := Round(Int(Tmp)); Seg := Round(Seg - (Hora*3600)); Tmp := Seg / 60; Min := Round(Int(Tmp)); Seg := Round(Seg - (Min*60)); Result := FormatFloat( '00', Hora )+ ':' + FormatFloat( '00', Min ) + ':' + FormatFloat( '00', Seg ); end; procedure TForm1.Button1Click(Sender: TObject); var total : int64; ini, fim : TDateTime; begin ini := strtodatetime(Edit1.Text); fim := strtodatetime(Edit2.Text); total := SecondsBetween(ini,fim); // retorna o numero de segundos entre a data_hora inicial e a data_hora final Label1.Caption := 'Tempo Total Indisponivel : '+ seg_hora(total); end; procedure TForm1.FormActivate(Sender: TObject); begin edit1.Text := '13/10/2010 13:25:10'; edit2.Text := '14/10/2010 15:33:15'; end; end. abraço

Não é errado não .. por sinal muito pratica Impressora wireless A impressão wireless funciona muito bem. Ao fazer a configuração inicial da impressora, usando os softwares do CD fornecido com ela (ou disponíveis para download no site da HP), o usuário tem a opção de replicar automaticamente no equipamento as configurações (nome da rede sem fio, senha de acesso, etc.) da rede wireless 802.11 b/g do computador que estiver sendo usado para a operação, e a partir daí a impressora passa a estar disponível aos demais computadores com acesso à mesma rede, bastando instalar também neles os drivers. abraço

amigo, existem componentes prontos que fazem isso, no entanto são pagos se quer algo gratuito, voce mesmo pode criar um form nesse estilo, vai dar trabalho mas é possivel fazer. voce pode usar os seguintes componentes: Shape para definir as celulas Image para cada uma das celulas onde será armazenado a imagem referente ao dia Label para indicar o dia e o dia da semana ( ex: 3 SEGUNDA ) Button para mudar os meses ... para mudar os meses use como referencia um componente DataTimerPicker ou outro Imagens gif, jpg, bmp, png de tamanhos pequenos 48x48 Tabela para armazenar as configurações ( data - imagem ) o resto vai da sua imaginação abraço

jogo de tiro https://www.scriptbrasil.com.br/script/java...220Mission1.zip outras versões http://www.gamedev.com.br/forum/viewtopic.php?t=510 http://www.condadobraveheart.com/forum/ind...macao-controle/ abraço

é extamente isso que faz esse comando for Anexo := 0 to ListBox_anexos.Items.Count-1 do TIdAttachment.Create(IdMessage1.MessageParts, TFileName(ListBox_anexos.Items.Strings[Anexo])); para fazer do jeito que voce quer ficaria assim procedure TForm1.ListBox1Click(Sender: TObject); begin TIdAttachment.Create(IdMessage1.MessageParts, TFileName(ListBox_anexos.Items.Strings[ListBox1.itemindex])); end; abraço

Esse é um log de erros ... isso devido a não ter gerado um arquivo PostScript ... percebi que o erro é da dll então pode ignorar a dica ... testei aqui e deu o mesmo erro. -------------------------------------------------------------------------------------------------------- Outra sugestão gratuita: http://www.print-driver.com/sdk/examples/d.../WordToPDF.html http://www.print-driver.com/download/ Veja o Video Tutorial http://www.print-driver.com/promo/index.html --------------------------------------------------------------------------------------------------------- Outra possivel sugestão seria usar o TWordApplication com o Acrobat Distiller ( Impressora PDF ) veja o que consegue fazer abraço

tem outro nesse link, mas parece estar com problema http://webcache.googleusercontent.com/sear...=clnk&gl=br na net voce acha varios, mas são pagos abraço

me desculpe... mas me lembrei que para usar dessa maneira voce precisa ter instalado o acrobat distiller e o pdfmaker então tente esse ( componentes PowerPDF ) http://www.est.hi-ho.ne.jp/takeshi_kanno/powerpdf/ abraço

Leia a partir da pagina 151 desse Manual ( ingles ) http://www.blanchesoft.com/files/FR_UserManual-en.pdf abraço

exemplo: http://www.forumpcs.com.br/comunidade/viewtopic.php?t=95005 abraço

mais simples ainda: procedure TForm1.RadioGroup1Click(Sender: TObject); begin Edit1.Text := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; end; abraço

Baixe o AdobePDFMakerX.dll instale e use dessa maneira http://www.nodevice.com/dll/AdobePDFMakerX_dll/item1481.html exemplo: procedure TForm1.Button1Click(Sender: TObject); var Word1: TWord; begin Word1.ActivateWordAndAcrobat; Word1.CreatePDF('C:\test.doc','C:\test.pdf'); end; abraço

É bom sim ... http://www.go-global.com.br/racionalizacao.asp http://www.baixaki.com.br/download/go-global.htm abraço

veja esse link http://www.caiooliveira.com.br/?p=72 abraço

veja esses links http://www.apostilando.com/download.php?co...ategoria=Delphi http://www.baixaki.com.br/download/a-bibli...s-em-delphi.htm http://ultradownloads.uol.com.br/download/...ogos-em-Delphi/ http://www.baixatudo.com.br/biblia-da-cria...jogos-em-delphi http://www.planetadelphi.com.br/download/4...jogos-em-delphi abraço

se ainda ocorre ruidos de fundo é porque não existe aterramento do circuito da placa offboard, muito provavel que tenha perdido esse aterramento por algum componente queimado que não está mais fechando o circuito para o terra da placa mãe. para resolver esse problema voce deve levar o seu micro para um tecnico especializado abraço

voce tem desabilitar a placa onboard no setup da BIOS, se não não vai sair som na outra placa offboard abraço

já que o negocio é fazer com que 2 pessoas ao mais usem simultaneamente o seu sistema, veja essa sugestão: voce já ouviu falar em terminal burro ou terminal multi-usuários ? http://www.multiuser.com.br/si/site/0300 http://lista.mercadolivre.com.br/THIN-CLIE...-TERMINAL-BURRO acho que no seu caso seria a solução abraço

ao invés de utilizar 2 teclados, porque não usar um leitor de código de barras... voce pode criar uma nova instancia para cada código e ter o controle que voce precisa. abraço