Churc

opa mostre-nos como você está chamando o evento pra escolher a imagem, porque da maneira que você diz não da pra saber se o erro é no evento ou no componente... abraços

opa acho que isso esclarece sua dúvida, se precisar de ajuda só falar... http://www.cryer.co.uk/brian/delphi/howto_...seforfolder.htm abraços

opa da sim, tipo, como você mesmo disse, é só passar o tamanho da tela, e usar a funcao bitblt que criar imagens a partir de canvas... exemplo, como você não quer usar forms, então só usar funções do windows para pegar tamanho da tela... uses JPEG; Function ScreenShot(const szSavePath: String): Boolean; var _bmp: TBitmap; begin _bmp := TBitmap.Create; _bmp.Width := GetSystemMetrics(SM_CXSCREEN); _bmp.Height := GetSystemMetrics(SM_CYSCREEN); Result := BitBlt(_bmp.Canvas.handle, 0, 0, _bmp.Width, _bmp.Height, GetDc(0), 0, 0, SRCCOPY); if (Result) then with TJPEGImage.Create do begin Assign(_bmp); CompressionQuality := 100; SaveToFile(szSavePath); Free; end; _bmp.Free; end; o resultado é false caso não seja possivel criar a imagem, e pra usar você passa o caminho que quer salvar a jpg... Você pode também nem usar o jpg, pode salvar direto como bmp usando a variavel _bmp, mas o tamanho da imagem será bem maior e qualidade a mesma. A qualidade do jpeg você pode ajustar em compreensionquality, 80 o tamanho diminui e a qualidade é praticamente mesma... ScreenShot('c:\teste.jpg'); abraços

opa legal kindelis, ajudando e aprendendo né :D

bcd = binary coded decimal tipo se for tquery, tente remover todos os campos da query e inserir denovo... ou converta uses fmtbcd; function IntegerToBcd( const aValue: Integer): TBcd; mas se o campo é inteiro tente o que falei, remover os campos e inseri-los novamente abraços

opa blzz tem 2 maneiras de se fazer isso... uma no evento onclosequery do seu form, você coloca canclose := (application.messagebox('Deseja mesmo sair do programa?','Confirmação', MB_YESNO or MB_ICONQUESTION) = idYes); outra é no evento onclose ai seria if (application.messagebox('Deseja mesmo sair do programa?','Confirmação', MB_YESNO or MB_ICONQUESTION) = idYes) then action := caFree else action := caNone; o ideal acho você usar no onclosequery... abraços

opa você pega a função como do banco de Dados? neste caso, use .asFloat para retornar o valor sem o R$ exemplo var r: Real; r := blablabla.FieldByName('Bla').AsFloat; abraços

Sobre o delphi fazer isto sozinho não acho possível, mas componentes podem sim fazer isso... E também arquivos .dof, .cfg armazenam estas configurações, por exemplo, você copiou arquivos de um outro projeto e jogou no seu, pouco provável mas não impossível auhauh abraços

manipule usando Real, Double Exemplo var r: Real; Quanto ao mudar os botoes não faço mínima ideia, talvez não seria conveniente você mesmo fazer uma janela específica para isto? abraços

vai em Projects/Options na aba Packages e desmarca "Build with runtime packages" seu exe vai aumentar de tamanho, mas não vai mais ser necessário esses packages *.bpl pois eles serão embutidos no .exe

nossa amigo está confuso o que você está falando, o que você quer fazer? a não ser que você queira desenvolver um componente para Delphi, ou uma nova classe de objeto... abraço

isso é usado na escrita de componentes, classes de objetos... Property = Propriedade vai aparecer no Object Inspector somente se você declarar como published... Salario: Double define o tipo da propriedade salario read FSalario write SetSalario quer dizer que quando você altera a propriedade Salario, "internalmente" no componente, ele grava as informações em FSalario, que é uma variável interna do componente, que normalmente é declarado em private somente pra ter controle de como está a variavel Salario setSalario já é uma procedure, é quando ao alterar a propriedade Salário é feito algo mais do que apenas gravar o valor a propriedade... entendeu meio por cima? ashuahusa Se quiser se aperfeiçoar, ou entender melhor, procure sobre como escrever componentes em Delphi. abraços

tem varias formas, se o form estiver no mesmo exe então voce pode fazer referencia ao form exemplo if not nomedoform.showing then ou seja, se não estiver sendo mostrado então... outra forma, é utilizando FindWindow, seria tipo assim, if (findwindow('tnomedoform', nil) <= 0) then ou seja, se for maior do que 0 ele achou a janela, sendo menor ou igual a zero não achou ai ele faz o codigo resumindo você usa forms auto criáveis sendo um form chamado Teste, a classe dele seria TTeste então você chamaria assim if (Teste = nil) then application.createform(tteste, teste); teste.show; agora se quiser impedir que ele seja aberto 2x if (Teste = nil) then application.createform(tteste, teste); if (not Teste.showing) then teste.show; entendeu mais ou menos auhahua maior bagunça escrevi abraço ai

pra adicionar em um memo por exemplo você faz memo1.lines.addstrings(GetMSNLogPaths); ahh só que pra interpretar os logs não vai ser tão fácil, eles vem em XML você teria que pegar alguma função que interpretasse XML ou fazer sua própria função para poder mostrar corretamente em por exemplo um richedit... abraços

cara eu não manjo muito bd pra te dar info detalhada, mas vai depnder do componente usado, dizem que é bom o ZeosLib www.zeoslib.net agora os que tiverem contra e souberem melhor da um toque ai abraços

http://v.mahon.free.fr/pro/freeware/memcheck uma unit que declarada na raiz do sua aplicacao (project/view source) como primeira unit, checa por buracos que sua aplicacao deixa na memoria (memory leaks), e gera um report com informações... pra sair informações detalhadas você deve habilitar o TD32 debug Info, em Project/Options, na aba Linker... habilite Include TD32 debug info Include remote debug symbols senão sai somente os endereços de mémoria e asm isso no delphi 6 em outros delphi não sei se é igual pra habilitar abraços

uses shlobj; SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); abraços

se quiser sumir com a mensagem de warning faça antes da linha {$WARNING OFF} Linha que aparece aqui {$WARNING ON} tenta WARNINGS se não for WARNING eu faço isso porque as vezes incomoda compilar e aparecer esses warnings que não afetam em nada auhahu abraços

uses inifiles; var ini: tinifile; begin ini := tinifile.create('caminho do arquivo.ini'); try webbrowser1.navigate(ini.readstring('site', 'httpreg', 'about:Erro')); finally ini.free; end; tipo isso ai, entendeu mais ou menos?

fera esse método, sei alguns outros mas todos mais complexos e dificil de decorar esse simples e funciona ;) vlw abs

if (Selected) then auxiliar.text := Item.caption; abraço

http://www.correios.com.br/servicos/cep/dne.cfm ?

BtnSalvar.Click ou BtnSalvar.OnClick(Self);

opa tente JP.Assign(Bitmap);

adicione Graphics, JPEG em uses abs