Re: [delphi-br] DbCtrlGrid
Tem duas propriedades AllowInsert, AllowDelete, seta elas para false espero ter ajudado falow 2009/8/6 Arrobba Sistemas del...@arrobbasistemas.com.br Boa noite, como faço para o DbCtrlGrid não permitir Incluir/Apagar Antonio C. de M. Pires Arrobba Sistemas mailto:desenvolvime...@arrobbasistemas.com.brdesenvolvimento%40arrobbasistemas.com.br desenvolvime...@arrobbasistemas.com.brdesenvolvimento%40arrobbasistemas.com.br Telefones: (42) 8402-8549 (42) 9105-5120 [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Twitter: http://twitter.com/tebosoftware Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DataModule com problemas
Oi Vinicius Você terá que abrir o arquivo de *dfm* do *data modulo* num editor de texto, localizar a junção incorreta e salvar, depois tentar abrir no delphi. espero ter ajudado falow 2009/8/4 Vinicius vinic...@cnen.gov.br Amigos, estava fazendo uns relacionamentos entre minhas tabelas, e por um descuido, errei no relacionamento da tabela de telefones dos funcionários. Fechei o Delphi7 pra almoçar e quando voltei e tentei abrir o programa, logo de cara ele esta dando esta mensagem: error creating form: CdsTelFuncionarios: Nested Datasets cannot have a MasterSource. Tentei abri o DataModule criando uma nova aplicação mais eu não consigo chegar na tela de design para corrigir o problema. Alguem já passou por isso e pode me dar uma luz para eu consertar esse problema. Meu DataModule está quase todo completo... tem muitas tabelas e eu não teria tempo hábil para remontar todo ele de novo. Não achei muita coisa na net... Se eu conseguir abrir o DM, eu corrigo... o problema esta em abrir. Agradeço. Vinicius -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Twitter: http://twitter.com/tebosoftware Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] macro no delphi
Uma maneira q conheço não é bem como uma macro substituição que existia em
outras linguagens..
é mais ou menos assim:
Existe uma função dentro do Form chamada FindComponent, no qual vc passa o
nome do objeto como parametro. Se a função encontrar o objeto, ele retornará
ele ai vc faz um typecast para a classe do seu componente, se não retorna
nil.
tipo assim:
var
temp : TObject;
myLabel : TLabel;
begin
temp := FindComponent('MeuLabel01');
if Assigned(temp) then
begin
myLabel := TLabel(temp);
//faça seu codigo
end;
end;
espero ter ajudado.. falow
2009/7/13 bene20032004 bene20032...@yahoo.com.br
Como faço para usar macro no delphi ?
Ex:
bitbtn1.Caption
quero substituir o 1 do bitbtn por uma variavel numerica
Tem como fazer isto ?
Muito obrigado por enqunto !
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
Twitter:
http://twitter.com/tebosoftware
Tente ser uma pessoa de valor, não de sucesso
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Alerta do MSN no Delphi
Existe na biblioteca de componentes Jedi esse msn popup chamado TJvDesktopAlert http://www.delphi-jedi.org/ 2009/7/3 Felipe Milagres felipe_a_milag...@yahoo.com.br eu pesquisaria o q?? componente popup delphi pode ate ser que eu use esse componente.. acontece q como o codigo ja estava pronto .. achei q seria mais rapido ... ps.: no site q vc me passou, quando eu clico para fazer o download, ele redireciona para um nao confiavel (palavra do google chrome) ps2.: esse componente serve no delphi 4 ?? valeu a ajuda ... __ Att, Felipe Milagres --- Em sex, 3/7/09, Paulo Coutinho pa...@prsolucoes.compaulo%40prsolucoes.com escreveu: De: Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.com Assunto: Re: [delphi-br] Re: Alerta do MSN no Delphi Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 3 de Julho de 2009, 15:20 Porque não usa o componente que te passei ao inves de reinventar a roda? Tem dezenas de componentes desses free, so tu dar uma googada, vai te poupar muito trabalho. 2009/7/3 embarcadelphi embarcadelphi@ yahoo.com. br: --- Em delphi...@yahoogrup os.com.br, Felipe Milagres felipe_a_milagres@ ... escreveu Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00411DA5 in module 'Project1.exe. Write of address 003B'. Process stopped como (o meu ingles é ruin e) essa mensagem nao deu para MIM nenhuma pista de qual é o erro .. Quem sabe inglês também não vai saber traduzir, este erro só traduz quem é programador e está com o código fonte nas mãos, digo, aberto no Delphi. Isso aí é endereçamento de memória. talvez algum objeto foi deletado da memória (nomedoobjeto .free), depois você foi tentar refazer a mesma rotina que foi feito antes (no primeiro click), só que agora este objeto não existe mais. Só vendo o código para saber mais... Se puder colocar o código desse botão que você clica e dá este erro, fica mais fácil para saber. blz -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MDO + Firebird
Coloque a fbClient.dll na pasta System32 do windows 2009/6/26 Marcos Bernardo xmarcos@gmail.com salve colega... isso não resolveu... tive que adicionar o path da pasta de FB no path da maquina e ai sim funcionou mas Obrigado pela atenção Marcos Bernardo 2009/6/26 Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.com Provavelmente vcoê tem que copiar a fbclient.dll para a pasta da aplicação. Deve resolver. 2009/6/25 Marcos Bernardo xmarcos@gmail.comxmarcos.aab%40gmail.comxmarcos.aab% 40gmail.com: Salve lista, peguei um projeto free lance com MDO até ai sem problemas, instalei o mdo tudo certo mas ele esta solicitando o firebird client alguem sabe como solocionar este problema ??? tenho o firebird instalado na minha maquina 2.0 e utilizo o delphi 2007 orbigado -- Marcos A. de A. Bernardo xmarcos@gmail.com xmarcos.aab%40gmail.com xmarcos.aab% 40gmail.com 11 - 9462-2657 http://bagusconsultoria.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com paulo% 40prsolucoes.com -- Marcos A. de A. Bernardo xmarcos@gmail.com xmarcos.aab%40gmail.com 11 - 9462-2657 http://bagusconsultoria.wordpress.com/ [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema de Lentidão (SQL)
Assim como nosso colega Alisson disse, mas só acrescentaria um try..finally para garantir que volte o EnableControls try Dataset.First; Dataset.DisableControls; while not Dataset.Eof do begin Dataset.Next; end; finally Dataset.EnableControls; end; 2009/6/26 Alisson Yahoo alss...@yahoo.com.br Quando tiver componentes (DbGrids, Edits, etc) ligados ao datasource, desabilite-os antes do loop e habilite novamente no final: Dataset.First; Dataset.DisableControls; while not Dataset.Eof do begin Dataset.Next; end; Dataset.EnableControls; __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Substituir string
Existe uma ferramenta chamada GReplace http://www.obsof.com/public/GReplace.zip que nos utilizamos aqui na empresa.. falow 2009/6/25 Alisson Yahoo alss...@yahoo.com.br Existe alguma maneira de pesquisar e substituir uma determinada string em todos os arquivos .dfm de um projeto? Uso Delphi 7. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBGrid
Pessoal tenho uma dica altere a font da sua coluna para Wingdings vá no evento OnGetText do seu campo e coloque o código abaixo procedure TForm1.cdsTesteCampoBooleanOnGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if DisplayText then begin if Sender.AsBoolean then Text := #254 //simbolo na font Wingdings que simboliza um quadrado vistado else Text := #168; //simbolo na font Wingdings que simboliza um quadrado não vistado end else begin if Sender.AsBoolean then Text := 'True' else Text := 'False'; end; end; espero ter ajudado falow 2009/6/24 humberto sales de oliveira humberto_...@yahoo.com.br select case seucampo when 'true' then 'nao ticado' else 'ticado' end from suatabela stainle2003 escreveu: Gostaria de trocar o valor True de um campo no DBGrid por um visto ou seja aquela imagem que significa OK ou ticado, coisa assim. uso o Delphi 7. conto com a ajuda de vocês. grato. Stainle -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Form ocupando toda area de trabalho
utilize essa procedure abaixo procedure maximizarForm(form: TForm); var area: TRect; begin //código de maximização do form SystemParametersInfo(SPI_GETWORKAREA, 0, @area, 0); form.Left := area.Left; form.Top := area.Top; form.Width := area.Right; form.Height := area.Bottom; end; falow 2009/6/24 Robson Tazinaffo robsontazina...@hotmail.com Como fazer o form principal ocupar toda a area de trabalho sem deixar redimensiona-lo, ou seja, o form ocupa toda a area de trabalho, mas quando passo o mouse sob a barra de tarefas ela deve aparecer. O form não pode ser redimensionado...Como faço isso -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Erro ao executar SQL
voce por acaso tem algum evento de afterscroll ou afteropen nessas querys?
se tiver de uma olhada para ver se alguma delas nao esta tentando editar sem
a query estar em modo de edicao
falow
2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.br
Boa noite pessoal!
Estou com um problema que não consigo resolver desde a semana passada e
gostaria da ajuda de todos!
Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado:
codigoNF)
Cada nota deve conter um frete que é relacionado através do campo codigoNF.
Eu consigo inserir registros nas tabelas através das funções
tblNotas.insert
e da função tblFrete.insert numa boua, mas qdo eu entro no formulário para
alterar a nota e o frete que acabei de gravar usando um comando simples do
SQL como:
with dmoQuerys.QueryNF.SQL do
begin
clear;
add('select * from Notas where codigoNF = ');
add(#39+queryNFCodigoNF.AsString+#39);
end;
dmoQuerys.QueryNF.Active := false;
dmoQuerys.QueryNF.Active := true;
(para selecionar a nota desejada para alteração)
e depois faço o comando:
with dmoQuerys.QueryFrete.SQL do
begin
clear;
add('select * from frete where codigoNF = ');
add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39);
end;
dmoQuerys.QueryFrete.Active := false;
dmoQuerys.QueryFrete.Active := true;
(para selecionar o frete ref. a essa nota que estou alterando)
ele dá o seguinte erro:
Project SisNota.exe raised exception class EDatabaseError with message
Dataset not in edit or Insert mode'.
Process stopped. Use Step or Run to continue.
(o arquivo está anexo ao e-mail)
Eu gostaria de esclarecer que nesse momento a única coisa que eu fiz foi
ativar as duas tabelas e nada mais! Elas não estão sendo editadas ou
inseridas.
O estranho é que se eu mudo a ordem de execução das SQL (mandando a
queryFrete antes da queryNF) elas executam numa boa e sem erro!
O que será que pode ser pessoal?
Eu uso delphi 7 com myDac.
Um abraço a todos!
[As partes desta mensagem que não continham texto foram removidas]
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
Tente ser uma pessoa de valor, não de sucesso
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
Re: Re: [delphi-br] Erro ao executar SQL
Voce poderia mandar o trecho completo para avaliarmos?
2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.br
Não uso nenhum evento nessas querys!
A única coisa que eu uso nelas é a propriedade CachedUpdate = True.
Obrigado!
---Mensagem original---
De: Thales (Shubacca) - Tebo Software
Data: 06/24/09 19:27:59
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Erro ao executar SQL
voce por acaso tem algum evento de afterscroll ou afteropen nessas querys?
se tiver de uma olhada para ver se alguma delas nao esta tentando editar
sem
a query estar em modo de edicao
falow
2009/6/24 Bruno Lepesqueur
brunolbra...@yahoo.com.brbrunolbrasil%40yahoo.com.br
Boa noite pessoal!
Estou com um problema que não consigo resolver desde a semana passada e
gostaria da ajuda de todos!
Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado:
codigoNF)
Cada nota deve conter um frete que é relacionado através do campo
codigoNF
Eu consigo inserir registros nas tabelas através das funções
tblNotas.insert
e da função tblFrete.insert numa boua, mas qdo eu entro no formulário
para
alterar a nota e o frete que acabei de gravar usando um comando simples
do
SQL como:
with dmoQuerys.QueryNF.SQL do
begin
clear;
add('select * from Notas where codigoNF = ');
add(#39+queryNFCodigoNF.AsString+#39);
end;
dmoQuerys.QueryNF.Active := false;
dmoQuerys.QueryNF.Active := true;
(para selecionar a nota desejada para alteração)
e depois faço o comando:
with dmoQuerys.QueryFrete.SQL do
begin
clear;
add('select * from frete where codigoNF = ');
add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39);
end;
dmoQuerys.QueryFrete.Active := false;
dmoQuerys.QueryFrete.Active := true;
(para selecionar o frete ref. a essa nota que estou alterando)
ele dá o seguinte erro:
Project SisNota.exe raised exception class EDatabaseError with message
Dataset not in edit or Insert mode'.
Process stopped. Use Step or Run to continue.
(o arquivo está anexo ao e-mail)
Eu gostaria de esclarecer que nesse momento a única coisa que eu fiz foi
ativar as duas tabelas e nada mais! Elas não estão sendo editadas ou
inseridas.
O estranho é que se eu mudo a ordem de execução das SQL (mandando a
queryFrete antes da queryNF) elas executam numa boa e sem erro!
O que será que pode ser pessoal?
Eu uso delphi 7 com myDac.
Um abraço a todos!
[As partes desta mensagem que não continham texto foram removidas]
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com tebosoftware%40gmail.com (GoogleTalk)
thales_...@hotmail.com thales_oli%40hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
Tente ser uma pessoa de valor, não de sucesso
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
Tente ser uma pessoa de valor, não de sucesso
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] DBGrid
Voce teria que colocar a pesquisa (execucao da pesquisa) num thread a parte para que o thread principal ( o dos componentes) nao travasse.. procure sobre threads 2009/6/24 humberto sales de oliveira humberto_...@yahoo.com.br Gostaria de mostrar uma tela com um gif animado qdo gera a pesquisa e cria o relatorio, so q essa tela fica congelada e o gif nao ativa, alguem tem alguma ideia de como apresentar essa tela sem congelar o form e iniciar o gif animado? -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Vincular propriedades de objetos a componentes visuais
A ideia é essa mesma.. só não sei como montar a estrutura para que se tenha diversos views. 2009/6/12 Rubem Rocha rubem.ro...@dtmanaus.com.br Sugiro que vc pesquise sobre implementação de design patterns como MVC ou MVP com Delphi. Isto com certeza é o que vc precisa. Sds. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [ delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] em Nome de Thales Eduardo Barros de Oliveira [tebosoftw...@gmail.comtebosoftware%40gmail.com ] Enviado: quinta-feira, 11 de junho de 2009 2:48 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Vincular propriedades de objetos a componentes visuais Bom dia pessoal Estou começando a trabalhar com delphi voltado a OO e gostaria de saber como eu faço para vincular alterações em componentes visuais com as propriedades dos objetos. Para preencher a propriedade em sim eu faço ou no OnChange ou no OnExit, mas como eu faço para que o objeto em si notifique outro componente que sua propriedade mudou? desde já agradeço ps. procurei no forum e não consegui encontrar o q eu queria.. falow . [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Vincular propriedades de objetos a componentes visuais
Blz cara vou dar uma lida e qualquer coisa posto aqui falow 2009/6/12 Silvio Clecio silviop...@yahoo.com.br Olá galera, --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Thales (Shubacca) - Tebo Software tebosoftw...@... escreveu A ideia é essa mesma.. só não sei como montar a estrutura para que se tenha diversos views. Aqui [http://br.groups.yahoo.com/group/delphi-oop-br/] tem uns arquivos interessantes. Aqui [http://br.pressobjects.org/] tem uma estrutura excelente mostrando o uso do MVP ( e muito mais). E aqui [http://silvioprog.blogspot.com/] (na seção OOP) vou disponibilizar um monte de arquivos relacionados à OOP. --- []'s, Silvio Clécio --- Linux User: #481900 Gmail, GTalk: silviop...@gmail.com silvioprog%40gmail.com E-mail, Y! Messenger: silviop...@yahoo.com.br silvioprog%40yahoo.com.br BlogSite: http://silvioprog.blogspot.com/ BlogSpot: http://silvioclecio.blogspot.com/ VirtualDriver: http://silvioprog.4shared.com/ °oO| Seja livre, use Linux! |Oo° -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Vincular propriedades de objetos a componentes visuais
Na realidade não seria bem isso não pois o q eu necessito é que mais de um registro de notificação de alteração. Por exemplo eu tenho um edit e um label, e uma classe pessoa com a propriedade nome. quando eu alterar o valor do edit, tem q alterar a propriedade nome do objeto pessoa e o label tem que ser alterado tb. so que quem tem q notificar isso é o objeto pessoa. Agora se o valor da propriedade nome for alterado por um terceiro, ambos, edit e label, tem que ser notificados da alteração. O problema é que quase todos os objetos do delphi, so se posse registar um único evento por vez, o q dificulta essa ideia. No caso da minha classe eu tive a ideia de montar uma classe chamado PropertyChangeListener, que coordena uma lista de eventos e um metodo que seria notifyChange, e assim todos os eventos seriam chamados. O que eu queria saber se existe algo parecido com isso na no pascal? falow 2009/6/11 Ricardo César Cardoso ricardo_engs...@yahoo.com.br Uma idéia doida que eu sugeriria, se aplicável, seria usar TNotifyEvent partindo como exemplo, desse artigo [1]. Mas posso estar falando besteira... [1] http://www.activedelphi.com.br/print.php?sid=454 Veja se é mais ou menos isso que vc pretende fazer . Sds, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qui, 11/6/09, Thales Eduardo Barros de Oliveira tebosoftw...@gmail.com tebosoftware%40gmail.com escreveu: Bom dia pessoal Estou começando a trabalhar com delphi voltado a OO e gostaria de saber como eu faço para vincular alterações em componentes visuais com as propriedades dos objetos. Para preencher a propriedade em sim eu faço ou no OnChange ou no OnExit, mas como eu faço para que o objeto em si notifique outro componente que sua propriedade mudou? desde já agradeço ps. procurei no forum e não consegui encontrar o q eu queria.. falow Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] maiuscula em todos os dedits
Por que vc não muda a propriedade CharCase dos dbedit para ecUpperCase? 2009/3/24 felipe govoni govoni.fel...@gmail.com bom dia algume sabe me dize oq tem de errado nesse codigo: for j := 0 to frmFinasa.ComponentCount - 1 do if (frmFinasa.Components[j] is tdbEdit) then (frmFinasa.Components[j] as tdbEdit).Text := UpperCase((frmFinasa.Components[j] as TdbEdit).Text); ele nao faz nada, e quando tento debuga, no .text da a seguinte mensagem: expression illegal in evaluator tentei faze um teste com o seguinte codigo e tambem nao fez nada for j := 0 to frmFinasa.ComponentCount - 1 do if (frmFinasa.Components[j] is tdbEdit) then (frmFinasa.Components[j] as tdbEdit).Text := 'teste'; alguem pode me ajuda? obrigado -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] maiuscula em todos os dedits
Coloque esse codigo no onShow
var
i : integer;
begin
for i := 0 to ComponentCount -1 do
if (Components[i] is TDBEdit) then
TDBEdit(Components[i]).CharCase := ecUpperCase;
end;
falow
2009/3/24 Humberto Oliveira holiveira.wordpr...@gmail.com
O detalhe que questionei é ao invés de setar UpperCase em todos os
DBEdits,
utilizar a propriedade CharCase, mas fazendo o for do jeito que ele estava
fazendo, mas ao invés de usar a propriedade Text, já setava o CharCase.
Mas ele já resolveu, está tudo em casa.
2009/3/24 Emanuel Coutinho
emanuelcouti...@yahoo.com.bremanuelcoutinho%40yahoo.com.br
Concordo contigo, mas o código dele está quase pronto, e não sei quantos
componentes ele terá de fazer mudar na mão grande... assim, automatizando
é
mais rápido para resolver... então dei foco a ajudar o erro do código...
No meu caso, quando formato minhas telas, sempre uso as propriedades tipo
CharCase, quando necessito disso, mas como ele não tinah feito...
Imagina ele ter de fazer isso em 30 componentes de um formulario (mesmo
estando em um pagecontrol... caramba... muito trabalho... mas se apagar o
errinho no código... voilá... dois palitos!!!
Sds,
_
Emanuel Coutinho
Salvador-Ba-Brasil
De: Humberto Oliveira
holiveira.wordpr...@gmail.comholiveira.wordpress%40gmail.com
holiveira.wordpress%40gmail.com
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Enviadas: Terça-feira, 24 de Março de 2009 12:55:52
Assunto: Re: [delphi-br] maiuscula em todos os dedits
É verdade, existe um espaço na palavra Components ... Mas na minha
opinião,
seria melhor o CharCase como o Rodnei explicou acima.
2009/3/24 Emanuel Coutinho emanuelcoutinho@ yahoo.com. br
frmFinasa.Componen ts[j] -- Tem um espaço em branco no components[j]
Retire-o
for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text :=
UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
Sds,
_
Emanuel Coutinho
Salvador-Ba- Brasil
_ _ __
De: felipe govoni govoni.felipe@ gmail.com govoni.felipe%
40gmail.com
Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
Enviadas: Terça-feira, 24 de Março de 2009 11:17:32
Assunto: [delphi-br] maiuscula em todos os dedits
bom dia
algume sabe me dize oq tem de errado nesse codigo:
for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text :=
UpperCase((frmFinas a.Components[ j] as TdbEdit).Text) ;
ele nao faz nada, e quando tento debuga, no .text da a seguinte
mensagem:
expression illegal in evaluator
tentei faze um teste com o seguinte codigo e tambem nao fez nada
for j := 0 to frmFinasa.Component Count - 1 do
if (frmFinasa.Componen ts[j] is tdbEdit) then
(frmFinasa.Componen ts[j] as tdbEdit).Text := 'teste';
alguem pode me ajuda?
obrigado
--
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com. br
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
Tente ser uma pessoa de valor, não de sucesso
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com TAcroPDF
Trava somente o dbGrid, botões funcionam e o proprio AcroPDF nao trava falow 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com Resolvi o problema utilizando o componente a seguir: PDFViewer site : http://www.synactis.com/ falow 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.comtebosoftware%40gmail.com O codigo que esta agora segue abaixo: procedure TfrmListaArqAtu.btnOpenPDFClick(Sender: TObject); var stArquivo : String; begin try btnOpenPDF.Enabled := False; Application.ProcessMessages; lblArquivo.Caption := cdsArquivosNOME.AsString; stArquivo := cdsArquivosCAMINHO.AsString; acrpdfArquivo.LoadFile(pChar(stArquivo)); finally btnOpenPDF.Enabled := True; end; 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.comtebosoftware%40gmail.com já tentei de duas maneira passando o valor à propriedade src e pelo método LoadFile e ambos travam grato pela atenção 2009/2/11 Lucas Neves lucas_del...@yahoo.com.brlucas_delphi%40yahoo.com.br Tem como passar como voce esta abrindo o arquivo? Lucas Thales (Shubacca) - Tebo Software escreveu: Boa tarde pessoal estou desenvolvendo uma tela para exibir arquivos pdf referentes as atualizações do sistema. Na Tela eu listo os arquivos .pdf que estão numa pasta e adiciono num ClientDataSet e exibo num Dbgrid. O problema é que quando eu mando abrir o arquivo no TAcroPDF, ele trava o DBGrid. Alguém ja passou por isso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com tebosoftware% 40gmail.com mailto: tebosoftware%40gmail.com tebosoftware%2540gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com thales_oli% 40hotmail.com mailto: thales_oli%40hotmail.com thales_oli%2540hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com TAcroPDF
Boa tarde pessoal estou desenvolvendo uma tela para exibir arquivos pdf referentes as atualizações do sistema. Na Tela eu listo os arquivos .pdf que estão numa pasta e adiciono num ClientDataSet e exibo num Dbgrid. O problema é que quando eu mando abrir o arquivo no TAcroPDF, ele trava o DBGrid. Alguém ja passou por isso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com TAcroPDF
já tentei de duas maneira passando o valor à propriedade src e pelo método LoadFile e ambos travam grato pela atenção 2009/2/11 Lucas Neves lucas_del...@yahoo.com.br Tem como passar como voce esta abrindo o arquivo? Lucas Thales (Shubacca) - Tebo Software escreveu: Boa tarde pessoal estou desenvolvendo uma tela para exibir arquivos pdf referentes as atualizações do sistema. Na Tela eu listo os arquivos .pdf que estão numa pasta e adiciono num ClientDataSet e exibo num Dbgrid. O problema é que quando eu mando abrir o arquivo no TAcroPDF, ele trava o DBGrid. Alguém ja passou por isso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com mailto: tebosoftware%40gmail.com tebosoftware%2540gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com mailto: thales_oli%40hotmail.com thales_oli%2540hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com TAcroPDF
O codigo que esta agora segue abaixo: procedure TfrmListaArqAtu.btnOpenPDFClick(Sender: TObject); var stArquivo : String; begin try btnOpenPDF.Enabled := False; Application.ProcessMessages; lblArquivo.Caption := cdsArquivosNOME.AsString; stArquivo := cdsArquivosCAMINHO.AsString; acrpdfArquivo.LoadFile(pChar(stArquivo)); finally btnOpenPDF.Enabled := True; end; 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com já tentei de duas maneira passando o valor à propriedade src e pelo método LoadFile e ambos travam grato pela atenção 2009/2/11 Lucas Neves lucas_del...@yahoo.com.br Tem como passar como voce esta abrindo o arquivo? Lucas Thales (Shubacca) - Tebo Software escreveu: Boa tarde pessoal estou desenvolvendo uma tela para exibir arquivos pdf referentes as atualizações do sistema. Na Tela eu listo os arquivos .pdf que estão numa pasta e adiciono num ClientDataSet e exibo num Dbgrid. O problema é que quando eu mando abrir o arquivo no TAcroPDF, ele trava o DBGrid. Alguém ja passou por isso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com mailto: tebosoftware%40gmail.com tebosoftware%2540gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com mailto: thales_oli%40hotmail.com thales_oli%2540hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com TAcroPDF
Resolvi o problema utilizando o componente a seguir: PDFViewer site : http://www.synactis.com/ falow 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com O codigo que esta agora segue abaixo: procedure TfrmListaArqAtu.btnOpenPDFClick(Sender: TObject); var stArquivo : String; begin try btnOpenPDF.Enabled := False; Application.ProcessMessages; lblArquivo.Caption := cdsArquivosNOME.AsString; stArquivo := cdsArquivosCAMINHO.AsString; acrpdfArquivo.LoadFile(pChar(stArquivo)); finally btnOpenPDF.Enabled := True; end; 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com já tentei de duas maneira passando o valor à propriedade src e pelo método LoadFile e ambos travam grato pela atenção 2009/2/11 Lucas Neves lucas_del...@yahoo.com.br Tem como passar como voce esta abrindo o arquivo? Lucas Thales (Shubacca) - Tebo Software escreveu: Boa tarde pessoal estou desenvolvendo uma tela para exibir arquivos pdf referentes as atualizações do sistema. Na Tela eu listo os arquivos .pdf que estão numa pasta e adiciono num ClientDataSet e exibo num Dbgrid. O problema é que quando eu mando abrir o arquivo no TAcroPDF, ele trava o DBGrid. Alguém ja passou por isso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com mailto: tebosoftware%40gmail.com tebosoftware%2540gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com mailto: thales_oli%40hotmail.com thales_oli%2540hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problema com TAcroPDF
Resolvi o problema utilizando o componente a seguir: PDFViewer site : http://www.synactis.com/ falow 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com O codigo que esta agora segue abaixo: procedure TfrmListaArqAtu.btnOpenPDFClick(Sender: TObject); var stArquivo : String; begin try btnOpenPDF.Enabled := False; Application.ProcessMessages; lblArquivo.Caption := cdsArquivosNOME.AsString; stArquivo := cdsArquivosCAMINHO.AsString; acrpdfArquivo.LoadFile(pChar(stArquivo)); finally btnOpenPDF.Enabled := True; end; 2009/2/11 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com já tentei de duas maneira passando o valor à propriedade src e pelo método LoadFile e ambos travam grato pela atenção 2009/2/11 Lucas Neves lucas_del...@yahoo.com.br Tem como passar como voce esta abrindo o arquivo? Lucas Thales (Shubacca) - Tebo Software escreveu: Boa tarde pessoal estou desenvolvendo uma tela para exibir arquivos pdf referentes as atualizações do sistema. Na Tela eu listo os arquivos .pdf que estão numa pasta e adiciono num ClientDataSet e exibo num Dbgrid. O problema é que quando eu mando abrir o arquivo no TAcroPDF, ele trava o DBGrid. Alguém ja passou por isso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com mailto: tebosoftware%40gmail.com tebosoftware%2540gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com mailto: thales_oli%40hotmail.com thales_oli%2540hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Problema com Objetos da classe TInterfacedObject + uma interface
Em Relação ao componente que comenta, o Press, não consegui instalar ele nao, pois os pacotes estão ausentes. Tentei criá-los usando a idéia de separação de packages desginer e runtime e somente o runtime roda, ainda porque eu removo algumas units sobre oracle etc. teria como me passar o esquema de instalação, pois no site não em. grato 2008/12/30 Joao Morais jcmorai...@gmail.com 2008/12/30 Thales Eduardo Barros de Oliveira tebosoftw...@gmail.comtebosoftware%40gmail.com : Pelo que entendi João, todas as classes, eu deveria mudar para esta que sugere e quando fosse apontado a uma variavel, ou adicionado a uma lista, deferia executar a função addRef, e quando não mais fosse usar, deveria executar o FreeInstance? Executar .Free, normalmente, como se não houvesse contagem de referência. Somente quando a contagem cair para zero é que o FreeInstance libera a instância. um pouco diferente, mas muito interessante. Diferente porque é uma solução que não existe no mundo Object Pascal = misturar objetos e interfaces. Faltou acrescentar que, para implementar alguma interface, basta implementar os seguintes métodos na área protected: function TIntfObj.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; begin if GetInterface(IID, Obj) then Result := 0 else Result := HResult($80004002); // E_NOINTERFACE end; function TIntfObj._AddRef: Integer; stdcall; begin Result := AddRef; end; function TIntfObj._Release: Integer; stdcall; begin Result := Release; if Result = 0 then try Finit; finally inherited FreeInstance; end; end; E ainda distinguir entre classes que criam a instância para um ponteiro de objeto, e que criam a instância para um ponteiro de interface. Para o primeiro caso, RefCount deve começar em um, e para o segundo, deve começar em zero. Tenho as duas classes implementadas, respectivamente TPressManagedObject e TPressManagedIObject: http://pressobjects.svn.sourceforge.net/viewvc/pressobjects/trunk/Source/Core/PressClasses.pas?revision=1034view=markup obrigado pela dica Disponha. -- Joao Morais -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com Objetos da classe TInterfacedObject + uma interface
Boa noite pessoal estou tendo problemas com uma classe que estou desenvolvendo a partir de um curso de OO. Neste curso é criado algumas interfaces e alguns objetos que implementam as mesmas. Uma das Interface é como se fosse uma entidade a ser persistida no banco de dados e uma outra é a classe responsável por persistir (DAO). O problema que estou encontrando é que após o dao persistir o objeto, ele chama o destructor do objeto persistido, mas eu não destrui o mesmo. Debugando descobri que o campo que conta as referencias do objeto fica com valor 0 (zero) após a persistencia, mas ainda existe uma variavel local que está fazendo referencia ao meu objeto. alguém sabe como me ajudar nisso? desde já agradeço -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usando Threads
Boa tarde pelo que entendi você está com threads armazenados em variáveis ne? e tenta acessar uma determinada propriedade dela. até ai normal. só assim que thread terminar, você não pode mais acessar a propriedade pois o objeto foi destruído, e não adianta testar o assigned pois a variável vai ter um endereço informado (endereço não válido), e irá retorna true, sendo que o objeto não existe. O que você precisa fazer? 2008/10/31 Elazar Dornelles Ceza [EMAIL PROTECTED] Boa tarde pessoal encontrei um problema ao usar threads, gostaria da sugestão dos colegas, pra esplicar direito, estou colocando abaixo uma serie de passos que utilizei, e em seguida vem a minha pergunta...rsss Tenho 4 variaveis para instanciar threads, como no exemplo. TMinhaThread = class(TThread) private FId : Integer; public procedure Execute; override; property Id : Integer read FId write FId; end; vThread1 : TMinhaThread; vThread2 : TMinhaThread; vThread3 : TMinhaThread; vThread4 : TMinhaThread; ... em determinado momento eu crio estas threads com o suspend e FreeOnTerminate em true, e em seguida faco chamada ao metodo resume vThread1 := TMinhaThread.Create(True); vThread2 := TMinhaThread.Create(True); vThread3 := TMinhaThread.Create(True); vThread4 := TMinhaThread.Create(True); vThread1.Id := 1; vThread2.Id := 2; vThread3.Id := 3; vThread4.Id := 4; vThread1.FreeOnTerminate := True; vThread2.FreeOnTerminate := True; vThread3.FreeOnTerminate := True; vThread4.FreeOnTerminate := True; vThread1.Resume; vThread2.Resume; vThread3.Resume; vThread4.Resume; tomo os devidos cuidados no execute para que verifique e saia do loop caso a thread tenha sido terminada. procedure TMinhaThread.Execute; begin override; ... while... and not Terminated do begin ... end; end; Mas ao fechar o sistema eu estou usando... ShowMessage( IntToStr(vThread1.id)); e esta funcionando. (exibindo a mensagem na tela) Minhas perguntas. Usando o free on terminate, porque não ocorreu um access violation ao chamar thread.id? Isto quer dizer que a thread ainda esta rodando? (veriquei o evento, OnThreadTerminate...e ele esta sendo executado pra cada uma das 4). Porque usando um Assigned(vThread1) por exemploretorna True?(isto no ao fechar o sistema). Desculpe pelo longo texto. Atenc.; Elazar Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: [EMAIL PROTECTED] (GoogleTalk) [EMAIL PROTECTED] (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] off-topic Galera uma pergunta que interessa a todos.
Cara eu passo pelo mesmo problema, ando com muitas dores no corpo e não consigo relaxar.. vivo no computador tb... 2008/10/27 TI - METALURGICA JANO [EMAIL PROTECTED] Eu trabalho com informática a mais de 9 anos, estou com 26, e estou enfrentando uma faze de extress impressionante hehe. Alguem de vocês ja passou por isso ou está passando ? Esta area é assim mesmo ? E outro problema é que não consigo sair da frente do pc, tem alguem ai que usa o pc apenas para trabalho? [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: [EMAIL PROTECTED] (GoogleTalk) [EMAIL PROTECTED] (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Windows Service em Delphi
Bom dia pessoal
Estou tentando criar um serviço através do delphi. Estou seguindo o esquema
de alguns tutoriais, mas todos são básicos e não criam serviços com forms
visíveis.
O problema que estou tendo é assim:
- a aplicação é um gerenciador de backup para bancos firebird, com
agendador entre outras tarefas.
- na aplicação existe um form principal que contêm todas as atividades
do programa.
- eu criei um serviço e configurei nas propriedades dele para ter
interactive para true.
- e no método execute dele, eu crio o form através de uma thread pois
quando colocava somente no método execute do serviço, a aplicação não
conseguia receber respostas do teclado.
- só que o form que é aberto no thread não está funcionando.. não abre
direito...
*abaixo está o código do execute do serviço e da thread.Código do serviço:*
procedure TsrvAdmin.ServiceExecute(Sender : TService);
begin
trdPrincipal := trdPrincipal.Create;
while not Terminated do
ServiceThread.ProcessRequests(True);
trdPrincipal.Terminate;
end;
Código da thread:
procedure TPrincipalThread.Execute;
begin
repeat
if not Assigned(frmPrincipal) and processExists('explorer.exe') then
begin
frmPrincipal := TfrmPrincipal.Create(srvAndesAdmin);
frmPrincipal.Show;
end;
Forms.Application.ProcessMessages;
Sleep(1);
until Terminated;
end;
o código do serviço é um que eu peguei nos tutoriais mais a execução da
thread.
o problema todo está em que tem hora que não consigo abrir o form.
alguém já conseguiu fazer um serviço desse jeito?
desde já agradeço
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird
Emails:
[EMAIL PROTECTED] (GoogleTalk)
[EMAIL PROTECTED] (MSN)
Blog:
http://tebosoftware.blogspot.com/
Tente ser uma pessoa de valor, não de sucesso
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Impressora Argox os-214
Berdam conselho de quem ja fez muitas etiquetas para o Argox.. baixe o drive que está no site http://www.nicelabel.com/ e monte a impressão de maneira normal, pois ele converte para a impressora.. bem mais facil falow 2008/4/28 Berdam [EMAIL PROTECTED]: Ai Galera, blz, comprei uma impressora Argox os-214, para impressão de etiquetas. Ela vem com algumas units para delphi, para manipular as etiquetas. Alguém não tem um manual mais completo sobre como manipular estra impressora.??? -- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe - http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com -- - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird Emails: [EMAIL PROTECTED] (GoogleTalk) [EMAIL PROTECTED] (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP
Eu utilizo um opensource chamado vdoprint q roda normal. https://sourceforge.net/projects/vdo/ falow Em 05/03/08, Bollasette [EMAIL PROTECTED] escreveu: Ok,,, vou baixar então,,, - Original Message - From: Eduardo Silva dos Santos To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br ; [EMAIL PROTECTED] bollasette%40yahoo.com.br Sent: Wednesday, March 05, 2008 8:29 PM Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP Rapaz ta difícil heim.. vc não precisa mudar de Delphi, o RDPrint 4 pode ser instalado no Delphi5. vai no site dos caras, baixa o trial, faz um teste.. se der tudo certo, faz o upgrade, vc ainda vai ter desconto por ser usuário registrado.. Em 05/03/08, Bollasette [EMAIL PROTECTED]bollasette%40yahoo.com.br escreveu: Olá Leonardo,,, Não,,, Apenas instalei o D5 com RdPrint 2.1 no WINXP e fiz o teste e compilei sem problemas mas na hora de imprimir o problema cotinua. O fabricante com certeza vai querer me empurrar para uma versão mais recente do componente e no momento não estou interessado por causa do preço de uma atualização do Delphi. Vou ver se encontro algum componente free para instalar no D5 e refazer os códigos, quem sabe roda no WINXP para um cliente. Tks - Original Message - From: Leonardo Quinino To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%40yahoogrupos.com.br Sent: Wednesday, March 05, 2008 4:34 PM Subject: Re: [delphi-br] Componente RDPRINT 2.1 não imprime no XP Que tal tentar migrar somente a versão do RDPRINT ? Já conversou sobre isso com o fabricante ? Em 05/03/08, bollasette [EMAIL PROTECTED]bollasette%40yahoo.com.br bollasette%40yahoo.com.br escreveu: Boa tarde a todos do Grupo... Tenho um aplicativo que desenvolvi em D5 e Win98 porém o mesmo instalado no WinXP não imprime utilizando o componente RDPRINT 2.1. (ACESS VIOLATION) Entrei em contato por email com desenvolvedor do componente situado em MARÍLIA,SP e o mesmo me retornou afirmando que dá suporte somente para o RDPRINT 4.0 Alguém jah passou por isso ? Terei que migrar para outro DELPHI ? Desde jah antecipo agradecimentos pela colaboração Bolasete (donisete) -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008 00:00 [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 269.21.4/696 - Release Date: 03-03-2008 00:00 [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird Emails: [EMAIL PROTECTED] (GoogleTalk) [EMAIL PROTECTED] (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicação MDIChild.
Na realidade, você deve utilizar o formprincipal.MDIChildCount para saber a quantidades de janelas abertas, e dentro de uma estrutura de for, voce corre e utilizando formprincipal.MDIChildren[i] voce vai testando a classe e fecha os q vc quiser: procedure TForm1.Button1Click(Sender: TObject); var i :Integer; begin for i := 0 to Self.MDIChildCount -1 do if Self.MDIChildren[i] is TForm2 then Self.MDIChildren[i].Close; end; espero ter ajudado falow -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird Emails: [EMAIL PROTECTED] (GoogleTalk) [EMAIL PROTECTED] (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein Em 21/01/08, Ricardo Ravelli [EMAIL PROTECTED] escreveu: Boa noite a todos, Tenho uma aplicação MDI que no evento onclose do form principal faço com que ele oculte e fique somente no icon tray. Mas o problema é quando tem algum form MDIChild aberto, ao tentar fazer ocultar o sistema não oculta direito. No evento onclose do form principal: Action := caNone; FrmPrincipal.Hide; A minha dúvida é a seguinte: como eu faço pra verificar se tem qualquer form filho aberto no sistema e fechar esses forms filhos de f dentro do form principal?? Já tentei usar IF( NomeForm NIL ) then só que mesmo que o form filho esteje aberto ele aparece sendo igual a NIL.. Por favor, se alguém puder me ajudar com esse problema, alguém que trabalha com aplicações MDI, é o meu primeiro sistema em formato MDI. Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
