Jhonas

Estranho ... procure fazer uma comparação com as 2 e veja se voce deixou passar alguma coisa abraço

Acho que Tipo deveria ser: PCtel HSP56 MR 2.30-9K Para maiores esclarecimentos ou dúvidas envie um e-mail para Idealizado por: Valdomiro Emídio da Silva valdomiro.silva@terra.com.br sjp126391@terra.com.br abraço

Experimente usar Showmessage(inttostr(dm.QueryRelCaixa.recordCount)); abraço

Voce deve usar JOIN em tabelas Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...p;highlite=join abraço

Veja neste endereço http://www.bematech.com.br/suporte/dwn_fisc_windows.asp abraço

Exitem fontes que já tem o cabo proprio para alimentação do hd sata ... caso a sua fonte não tenha voce pode comprar este cabo ( Adaptador de HD Sata para fonte ) http://www.supri-bem.com.br/imagens/ml/cabosatafora.jpg Utilize pelo menos uma fonte de 550 watts para aguentar o conjunto http://www.interfacebus.com/SATA_Pinout.html abraço

Trabalho com manutenção de micros .... sugestão troque logo a sua fonte ( coloque uma de 450 watts e não tera mais problemas ) Isso é indicativo de excesso de poeira no eixo do cooler .. retire a proteção do eixo com cuidado, pingue 2 gotas de oleo de máquina e depois passe um pouco de vasilina branca e recoloque a proteção .... não fará mais barulho e o numero de rotações voltará ao normal abraço

Exemplos: http://scriptbrasil.com.br/forum/index.php...st&p=546491 abraço

Voce seguiu as instruções ? abraço

if OpenPictureDialog2.Execute then Valeu a dica Pirambu! abraço

Veja este exemplo e faça uma adaptação ao seu código deixar uma celula "piscando" no grid. var Form1: TForm1; posicao : TRect; cor : TColor; implementation {$R *.DFM} procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then begin With (Sender as TDbGrid).Canvas do begin Brush.Color := clBlue; FillRect(Rect); posicao:= Rect; end; end; DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); end; procedure TForm1.Timer1Timer(Sender: TObject); begin with DbGrid1 do begin if cor = clWhite then begin cor := clBlue; Canvas.Font.Color := clWhite; end else begin cor := clWhite; Canvas.Font.Color := clBlack; end; Canvas.Brush.Color := cor; Canvas.TextRect(posicao, posicao.Left + 2, posicao.Top + 2, DBGrid1.SelectedField.Text); end; end; abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...mp;highlite=web abraço

Use o componente OpenPictureDialog abraço

Veja neste endereço http://www.guiadohardware.net/comunidade/c...maquina/900785/ abraço

Montagem do cabo: http://www.boadica.com.br/layoutdica.asp?codigo=149 Montando uma rede e configurando ( apostilas ) http://www.apostilando.com/sessao.php?cod=17 abraço

isso é causado pela queima do transistor ou CI de deflexão vertical ... e neste caso somente efetuando a troca para solucionar o problema abraço

Pode ser por 3 motivos: 1 - voce não instalou os drives da placa mãe 2 - erro de leitura no arquivo de instalação 3 - erro de registro do windows abraço

Já resolveu ? mas a ideía basica esta correta : fiz uma função que passa 4 parametros: (CorComFoco, CorFontComFoco, CorSemFoco, CorFontSemFoco) Se voce passar os valores 0 e 1 para cada um dos parametros, voce pode testar estes valores dentro da função abraço

existem outros parametros que voce deve conhecer keybd_event(VK_INSERT,0,KEYEVENTF_KEYUP,0); abraço

Voce deve ter mais de um componente no form para não dar erro. experimente este exemplo: var Form1: TForm1; cont : integer = 0; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event ( VK_RETURN, 0, 0, 0 ); cont := cont + 1; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := true; edit1.SetFocus; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if cont <= 10 then // ficar inserindo 10 vezes algum texto begin if key = #13 then Edit1.Text := Edit1.Text + ' Texto;'; end else Timer1.Enabled := false; Edit1.Refresh; end; end. abraço

Não dá para advinhar o que voce está querendo fazer... http://imasters.uol.com.br/artigo/345/delp...coes_functions/ abraço

Acho que voce está querendo montar tipo uma tabela .... Veja se é isto que está querendo uses comobj; procedure TForm1.Button1Click(Sender: TObject); var Word: Variant; begin { Abre o Word } Word := CreateOleObject('Word.Application'); try { Novo documento } Word.Documents.Add; try { Adiciona tabela de 2 linhas e 3 colunas } Word.ActiveDocument.Tables.Add( Range := Word.Selection.Range, NumRows := 2, NumColumns := 3); { Escreve na primeira célula } Word.Selection.TypeText(Text := 'Linha 1, Coluna 1'); { Próxima célula } Word.Selection.MoveRight(12); { Escreve } Word.Selection.TypeText(Text := 'Linha 1, Coluna 2'); Word.Selection.MoveRight(12); Word.Selection.TypeText(Text := 'Linha 1, Coluna 3'); Word.Selection.MoveRight(12); Word.Selection.TypeText(Text := 'Linha 2, Coluna 1'); Word.Selection.MoveRight(12); Word.Selection.TypeText(Text := 'Linha 2, Coluna 2'); Word.Selection.MoveRight(12); Word.Selection.TypeText(Text := 'Linha 2, Coluna 3'); { Auto-Formata } Word.Selection.Tables.Item(1).Select; { Seleciona a 1º tabela } Word.Selection.Cells.AutoFit; { auto-formata } { Para salvar... } Word.ActiveDocument.SaveAs(FileName := 'c:\Tabela.doc'); finally { Fecha documento } Word.ActiveDocument.Close(SaveChanges := 0); end; finally { Fecha o Word } Word.Quit; end; end; abraço

http://www.codeproject.com/KB/IP/MessengerPrivateApi.aspx abraço

Nesta caso faça uma pesquisa no forum pela palavra word e veja o que encontra abraço

Claro que não .. eu coloquei um contador dentro do timer só para mostrar que ele vai ficar apertando a tecla Enter a cada meio segundo indefinidamente. procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event ( VK_INSERT, 0, 0, 0 ); cont := cont + 1; end; Não .. dentro do relogio ira a penas o comando: keybd_event ( VK_INSERT, 0, 0, 0 );