Churc

tem um artigo interessante sobre como criar componentes no delphi http://www.imasters.com.br/artigo.php?cn=343&cc=49 abraços

não tenho certeza mas de uma olhada no menu Project / Options / Packages (esse afeta só o projeto) e também no menu Component / Install Packages (esse afeta qualquer projeto) veja se está marcado "Build with runtime packages" se estiver desmarque... Note que o tamanho do .exe da sua aplicação vai aumentar... porém você não vai mais precisar das .bpl "acredito" que seja isso, nunca passei por isso mais já vi em algum lugar falando sobre abraços

explica isso direito... huehu

TranspearXP

!bola.zip: Unexpected end of archive o zip ta corrompido dessa maneira q você fez vai deixar rastro mesmo porque você esta redesenhando emcima, ou seja, vai continuar com a mesma imagem e mais a q você adiciona, tenta limpar o timage primeiro e ai desenhar na nova posicao exemplo no onCreate do form você coloca: nomedoform.doublebuffered := true; //botão para cima imagetotal.picture.assign(nil); imagetotal.Canvas.Draw(x,y-5,Image1.Picture.Graphic); y := y-5; //botão para baixo imagetotal.picture.assign(nil); imagetotal.Canvas.Draw(x,y+5,Image1.Picture.Graphic); y := y+5; //botão para a direita imagetotal.picture.assign(nil); imagetotal.Canvas.Draw(x+5,y,Image1.Picture.Graphic); x := x+5; //botão para a esquerda imagetotal.picture.assign(nil); imagetotal.Canvas.Draw(x-5,y,Image1.Picture.Graphic); x := x-5; abraços

nome_da_imagelist.draw(nome_da_image.canvas, 0, 0, index_da_imagem_na_imagelist);

StringToColor(string); exemplo: label1.caption := 'clRed'; label1.font.color := StringToColor(label1.caption); abraços

tem sim você teria q exportar os dados do banco de dados delphi, q alias você não falou qual banco de dados é.... exportar em arquivos de texto por exemplo, usando separadores e ai fazer em php ou até mesmo em delphi, um programa que leia o arquivo de texto exportado e crie/insira no banco de dados mysql os dados exportados... entendeu?

Muniz faz o seguinte, clica no Menu Project / View Source abaixo de Application.Initialize; coloca Application.ShowMainForm := false; ai no evento OnCreate do form, só pra garantir você faz with NomedoForm do begin Height := 0; Width := 0; Top := 0; Left := 0; end; abraços

tipo, é para tratar o erro, exemplo, se der esse erro e você quiser passar algo pro usuário, tipo uma mensagem ou fazer alguma coisa como por um valor padrão por exemplo ai você usa isso exemplo Try If StrToFloat(DBEdit13.text) > 110 then DBEdit13.font.color:=clRed else DBEdit13.font.color:=$00845B33; Except on EConvertError do DBEdit13.text := '0'; End; ou qualquer coisa q você queira passar pro usuário ao acontecer este erro...

quem seria o loko de scannear ou mesmo digitar rsrs sai mais barato comprar o livro eheh lol

você teria que relacionar algo tipo, quando um produto é vendido, na tabela de produtos que você criou tem algum campo que "identifique" qual cliente comprou o produto? exemplo Tabela Cliente Cliente: Joao Augusto ID: 0001 Tabela Produtos vendidos Produto: Coca-Cola ClienteID: 0001 tendo isso, ai é só você dar um select, relacionando os campos que você vai querer que apareça na tabela com a lista de pedidos de clientes onde o ID do cliente é igual ao ID do cliente selecionado... mais ou menos isso, entendeu? abraços

ae rapaz blzz adicione em uses Math o retorno é string, ai você muda conforme necessidade... //Decimal para Hexadecimal function dectohex(valor: string): string; var val: integer; begin try val := StrToInt(valor); Result := IntToHex(val, Round(log2(val)) div 4); except Result := 'Erro'; end; end; //Hexadecimal para Decimal function hextodec(valor: string): string; begin try Result := IntToStr(StrToInt('$' + valor)); except Result := 'Erro'; end; end; abraços

pra facilitar na programação você pode usar também Flags, ao invés de números exemplo... //Erro MessageBeep(MB_ICONERROR); //Informação / Exclamação MessageBeep(MB_ICONINFORMATION); vale lembrar que MessageBeep(32); que seria o som relacionado a pergunta não funciona em todos os windows... o correto seria //Pergunta MessageBeep(MB_YESNO); e por ai vai... não muda nada a não ser a facilidade porque ficar decorando o número de um determinado som é foda eheh abraços

tipo isto? Result := 'R$' + Formatfloat('###,###,##0.00', 5); vai ficar = R$ 5,00 abraços

olha eu tentei aqui também não consegui... tava dando uma olhada no site da borland, e vários tiveram este problema, e não conseguiram, dizem por causa do acesso ao registro, os privilégios não são suficientes, e parece que só funciona no win9x o que você pode fazer é uma procedure que cria o arquivo, tipo uma engine, que enumera todas as chaves e vai gerando os valores numa string list, com o mesmo formato de um arquivo .reg e depois da um savetofile e salva como arquivo.reg abraços

que? explica isso direito amigo

cara aprende fuçando, é difícil encontrar tutoriais deste tipo... ao menos que você tentar na página do desenvolvedor deve ter http://www.installshield.com/

abre o help do delphi tem tudo isso e mais abraços

ahh ta certo foi mal tava confundindo com messagebox rsrs então, modifiquei aqui e funciono normal com o novo caption tem 2 partes parecidas... essa: SOKButton = 'OK'; SCancelButton = 'Cancelar'; SYesButton = '&Sim'; SNoButton = '&Não'; SHelpButton = '&Ajuda'; SCloseButton = '&Fechar'; SIgnoreButton = '&Ignorar'; SRetryButton = '&Repetir'; SAbortButton = 'Abortar'; SAllButton = '&Todos'; e essa... SMsgDlgWarning = 'Atenção'; SMsgDlgError = 'Erro'; SMsgDlgInformation = 'Informação'; SMsgDlgConfirm = 'Confirme'; SMsgDlgYes = '&Sim'; SMsgDlgNo = '&Não'; SMsgDlgOK = 'OK'; SMsgDlgCancel = 'Cancelaaaaa'; SMsgDlgHelp = '&Ajuda'; SMsgDlgHelpNone = 'Ajuda não disponível'; SMsgDlgHelpHelp = 'Ajuda'; SMsgDlgAbort = '&Abortar'; SMsgDlgRetry = '&Repetir'; SMsgDlgIgnore = '&Ignorar'; SMsgDlgAll = '&Todos'; SMsgDlgNoToAll = 'N&ão para todos'; SMsgDlgYesToAll = 'S&im para todos'; ah que você tem q alterar é a segunda... com o inicio dos nomes SMsgDlg eu alterei e apenas salvei, criei uma nova aplicação e o cancela ficou igual especifiquei... da uma verificada ai abraços

estranho não é? amigo dar esse erro, tenta sei lá dar outro nome ao componente de RxMemoryDataConferenciasConferente que parece uma frase para tipo RxMemDtCfc auhahu como o erro é incomum ou seja, aparentemente não era pra dar o erro, então tente coisas que parecem anormais abraços

até onde eu sei os dialogo de mensagem não é padrão do delphi e sim do windows, ou seja, quem emula os captions dos botões é o windows resumindo... você não poderia alterar mais veja bem, não tenho certeza pode ser q tenha mais acredito que não... abraços

?

opa ajudo sim, tipo eu li seu outro tópico que dizia o porque você queria isso... então eu fiz pra você o programinha, ai você acerta conforme sua necessidade... Já fiz com tempo e tal, você coloca a hora, ele executa o discador e conecta mais veja bem, eu baixei a última versão do Discador no site, então acho melhor se você não usa essa versão baixá-la... Outra coisa, se você mudar o diretório de instalação, então na constante DiscadorPath = você muda o caminho onde tá instalado... se usar a padrão já ta certo... O que você tem que fazer é, colocar a hora e o minuto na qual você quer que o programa auto conecta, exemplo, por padrão já deixei 00:00 ou seja, meia noite... ai quando dá meia noite, o programa abre o discador, conecta e se fecha automaticamente.... só não esqça de clicar em ativar eheh testei aqui funciona normal, Windows XP... acredito que não tem nenhum problema se usado em outros windows.... baixa o source ai e compila, e muda conforme sua necessidade... IG Auto Dialer by Churc - RapidShare.de espero ter ajudado abraços

cara até da mais é bem complicado, você teria que pegar o nome da classe da janela do discador, e a classe do botão que faz a conexão.... ai você teria de enumerar os objetos dentro da janela do discador, armazenar o handle do botão de conectar em uma variável tipo assim... Como pegar a classe dos objetos de uma determinada janela? Existe vários programinhas que fazem isso, eu recomendo o Greatis WinDowse procura em sites de download ou sites de busca, qualquer coisa manda mensagem que te envio este exemplo seria pra simular um clique do mouse emcima do botão conectar do discador, segundo o que você disse acho q seria isso não é?.... adicione essas variáveis globais var ConectaBtn: HWND; buff: Array[0..1024] of Char; implementation function EnumChildProc(Child : HWND): Boolean; Export; Stdcall; var TempStr : String; begin //Captura nome da classe de cada objeto da janela //ou seja, pega edits, botoes, imagens etc GetClassName(Child, buff, SizeOf(buff)); TempStr := StrPas(buff); //Agora aqui você teria que saber o nome da classe //do botão de conectar, vamos supor q a classe seja TIgBtn //ai é armazenado na variável ConectaBtn o Handle do botão if UpperCase(TempStr) = 'TIGBTN' then ConectaBtn := Child; Result := True; end; Agora pra testar, adiciona um botão no form, no onClick você faz tipo procedure TForm1..... var discador: HWND; BtnPoint, AtualPoint: TPoint; R: TRect; Largura, Altura: integer; begin //Para armazenar o handle da janela na variavel discador //você teria que saber ou o Caption da janela do discador //ou a classe da janela então usa-se... discador := FindWindow(CLASSE_AQUI,ou CAPTION da JANELA AQUI); //você pode colocar a classe e o caption ou só um deles, to explicando atoa talvez você saiba mais de qualquer modo auheuae //Se achar a janela do discador... então... if (discador > 0) then begin //Enumera os objetos da janela e se achar a classe do botao //que você especificou na funcão enumchildproc então //vai ser armazenado na variavel ConectaBtn o handle do botao EnumChildWindows(discador, @EnumChildProc, LongInt(Self)); //agora ativamos a janela, ou seja, pra simular um clique //do mouse no botão conectar SetForegroundWindow(discador); //Zera as variaveis da posição do botão conectar para evitar conflitos //não é necessário BtnPoint.X := 0; BtnPoint.Y := 0; //captura a posição do botão conectar em relação a tela Windows.ClientToScreen(ConectaBtn, BtnPoint); //captura as dimensões do Botão Conectar GetWindowRect(ConectaBtn, R); OffsetRect(R, -R.Left, -R.Top); Largura := R.Right - R.Left; Altura := R.Bottom - R.Top; //armazena a posição atual do mouse, para poder voltar na posição //onde estava GetCursorPos(AtualPoint); //Coloca a seta do mouse emcima do botão conectar SetCursorPos(BtnPoint.X + (Largura div 2), BtnPoint.Y + (Altura div 2)); GetCursorPos(BtnPoint); //simula o click do mouse emcima do botão conectar Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, BtnPoint.x, BtnPoint.y, 0, 0); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, BtnPoint.x, BtnPoint.y, 0, 0); //retorna a seta do mouse na posição onde estava SetCursorPos(AtualPoint.X, AtualPoint.Y); end else //Se ele não achar a janela do discador, ou seja, provavelmente o discador não está aberto, então você pode abrir ele, apenas coloque o caminho correto tipo... WinExec(PChar(Caminho do Discador aqui)), SW_SHOWNORMAL); Vale lembrar que esse processo é rápido, o usuário nem percebe o movimento do mouse, é claro, só se o computador for uma carroça eheh espero q isso ajude, talvez não fosse exatamente isso que você queria fazer mais foi o que eu entendi... abraços