Jhonas

tire o DBLookupComboBox1 e coloque uma variavel, e passe o valor do DBLookupComboBox1 para a variavel e execute a select abraço

veja o componente https://cc.embarcadero.com/Item/29034 ou https://www.google.com.br/?gws_rd=ssl#q=http://cc.embarcadero.com/item/29034 OBS: Links atualizados abraço

exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, Buttons; type TForm1 = class(TForm) txtPara: TEdit; txtAssunto: TEdit; mmoMsg: TMemo; BtnEnviar: TButton; IdSMTP: TIdSMTP; IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket; IdMessage: TIdMessage; LblPara: TLabel; LblAssunto: TLabel; LblMensagem: TLabel; LtbAnexos: TListBox; LblAnexos: TLabel; BtnAnexos: TSpeedButton; OpenDialog: TOpenDialog; procedure BtnEnviarClick(Sender: TObject); procedure BtnAnexosClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BtnEnviarClick(Sender: TObject); var xAnexo : Integer; begin IdSMTP.Host:= 'smtp.gmail.com'; IdSMTP.Port:= 465; IdSMTP.Username:= 'SEU USUÁRIO'; IdSMTP.Password:= 'SUA SENHA'; IdMessage.From.Address:= 'SEU E-MAIL@gmail.com'; IdMessage.From.Name:= 'SEU NOME'; IdMessage.Recipients.EMailAddresses:= txtPara.Text; IdMessage.Subject:= txtAssunto.Text; IdMessage.Body:= mmoMsg.Lines; for xAnexo := 0 to LtbAnexos.Items.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(LtbAnexos.Items.Strings[xAnexo])); IdSMTP.Connect(3000); Application.ProcessMessages; IdSMTP.Send(IdMessage); ShowMessage('certo'); IdSMTP.Disconnect; end; procedure TForm1.BtnAnexosClick(Sender: TObject); begin If OpenDialog.Execute Then LtbAnexos.Items.Add(OpenDialog.FileName); end; end.

exemplo http://www.wesk.info/textos/programacao/delphi/2.html abraço

se voce olhou no exemplo teedemo.dpr que esta na pasta Demo ( Teechart ) do delphi voce vai encontrar no botão ( show me the demo ) exatamente o que esta querendo fazer ... veja no primeiro exemplo ( Line / Strip ) voce pode selecionar as figuras ou substitui-las por um bitmap ( 16x16 ) abraço

db.startTarsacrion; db.StartTransaction; supondo que seja apenas um erro de datilografia, o erro estaria na chamada da impressão depois do commit abraço

pesquise no forum como usar o comando Winexec. abraço

a figura é um grafico de linhas ... tem um exemplo na pasta Demo do delphi ( Tchart ) se voce armazena os valores em uma tabela, fica mais facil ainda abraço

erro: instalação falhou, cheque o compilador para ver os detalhes verifique o arquivo Readme da instalação abraço

Coloquei como string, porque no meu computador não salva de forma alguma a data correta, em outro computadores, com meu mesmo programa, funciona. veja as configurações Regionais de seu Micro, a formatação de data pode estar diferente abraço

defina o campo da sua tabela como Data e depois quando chamar para o DBGrid já vem no formato de Data abraço

sua select não mostra nada no dbgrid ?

Tente rodar em modo de compatibilidade para ser se ocorre o erro abraço

voce tem que formatar o valor na entrada do DbEdit voce pode fazer assim, mas existem outros modos procedure TForm1.ediValorExit(Sender: TObject); var Valor : real; begin valor := StrToCurr(ediValor.text); ediValor.text := FormatFloat(',0.00',(Valor)); end; procedure TForm1.ediValorEnter(Sender: TObject); begin ediValor.text := '40'; ediValor.text:= FormatFloat(',0.00', strtofloat(ediValor.text)); end; abraço

Erro ao carregar o arquivo de configurações de Menu salvo anteriormente: Gostaria de excluí-lo? abraço

voce quer dizer que não grava nada no banco ou na sua select não mostra nada no dbgrid ?

procure separar as ações... ou seja, faça sozinho o select, depois sozinho o update e depois sozinho o insert e veja o resultado abraço

if (rbAvista.Checked = True) then BEGIN // tabela de parcelas se for avista // olha aqui.... você ta inserindo o registro sem abrir o data set dm.IB_PARCELA.Open; dm.IB_PARCELA.Insert; dm.IB_PARCELA.Edit; // Colocar o registro em modo de edição dm.IB_ParcelaCOD_VENDA.Value := dm.IB_VENDAS_SERVICOSCODIGO.Value; dm.IB_PARCELACOD_PRODUTO_SERVICOS.Value := dm.IB_PRODUTOS_SERVICOSCOD_PRODUTO_SERVICOS.Value; dm.IB_ParcelaVALOR_PARCELA.Value := strtoFloat(dbTotal.text); dm.IB_PARCELAFORMA_PAG.Value := 'A VISTA'; dm.IB_ParcelaSITUACAO.Value := 'Pago'; dm.IB_PARCELA.Post; dm.IB_PARCELACOD_PRODUTO_SERVICOS.Value := dm.IB_PRODUTOS_SERVICOSCOD_PRODUTO_SERVICOS.Value; verifique se a tabela esta aberta e apontando para o registro selecionado, caso contrário (o campo de cod_produtos ele fica null ) use o break point do delphi para debugar o código abraço

error reading_webCaptcha ExplicitWidth erro de leitura na web Largura de Captcha explícita em termos leigos significa que existe um erro de leitura no tamanho de uma imagem, já que ela tem um tamanho fixo em termos praticos seria dizer que o componente é para sistemas de 32 bits abraço

no IE9 voce deve mudar a resolução do video para que funcione corretamente abraço

andar de tras para frente ele já faz ... não é o contrário ? ( mas se for isso ele tambem faz .. só que volta apenas 3 frames por vez ) _root.gotoAndPlay(_root._currentframe-3); nesse link tem um tutorial completo ( em ingles ) http://animation.about.com/od/flashanimati...hlesson17_7.htm abraço

resposta no forum de delphi

reposta no forum de delphi

[Fatal Error]UFormCaptcha.pas(6): File not found: 'winapi.dcu' arquivo não encontrado: winapi.dcu procure por esse arquivo no seu micro e faça uma copia dele para a pasta lib do delphi se não encontrar, nesse link tem um pacote que contem esse arquivo ( 'winapi.pas') http://www.findthatzipfile.com/search-4635...oad-bp7-zip.htm abraço

acho uma excelente ferramenta para quem quer interagir com outras plataformas http://www.embarcadero.com/br/products/delphi abraço