Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS

[Fabinho]

Olá Moacir,

Na verdade vou comprar farinha e depois produzir o pão. Comprando farinha, 
adiciono seu estoque e depois que eu produzir o pão, dou baixa no estoque de 
farinha e aumento o estoque de pão. Quando eu vender o pão, baixo o estoque do 
pão.

Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e a ficha 
técnica desses produtos cadastrados na tabela COMPOSICAO.

Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando eu vender 
o pão, tenho que varrer a tabela de INSUMOS para verificar a quantidade de 
farinha de que é feito o pão e dar baixa no estoque dessa farinha, que fica na 
tabela PRODUTOS.

Se não consegui ser bem claro, por favor, me diga que explico melhor.


Fabio.






De: Moacir - GMail <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34
Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS


Fabio,

Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ??

Acredito que voce deva estar comprando farinha, leite, etc e depois 
produzindo o pão, correto ?

Se este for o caso voce deve dar entrada dos insumos para fabricação do 
pão e ao produzi-lo dar baixa dos insumos utilizados.

[ ]´s

Moacir

Fabio R Cardoso escreveu:
> Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não 
> mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda.
>
> Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema:
>
> PRODUTOS
> COMPOSICAO
> COMPRAS
>
>
> Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos 
> produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos 
> formados por outros produtos, na qual estes estão na tabela COMPOSICAO. 
> É assim, por exemplo:
>
> PRODUTOS (código e descrição)
> 1 - coca cola
> 2 - pão francês
> 3 - farinha de trigo
> 4 - leite
> 5 - noz moscada
>
> COMPOSICAO (código, código do produto e qtde)
> 1 - 2 (farinha de trigo) - 20g
> 2 - 2 (leite) - 1l
>
> Observem que apenas o produto 2 (pão francês) possui registros na 
> composição, uma vez que ele é feito de outros produtos.
>
> Eu quero criar um processo automático para varrer a composição do 
> produto comprado e adicionar o estoque dos produtos na composição do 
> produto.
>
> Espero ter conseguido explicar. Por favor, me ajudem.
>
> Fabio.
>
>
>  - - --
>
> 
 


  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]

[delphi-br] IBexpert maluco - talvez offtopic

[Fabinho]

Boa tarde senhores,


Meu IBexpert versão 2007.05.03 não está exibindo as mensagens de erro 
corretamente. Observem uma mensagem de erro quando fui adicionar uma chave 
estrangeira:


violation of FOREIGN KEY constraint "@1" on table "@2".
Foreign key reference target does not exist.


Quando o IBexpert vai exibir outros erros, ele diz que o erro sempre está na 
linha "@1", coluna "@2". 
Por que isso?

grato, 
Fabio.


  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]

Re: [delphi-br] Lembretes igual ao do MSN

[...fabinho]

É o TJvDesktopalert.

Abraço e boas festas a todos. Em paz.





  - Original Message - 
  From: Daniel Bastos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, December 19, 2007 6:51 PM
  Subject: Re: [delphi-br] Lembretes igual ao do MSN


  O Jedi tem??? Qual o nome do componente?

  Em 18/12/07, BandaLemuel <[EMAIL PROTECTED]> escreveu:
  >
  > O JEDI tem
  >
  > De: delphi-br@yahoogrupos.com.br  [mailto:
  > delphi-br@yahoogrupos.com.br ] Em
  > nome de Walter Chagas Jr (Bol)
  > Enviada em: domingo, 16 de dezembro de 2007 22:34
  > Para: delphi-br@yahoogrupos.com.br 
  > Assunto: Re: [delphi-br] Lembretes igual ao do MSN
  >
  > Ricardo,
  >
  > Existir existe, mas aquele recurso é da API do Messenger. Para você fazer
  > algo, sem a necessidade de componente externo, você vai ter que
  > implementar
  > isto e não vai ser tarefa simples não. Vais ter que escrever o código que
  > interfaceie seu projeto com a API. Em outras palavras, codificação
  > massante..
  >
  > []s
  >
  > Walter Alves Chagas Junior
  > Belo Horizonte - MG - Brazil
  > [EMAIL PROTECTED]   wchagasj%40yahoo.com.br>
  > http://www.geocities.com/SiliconValley/Bay/1058
  > MSN: [EMAIL PROTECTED]   whitesockets%40hotmail.com>
  > SKYPE: WalterChagasJr
  >
  > - Original Message -
  > From: Ricardo Ravelli
  > To: delphi-br@yahoogrupos.com.br   delphi-br%40yahoogrupos.com.br>
  > Sent: Sunday, December 16, 2007 12:34 PM
  > Subject: Re: [delphi-br] Lembretes igual ao do MSN
  >
  > Bom dia!
  > Obrigado pelo links dos componentes, mas não existe alguma maneira de
  > fazer
  > isso sem o uso de componentes externos? Eu queria alguma maneira
  > utilizando
  > o que já existe no delphi.
  >
  > Se alguém puder me ajudar, agradeço desde já.
  >
  > **utilizo Delphi 7**
  >
  > Obrigado.
  >
  > Ricardo Ravelli.
  >
  > Em 15/12/07, Jefferson - Fórum <[EMAIL PROTECTED]
  >  > escreveu:
  > >
  > > Amigão, é só pegar o arquivo no link abaixo e instalar o componente.
  > > http://fileurls.com/odwxib
  > > obs: o arquivo ficará disponível por apenas 3 dias.
  > >
  > > Boa sorte!
  > >
  > > Jefferson
  > >
  > >
  > > - Original Message -
  > > From: Ricardo Ravelli
  > > To: delphi-br@yahoogrupos.com.br  delphi-br%40yahoogrupos.com.br>
  > 
  > > Sent: Saturday, December 15, 2007 2:52 PM
  > > Subject: [delphi-br] Lembretes igual ao do MSN
  > >
  > > Boa tarde a todos,
  > >
  > > Alguém sabe como faz aquelas caixinhas(igual aparece quando entra algúem
  > > no
  > > msn), ou aqueles "pequenos baloes" que aparece no lado do relógio do
  > > windows(por exemplo, igual aquele que quando você acaba de instalar o
  > > windows XP, aparece para você dar um "tour" pelo windows).
  > > Se alguém puder me dizer também o nome correto do que foi citado acima.
  > >
  > > Agradeço desde já.
  > >
  > > 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]
  > >
  > >
  > >
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > __ Informação do NOD32 IMON 2725 (20071216) __
  >
  > Esta mensagem foi verificada pelo NOD32 sistema antivírus
  > http://www.eset.com.br
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Atualizar o programa

[Fabinho]

Coloque um TTimer no seu formulário. 
Dê dois cliques nele e digite:

showmessage('vc está aí');


Configure a propriedade Timer do TTimer para 30. Pronto.




- Mensagem original 
De: Icaro Ferreira <[EMAIL PROTECTED]>
Para: delphi br 
Enviadas: Terça-feira, 18 de Dezembro de 2007 10:58:49
Assunto: [delphi-br] Atualizar o programa

Tem alguma maneira.. tipo de 5 em 5 minutos eu pipocar na tela uma mensagem 
tipo showmessage( ' Vc esta ai ');
como q eu faço isto .. 

Obrigado

Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail. yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]





  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Lembretes igual ao do MSN

[...fabinho]

Ricado, Existe o componente TJVdesktopalert que vem com a paleta de componentes 
do Project Jedi. É free e excelente.

Fabinho



  - Original Message - 
  From: Ricardo Ravelli 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, December 15, 2007 2:52 PM
  Subject: [delphi-br] Lembretes igual ao do MSN


  Boa tarde a todos,

  Alguém sabe como faz aquelas caixinhas(igual aparece quando entra algúem no
  msn), ou aqueles "pequenos baloes" que aparece no lado do relógio do
  windows(por exemplo, igual aquele que quando você acaba de instalar o
  windows XP, aparece para você dar um "tour" pelo windows).
  Se alguém puder me dizer também o nome correto do que foi citado acima.

  Agradeço desde já.

  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]

Re: [delphi-br] Ajuda URGENTE por favor..

[...fabinho]

Resolvido. Obrigado a você e wandihuttel pelo apoio grandioso.

abraço.




  - Original Message - 
  From: Luis Lopes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, December 04, 2007 11:57 AM
  Subject: Res: [delphi-br] Ajuda URGENTE por favor..


  Vc tem que fazer esse filtro no seu SQL que preenche o combobox de produto.

  select * from produto where fornecedor = :pfornecedor

  Outra coisa, não estou vendo nesse modelo que vc passou, nada indicado quais 
fornecedores fornecem quais produtos. Para fazer o que vc está querendo é 
necessário isso.


  Luis Alberto P. Lopes
  Desenvolvimento de Sistemas
  Belo Horizonte - Minas Gerais

  - Mensagem original 
  De: Fabinho <[EMAIL PROTECTED]>
  Para: [EMAIL PROTECTED]
  Cc: lista <[EMAIL PROTECTED]>; delphi-br 
  Enviadas: Terça-feira, 4 de Dezembro de 2007 11:38:37
  Assunto: [delphi-br] Ajuda URGENTE por favor..

  Senhores

  Uso Firebird e Delphi 7. Tenho três tabelas no meu sistema, 
  basicamente assim:

  TABELA COMPRAS:
  CODIGO_COMPRA PK
  CODIGOFORNECEDOR FK PARA FORNECEDOR.CODIGO
  CODIGOPRODUTO FK PARA PRODUTO.CODIGO
  DESCRICAO

  TABELA FORNECEDOR:
  CODIGO_FORNECEDOR PK
  RAZAO_SOCIAL

  TABELA PRODUTO:
  CODIGO_PRODUTO PK
  DESCRICAO

  Quando vou fazer uma compra, informo por dois TDBLookupCombobox o meu
  fornecedor e o meu produto comprado. Mas esses componentes listam
  todos os fornecedores e produtos, respectivamente. Acontece que eu
  quero que o TDBLookupCombobox que lista os produtos liste apenas os
  produtos que são vendidos pelo fornecedor selecionado anteriormente.

  Se alguém puder ajudar, sou muito grato. 
  Se não fui bem claro, por favor, me digam para eu dar mais detalhes.

  abraço.

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço
  para armazenamento!
  http://br.mail.yahoo.com/

  [As partes desta mensagem que não continham texto foram removidas]

  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Links do Yahoo! Grupos

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
  http://br.mail.yahoo.com/

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] Ajuda URGENTE por favor..

[Fabinho]

Eu uso FIBPlus.





- Mensagem original 
De: Marcelo Mendes de Oliveira <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 4 de Dezembro de 2007 11:59:23
Assunto: RES: [delphi-br] Ajuda URGENTE por favor..

Que componentes vc usa para acessar sua base de dados?

Marcelo Mendes de Oliveira 
Analista de Informática
Tel.: + 49 3541-6177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose. com.br <http://www.iguacuce lulose.com. br/> 
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

_ 

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em
nome de Fabinho
Enviada em: terça-feira, 4 de dezembro de 2007 11:39
Para: [EMAIL PROTECTED] com.br
Cc: lista; delphi-br
Assunto: [delphi-br] Ajuda URGENTE por favor..

Senhores

Uso Firebird e Delphi 7. Tenho três tabelas no meu sistema, 
basicamente assim:

TABELA COMPRAS:
CODIGO_COMPRA PK
CODIGOFORNECEDOR FK PARA FORNECEDOR.CODIGO
CODIGOPRODUTO FK PARA PRODUTO.CODIGO
DESCRICAO

TABELA FORNECEDOR:
CODIGO_FORNECEDOR PK
RAZAO_SOCIAL

TABELA PRODUTO:
CODIGO_PRODUTO PK
DESCRICAO

Quando vou fazer uma compra, informo por dois TDBLookupCombobox o meu
fornecedor e o meu produto comprado. Mas esses componentes listam
todos os fornecedores e produtos, respectivamente. Acontece que eu
quero que o TDBLookupCombobox que lista os produtos liste apenas os
produtos que são vendidos pelo fornecedor selecionado anteriormente.

Se alguém puder ajudar, sou muito grato. 
Se não fui bem claro, por favor, me digam para eu dar mais detalhes.

abraço.

Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail. <http://br.mail. yahoo.com/> yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]





  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Ajuda URGENTE por favor..

[Fabinho]

Senhores

Uso Firebird e Delphi 7. Tenho três tabelas no meu sistema, 
basicamente assim:

TABELA COMPRAS:
CODIGO_COMPRA PK
CODIGOFORNECEDOR FK  PARA FORNECEDOR.CODIGO
CODIGOPRODUTO FK  PARA PRODUTO.CODIGO
DESCRICAO

TABELA FORNECEDOR:
CODIGO_FORNECEDOR  PK
RAZAO_SOCIAL

TABELA PRODUTO:
CODIGO_PRODUTO  PK
DESCRICAO

Quando vou fazer uma compra, informo por dois TDBLookupCombobox o meu
fornecedor e o meu produto comprado. Mas esses componentes listam
todos os fornecedores e produtos, respectivamente. Acontece que eu
quero que o TDBLookupCombobox que lista os produtos liste apenas os
produtos que são vendidos pelo fornecedor selecionado anteriormente.

Se alguém puder ajudar, sou muito grato. 
Se não fui bem claro, por favor, me digam para eu dar mais detalhes.

abraço.


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] criptografia

[...fabinho]

Senhores,

Achei estas procedures de criptografia e descriptografia na internet, parece 
que é de autoria da Borland. Acontece que usei ela no meu TCC (trabalho de 
conclusão de curso), e preciso dizer que tipo de criptografia é.

Alguém dá uma luz? Obrigado!


function Crypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;
end;

function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): 
string;
var I : Byte;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] citações

[Fabinho]

Senhores,

Estou terminando meu TCC - trabalho de conclusão de curso em sistemas de 
informação, e gostaria de algumas sugestões de citações e matérias sobre:

Delphi;
Object Pascal;
IBExpert;
Firebird;
Banco de dados relacionais;
Análise Estruturada.

Alguém da uma luz a um humilde formando?

grato!




  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Proibir Teclas no dbGrid - Como ?

[...fabinho]

Que tal assim:

no evento onkeypress do grid:

if dbgrid.Fields.FieldName = 'sexo' then
begin
 if not (key in ['m', 'M', 'f', 'F']) then key := #0;
end;
 

  - Original Message - 
  From: Flavio 
  To: Grupo_Delphi 
  Sent: Saturday, November 17, 2007 11:36 PM
  Subject: [delphi-br] Proibir Teclas no dbGrid - Como ?


  Olá pessoal, boa noite,

  Meu caso é o seguinte: tenho uma célula no dbGrid que armazena o sexo da 
pessoa. Com isso, quero que, quando o usuário for digitar o sexo da pessoa, ele 
consiga somente digitar as letras 'f', 'F','m' ou 'M' e ignore todas as outras 
teclas.

  Como fazer isso ? Alguém me auxilia nessa questão ??

  Obrigado pela atenção e tudo de bom...
  Flávio.

  -
  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]



   

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] inputbox ou inputquery

[Fabinho]

Senhores,

Gostaria de fazer um inputbox ou inputquery de modo que os caracteres apareçam 
como asterisco (password char), como método de confirmação de senha... tem como?


obrigado!


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Como ficaria esta instrucao sql ?

[fabinho]

que tal

SELECT produto_nome, produto_validade from PRODUTOS
WHERE produto_validade = (current_date+30)



abraço




  - Original Message - 
  From: bene20032004 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, October 13, 2007 1:47 PM
  Subject: [delphi-br] Como ficaria esta instrucao sql ?


  Quero mostrar no dbgrid ,baseado na data do computador e data de 
  validade do cadastro de produtos, todos os produtos que vão vencer 
  daqui a 30 dias .
  Estou usando mysql...
  Alguem poderia me ajudar ? 



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Duvidas com Hint

[fabinho]

edit1.showhint;



  - Original Message - 
  From: Hudson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 03, 2007 6:00 PM
  Subject: [delphi-br] Duvidas com Hint


  Ola gente,

  estou com uma duvida, existe uma foma de força o hint de um edit?

  entrei no edit ae parece hint sem precisar de passar o mouse...

  obrigado!

  Atenciosamente Hudson Dias
  www.alcancedigital.com.br
  MSN: [EMAIL PROTECTED]
  Skype: hudson_bh
  Tele: (31)3434-6304

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] dúvida no fastreport

[Fabinho]

Senhores,

Tenho uma tabela (CAIXA) que controlo o fluxo de
caixa. Nela há as informações de entrada, saída, forma
de transação, numero do cheque, numero do cartão de
crédito, entre outras. Estou fazendo um relatório de
fluxo de caixa com o fastreport 4 usando banco de
dados firebird, e, gostaria de fazer um relatório
assim:


RELATÓRIO DE FLUXO DE CAIXA

codigo: 1
cliente: joão da silva
forma de pagamento: cheque
banco: banco itaú
numero do cheque: 12345
valor: 30,00

codigo: 2
cliente: maria dos santos
forma de pagamento: dinheiro
valor: 50,00

codigo: 3
cliente: fulano ciclano
forma de pagamento: cartão de crédito
bandeira: american express
numero do cartão: 4004 1234 4567 6789
valor: 80,00


Se uma conta for recebida em cheque, aparecessem
apenas os dados do cheque, e não do cartão, e assim
por diante. Se não fui muito claro, ou se alguém tem
um relatório modelo, por favor me digam.

Grato.


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

Res: Res: [delphi-br] Fastreport

[Fabinho]

Resolvido, obrigado.


- Mensagem original 
De: Rodrigo Bevilacqua Marcondes <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 26 de Setembro de 2007 23:21:43
Assunto: Res: [delphi-br] Fastreport

Olá

Tente assim 

if [campo_tipo_ SMALLINT] = 0 then
Memo:= 'SIM'
else
Memo:= 'NÃO';

Rodrigo®¿®

---

Moçada boa noite,

Tenho um relatório de clientes desenvolvido com o Fastreport. Tenho um campo 
tipo SMALLINT que tem dados 0 ou 1. Gostaria de, no meu relatório, quando o 
dado for 0, mostre SIM e 1, NÃO.

Alguém dá uma luz?

Grato.

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Fastreport

[Fabinho]

Moçada boa noite,


Tenho um relatório de clientes desenvolvido com o Fastreport. Tenho um campo 
tipo SMALLINT que  tem dados 0 ou 1. Gostaria de, no meu relatório, quando o 
dado for 0, mostre SIM e 1, NÃO.


Alguém dá uma luz?

Grato.




  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: Fwd: Res: Res: [delphi-br] componentes criados dinamicamente

[Fabinho]

Na verdade a procedure que dispara o evento não está de fato no código, porque 
não sei onde colocar ela. Onde declaro ela? Onde descrevo?

procedure EventoClick;
var DA: TJvDesktopAlert;
begin
DA.Close(FALSE) ;
end; 




- Mensagem original 
De: dercino <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 20 de Setembro de 2007 11:10:12
Assunto: Fwd: Res: Res: [delphi-br] componentes criados dinamicamente

O que está acontecendo? E evento não está sendo executado?

--- Em [EMAIL PROTECTED] os.com.br, Fabinho  
escreveu

Na verdade não é um TButton que estou trabalhando, é um 
TJvDesktopAlert. Usei o TButton para tentar ser mais simples. Peço 
desculpas pela explicação ruim. Vou tentar ser mais claro: copiei 
apenas a parte relevante do código, na qual explico as partes em 
negrito:

- JvDesktopalert: é o component do Project Jedi, que mostra um aviso 
semelhante ao do MSN Messenger;
- Mens: registro que cria o JvDesktopalert. Como serão criados 
vários dinamicamente, optei por fazer assim.
- alarmes: variável de referência ao record.
- OnMessageClick: Evento nativo do componente JvDesktopalert.
- EventoClick: é o meu evento em si, que teoricamente dispara o 
OnMessageClick. Esse evento está perdido lá embaixo, pois não sei 
onde colocá-lo.

Espero ter esclarecido. Agradeço antecipadamente qualquer ajuda.




unit un_hospedagens;

interface

uses
(...), JvDesktopAlert;

type
TDespertador = record
Mens : TJvDesktopAlert;
end;

Tfo_hospedagens = class(TForm)
private
{ Private declarations }
alarmes : array of Tdespertador;
public
{ Public declarations }
end;

var
fo_hospedagens: Tfo_hospedagens;

implementation

{$R *.dfm}

procedure Tfo_hospedagens. btAlarmeClick( Sender: TObject);
begin
setlength(alarmes, length(alarmes) + 1);
with alarmes[high( alarmes)] do
begin
Mens := TJvDesktopAlert. Create(self) ;
with Mens do
OnMessageClick := EventoClick;
end;
end;
end;


// segue o evento perdido
procedure EventoClick;
var DA: TJvDesktopAlert;
begin
DA.Close(FALSE) ;
end; 






  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] componentes criados dinamicamente

[Fabinho]

Na verdade não é um TButton que estou trabalhando, é um TJvDesktopAlert. Usei o 
TButton para tentar ser mais simples. Peço desculpas pela explicação ruim. Vou 
tentar ser mais claro: copiei apenas a parte relevante do código, na qual 
explico as partes em negrito:
 
- JvDesktopalert: é o component do Project Jedi, que mostra um aviso semelhante 
ao do MSN Messenger;
- Mens: registro que cria o JvDesktopalert. Como serão criados vários 
dinamicamente, optei por fazer assim.
- alarmes: variável de referência ao record.
- OnMessageClick: Evento nativo do componente JvDesktopalert.
- EventoClick: é o meu evento em si, que teoricamente dispara o OnMessageClick. 
Esse evento está perdido lá embaixo, pois não sei onde colocá-lo.
 
Espero ter esclarecido. Agradeço antecipadamente qualquer ajuda.
 
 
 
 
unit un_hospedagens;
 
interface
 
uses
  (...), JvDesktopAlert;
 
type
  TDespertador = record
  Mens  : TJvDesktopAlert;
  end;
 
  Tfo_hospedagens = class(TForm)
  private
{ Private declarations }
alarmes : array of Tdespertador;
  public
{ Public declarations }
  end;
 
var
  fo_hospedagens: Tfo_hospedagens;
 
implementation
 
{$R *.dfm}
 
procedure Tfo_hospedagens.btAlarmeClick(Sender: TObject);
begin
  setlength(alarmes,length(alarmes) + 1);
  with alarmes[high(alarmes)] do
   begin
Mens := TJvDesktopAlert.Create(self);
with Mens do
 OnMessageClick := EventoClick;
   end;
 end;
end;
 
 
// segue o evento perdido
procedure EventoClick;
var DA: TJvDesktopAlert;
begin
  DA.Close(FALSE);
end; 
 







- Mensagem original 
De: Ricardo César Cardoso <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 20 de Setembro de 2007 10:15:03
Assunto: Re: Res: [delphi-br] componentes criados dinamicamente

Agora vc que me confundiu: 

Vc tem mais de um tipo de OnClick? Por exemplo se clicou no botão 1 faz 
determinado procedimento e se for em botão 2 faz outro? Pq se for assim, basta 
vc codificar os eventos e sugeriria um type para tratar.

Sds,
Ricardo.

Fabinho  escreveu: Obrigado pela atenção, Ricardo. 
Mas o problema é que esse meu TButton é criado um array dinâmico. Suponho que 
eu preciso de um desses três:

Criar uma classe para tratar o evento;
Criar um type para tratar o evento;
Criar uma procedure of object para tratar o evento;

E agora?

- Mensagem original 
De: Ricardo César Cardoso 
Para: [EMAIL PROTECTED] os.com.br
Enviadas: Quinta-feira, 20 de Setembro de 2007 9:37:44
Assunto: Re: [delphi-br] componentes criados dinamicamente

Tá na mão:

/*** * /
procedure TForm1.FormMouseDow n(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var b:tbutton;
begin
b:=Tbutton.create( self);
b.visible:=false;
b.parent:=self;
b.left:=x;
b.top:=y;
b.name:='Btn' +inttostr( contador) ;
b.Caption:=' Clique-me' ;
inc(contador) ;
b.visible:=true;
b.onclick:=clicou; // <= aqui está o que vc precisa. É só descrever o 
procedimento na procedure "Clicou"
end;

procedure TForm1.clicou( sender: TObject);
begin
ShowMessage( 'Clicou!! !');
end;
/*** * ***/

Fabinho  escreveu: Senhores, criei um componente 
dinamicamente, mas não consigo associar um evento a ele. Por exemplo, se eu 
criar um TButton, quero criar um evento Onclick pra ele. Como faço?

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

_

Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]





Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] componentes criados dinamicamente

[Fabinho]

Peço desculpas pela explicação ruim. Vou tentar ser mais claro: copiei apenas a 
parte relevante do código, na qual explico as partes em negrito:

- JvDesktopalert: é o component do Project Jedi, que mostra um aviso semelhante 
ao do MSN Messenger;
- Mens: registro que cria o JvDesktopalert. Como serão criados vários 
dinamicamente, optei por fazer assim.
- alarmes: variável de referência ao record.
- OnMessageClick: Evento nativo do componente JvDesktopalert.
- EventoClick: é o meu evento em si, que teoricamente dispara o OnMessageClick. 
Esse evento está perdido lá embaixo, pois não sei onde colocá-lo.

Espero ter esclarecido. Agradeço antecipadamente qualquer ajuda.




unit un_hospedagens;

interface

uses
  (...), JvDesktopAlert;

type
  TDespertador = record
  Mens  : TJvDesktopAlert;
  end;

  Tfo_hospedagens = class(TForm)
  private
{ Private declarations }
alarmes : array of Tdespertador;
  public
{ Public declarations }
  end;

var
  fo_hospedagens: Tfo_hospedagens;

implementation

{$R *.dfm}

procedure Tfo_hospedagens.btAlarmeClick(Sender: TObject);
begin
  setlength(alarmes,length(alarmes) + 1);
  with alarmes[high(alarmes)] do
   begin
Mens := TJvDesktopAlert.Create(self);
with Mens do
 OnMessageClick := EventoClick;
   end;
 end;
end;


// segue o evento perdido
procedure EventoClick;
var DA: TJvDesktopAlert;
begin
  DA.Close(FALSE);
end;
 



- Mensagem original 
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 20 de Setembro de 2007 9:55:06
Assunto: RES: [delphi-br] componentes criados dinamicamente

Cara, você explica muito mal seus problemas.

Mas pelo que consegui entender seu botão está num array de ponteiros?

É só fazer um cast.

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Fabinho
Enviada em: quinta-feira, 20 de setembro de 2007 09:46
Para: [EMAIL PROTECTED] os.com.br
Assunto: Res: [delphi-br] componentes criados dinamicamente

Obrigado pela atenção, Ricardo. Mas o problema é que esse meu TButton é criado 
um array dinâmico. Suponho que eu preciso de um desses três:

Criar uma classe para tratar o evento;
Criar um type para tratar o evento;
Criar uma procedure of object para tratar o evento;

E agora?

- Mensagem original 
De: Ricardo César Cardoso mailto:ricardo_ 
engsoft%40yahoo. com.br> >
Para: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> 
Enviadas: Quinta-feira, 20 de Setembro de 2007 9:37:44
Assunto: Re: [delphi-br] componentes criados dinamicamente

Tá na mão:

/*** * /
procedure TForm1.FormMouseDow n(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var b:tbutton;
begin
b:=Tbutton.create( self);
b.visible:=false;
b.parent:=self;
b.left:=x;
b.top:=y;
b.name:='Btn' +inttostr( contador) ;
b.Caption:=' Clique-me' ;
inc(contador) ;
b.visible:=true;
b.onclick:=clicou; // <= aqui está o que vc precisa. É só descrever o 
procedimento na procedure "Clicou"
end;

procedure TForm1.clicou( sender: TObject);
begin
ShowMessage( 'Clicou!! !');
end;
/*** * ***/

Fabinho  escreveu: Senhores, criei um componente 
dinamicamente, mas não consigo associar um evento a ele. Por exemplo, se eu 
criar um TButton, quero criar um evento Onclick pra ele. Como faço?

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

_

Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] componentes criados dinamicamente

[Fabinho]

Obrigado pela atenção, Ricardo. Mas o problema é que esse meu TButton é criado 
um array dinâmico. Suponho que eu preciso de um desses três:

Criar uma classe para tratar o evento;
Criar um type para tratar o evento;
Criar uma procedure of object para tratar o evento;

E agora?




- Mensagem original 
De: Ricardo César Cardoso <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 20 de Setembro de 2007 9:37:44
Assunto: Re: [delphi-br] componentes criados dinamicamente

Tá na mão:

/*** * /
procedure TForm1.FormMouseDow n(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var b:tbutton;
begin
b:=Tbutton.create( self);
b.visible:=false;
b.parent:=self;
b.left:=x;
b.top:=y;
b.name:='Btn' +inttostr( contador) ;
b.Caption:=' Clique-me' ;
inc(contador) ;
b.visible:=true;
b.onclick:=clicou; // <= aqui está o que vc precisa. É só descrever o 
procedimento na procedure "Clicou"
end;

procedure TForm1.clicou( sender: TObject);
begin
ShowMessage( 'Clicou!! !');
end;
/*** * ***/

Fabinho  escreveu: Senhores, criei um componente 
dinamicamente, mas não consigo associar um evento a ele. Por exemplo, se eu 
criar um TButton, quero criar um evento Onclick pra ele. Como faço?

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]



_

Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] componentes criados dinamicamente

[Fabinho]

Senhores, criei um componente dinamicamente, mas não consigo associar um evento 
a ele. Por exemplo, se eu criar um TButton, quero criar um evento Onclick pra 
ele. Como faço?


  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Project JEDI

[Fabinho]

Gostaria de amontoar as janelas do TJvdesktopalert, com o uso do 
TJvdesktopalertstack. Alguém dá uma luz?


grato.


- Mensagem original 
De: Ricardo César Cardoso <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 14 de Setembro de 2007 14:59:01
Assunto: Re: [delphi-br] Project JEDI

Se não for nada muito difícil o pessoal aqui responde :P

Sds,
Ricardo.

Fabinho  escreveu: Boa tarde senhores,

Tenho algumas dúvidas sobre componentes JEDI. Gostaria de saber se aqui é 
viável perguntar ou se existe outro fórum mais especializado no assunto.

grato.

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]



Mensagens neste tópico (1) Responder (através da web) | Adicionar um novo 
tópico 
Mensagens | Arquivos | Fotos | Links | Banco de dados 
-- 

Flickr agora em português. Você clica, todo mundo vê. Saiba mais.

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Project JEDI

[Fabinho]

Boa tarde senhores,

Tenho algumas dúvidas sobre componentes JEDI. Gostaria de saber se aqui é 
viável perguntar ou se existe outro fórum mais especializado no assunto.


grato.


  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] erro de read-only

[Fabinho]

Olá Robson,

Na verdade já solucionei. Esse erro ocorria porque coloquei ZERO como valor 
default no campo. Tirei isso e o erro não ocorreu mais. De qualquer forma, 
agradeço-lhe a atenção.

abraço.




- Mensagem original 
De: Robson <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 14 de Setembro de 2007 12:47:11
Assunto: Res: [delphi-br] erro de read-only

Desculpa a demora mas se ainda naum conseguiu seque a resposta:
no componente de transação (TpFIBTransaction) dá dois cliques nele e no 'kind 
of transaction' troque para 'readcommitted' .


Kaputz, Robson
Skype: kaputz_gri

"Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu 
amigo...
...E nessa busca empenho a minha própria alma, pois com uma Amizade Verdadeira, 
a vida se torna mais simples, mais rica e mais bela..." Charlie Chaplin .

- Mensagem original 
De: Fabinho 
Para: lista-delphi@ yahoogrupos. com.br
Cc: [EMAIL PROTECTED] os.com.br
Enviadas: Terça-feira, 11 de Setembro de 2007 20:10:44
Assunto: [delphi-br] erro de read-only

Moçada boa noite,

Tenho uma tabela e uso os componentes FibPlus para trabalhar com ela. No 
Insertquery do dataset, o fibplus automaticamente insere apenas os campos 
não-calculados. Mas quando vou ativar o dataset, dá o erro:

tabela.Insertquery:
this column cannot be updated because it is derived from an sql function or 
expression. Attempted update of read-only column.

Mas não tem nenhum campo camputed by nessa lista. Por que dá isso?

grato.

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] trabalhar com data

[Fabinho]

Olá Andrei,

Até aí tudo bem. Vou te explicar o que eu quero: Tenho um sistema para hotel, 
onde os clientes querem ser despertados num certo horário do dia, normalmente 
de manhã cedo. Preciso ser informado 5 minutos antes do horário prédeterminado 
a despertar o cliente para poder ligar para ele, e não posso ficar varrendo a 
tabela a cada minuto: o ideal seria varrer a cada meia hora, se houver um 
registro ou mais que terão de ser avisados nesse período, ele guardasse numa 
lista e me avisasse 5 minutos antes.

Se alguém puder ajudar ou tiver uma idéia melhor para isso, sou antecipadamente 
agradecido.


abraço!



- Mensagem original 
De: Andrei Luís <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 13 de Setembro de 2007 9:27:46
Assunto: Re: [delphi-br] trabalhar com data

Utilize um TTimer, e no evento OnTimer pesquise o campo no seu bd e
compare com a hora atual, se hora do campo - hora atual = 5 exibe uma
msg.

[]
Andrei

Em 12/09/07, Fabinho escreveu:
> Senhores, boa noite.
>
>
> Tenho um campo do tipo timestamp no firebird. Preciso ser informado 5 minutos 
> antes do valor desse campo, que é do tipo TDatetime, seja igual ao timestamp 
> atual. Uso Delphi 7 e Firebird 2.1.
>
>
> grato.




  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] trabalhar com data

[Fabinho]

Senhores, boa noite.


Tenho um campo do tipo timestamp no firebird. Preciso ser informado 5 minutos 
antes do valor desse campo, que é do tipo TDatetime, seja igual ao timestamp 
atual. Uso Delphi 7 e Firebird 2.1.


grato.




  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] firebird

[Fabinho]

Moçada boa noite. 

Este fórum é permitido para perguntas sobre Delphi usando Firebird?


grato.




  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] erro de read-only

[Fabinho]

Moçada boa noite,

Tenho uma tabela e uso os componentes FibPlus para trabalhar com ela. No 
Insertquery do dataset, o fibplus automaticamente insere apenas os campos 
não-calculados. Mas quando vou ativar o dataset, dá o erro:


tabela.Insertquery:
this column cannot be updated because it is derived from an sql function or 
expression. Attempted update of read-only column.



Mas não tem nenhum campo camputed by nessa lista. Por que dá isso?

grato.




  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] actions

[fabinho]

Já fiz esse teste. Ele executava primeiro o onclick, depois o action. Mas como 
a informática é uma ciência exotérica, agora ele executa primeiro a action. 
Será que isso é configurável?




  - Original Message - 
  From: Logos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, September 09, 2007 11:34 AM
  Subject: Re: [delphi-br] actions


  faca um teste... coloqueo uma mensagem no action... e outra no click... veja 
o q aparece primeiro
  - Original Message - 
  From: fabinho 
  To: Undisclosed-Recipient:; 
  Sent: Sunday, September 09, 2007 11:30 AM
  Subject: [delphi-br] actions

  Moçada bom dia e bom domingo a todos,

  Gostaria de saber uma coisa sobre actions: Tenho uma TActionList com algumas 
actions para banco de dados, como Post e Cancel. Mas se, eu coloco um código 
qualquer no evento Onclick de um botão com sua action configurada para Post, 
por exemplo, o que o delphi faz primeiro? executa a action ou o código do 
Onclick do botão?

  grato.

  [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.485 / Virus Database: 269.13.12/997 - Release Date: 9/9/2007 
10:17

  [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.485 / Virus Database: 269.13.12/997 - Release Date: 9/9/2007 
10:17


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] actions

[fabinho]

Moçada bom dia e bom domingo a todos,

Gostaria de saber uma coisa sobre actions: Tenho uma TActionList com algumas 
actions para banco de dados, como Post e Cancel. Mas se, eu coloco um código 
qualquer no evento Onclick de um botão com sua action configurada para Post, 
por exemplo, o que o delphi faz primeiro? executa a action ou o código do 
Onclick do botão?


grato.

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: [delphi-br] setar componentes em lote

[Fabinho]

Davi, realmente está retornando nil. Mas os componentes existem, e são da 
classe Tjvlabel.
Por que será que ele retorna nil? Fiz da forma que você sugeriu e não dá mais o 
erro, mas ele
retorna nil.


- Mensagem original 
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 5 de Setembro de 2007 8:38:49
Assunto: RES: [delphi-br] setar componentes em lote

Eu sou mais adivinhão!! =D

with TJvlabel(FindCompon ent(apart) ) do

Provavelmente o erro da nessa linha sim, provavelmente FindComponent( apart) 
está retornando nil.

Tente fazer desta forma 

If assigned(TJvlabel( FindCompon ent(apart) ) then

with TJvlabel(FindCompon ent(apart) ) do

...

...

...

[]'s

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Andre Luis Silveria
Enviada em: quarta-feira, 5 de setembro de 2007 08:10
Para: [EMAIL PROTECTED] os.com.br
Assunto: Res: [delphi-br] setar componentes em lote

Primeiro qual o erro que ele retorna ?

Podemos ser bons em programação, mas advinhar acho que ninguem aqui consegue...

Mas vou arriscar, se o seu problema está na linha:

if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0;

tente usar a unit variants.

GYNCOWBOY 
André Luis da Silveira

- Mensagem original 
De: Fabinho mailto:gataschegue i%40yahoo. com.br> 
>
Para: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> ; 
lista-delphi@ yahoogrupos. com.br <mailto:lista- delphi%40yahoogr upos.com. br> 
Enviadas: Terça-feira, 4 de Setembro de 2007 21:35:52
Assunto: [delphi-br] setar componentes em lote

Moçada, boa noite.

Tenho um form com 36 Tjvlabel. Esses componentes tem a propriedade Imageindex, 
que

preciso setar como 0 ou 1, conforme um dado vindo do campo tabeladata, no banco 
de dados, com 36 registros.

Esses tjvlabels são nomeados assim: lb101, lb102... até lb136.

Os registros no campo tabeladata (tipo integer) vão de 1 a 36.

Na procedure abaixo, o delphi passa para a variavel apart a string 'lb1' mais o 
dado do campo

tabeladata formatado, que no primeiro registro é 1, formatando vira 01. 
Portanto, a variavel

apart fica com o valor 'lb101', que ´nome do primeiro Tjvlabel. Então o delphi

varre a tabela lendo o dado no campo tabeladata. Se esse dado for null, seta a 
propriedade imageindex do primeiro Tjvlabel - nesse caso o lb101 - para 1, senão

seta para 0. Próximo registro, e tudo de novo. Acontece que, ele da erro na 
linha abaixo:

with TJvlabel(FindCompon ent(apart) ) do 

var apart: string;

begin

tabela.First;

while not tabela.Eof do begin

apart := 'lb1' + FormatFloat( '00',FIBIntegerF ield3.Value) ; 

with TJvlabel(FindCompon ent(apart) ) do 

if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0;

tabela.Next;

end;

end;

grato.

Flickr agora em português. Você clica, todo mundo vê.

http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]







Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: Res: [delphi-br] setar componentes em lote

[Fabinho]

Desculpe, esqueci de informar o erro. É um daqueles erros maravilhosos:

"Access violation at address 005e7cee in module 'project1.exe'. Read of address 
01ac."

Executei com o F7 e ele aparentemente dá o erro na linha abaixo:

with Tjvlabel(FindComponent(apart)) do 


grato pela atenção.



- Mensagem original 
De: Andre Luis Silveria <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 5 de Setembro de 2007 8:09:32
Assunto: Res: [delphi-br] setar componentes em lote

Primeiro qual o erro que ele retorna ?

Podemos ser bons em programação, mas advinhar acho que ninguem aqui consegue...

Mas vou arriscar, se o seu problema está na linha:

if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0;

tente usar a unit variants.

GYNCOWBOY 
André Luis da Silveira

- Mensagem original 
De: Fabinho 
Para: [EMAIL PROTECTED] os.com.br; lista-delphi@ yahoogrupos. com.br
Enviadas: Terça-feira, 4 de Setembro de 2007 21:35:52
Assunto: [delphi-br] setar componentes em lote

Moçada, boa noite.

Tenho um form com 36 Tjvlabel. Esses componentes tem a propriedade Imageindex, 
que

preciso setar como 0 ou 1, conforme um dado vindo do campo tabeladata, no banco 
de dados, com 36 registros.

Esses tjvlabels são nomeados assim: lb101, lb102... até lb136.

Os registros no campo tabeladata (tipo integer) vão de 1 a 36.

Na procedure abaixo, o delphi passa para a variavel apart a string 'lb1' mais o 
dado do campo

tabeladata formatado, que no primeiro registro é 1, formatando vira 01. 
Portanto, a variavel

apart fica com o valor 'lb101', que ´nome do primeiro Tjvlabel. Então o delphi

varre a tabela lendo o dado no campo tabeladata. Se esse dado for null, seta a 
propriedade imageindex do primeiro Tjvlabel - nesse caso o lb101 - para 1, senão

seta para 0. Próximo registro, e tudo de novo. Acontece que, ele da erro na 
linha abaixo:

with TJvlabel(FindCompon ent(apart) ) do 

var apart: string;

begin

tabela.First;

while not tabela.Eof do begin

apart := 'lb1' + FormatFloat( '00',FIBIntegerF ield3.Value) ; 

with TJvlabel(FindCompon ent(apart) ) do 

if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0;

tabela.Next;

end;

end;

grato.

Flickr agora em português. Você clica, todo mundo vê.

http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]







Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] setar componentes em lote

[Fabinho]

Moçada, boa noite.

Tenho um form com 36 Tjvlabel. Esses componentes tem a propriedade Imageindex, 
que
preciso setar como 0 ou 1, conforme um dado vindo do campo tabeladata, no banco 
de dados, com 36 registros.

Esses tjvlabels são nomeados assim: lb101, lb102... até lb136.
Os registros no campo tabeladata (tipo integer) vão de 1 a 36.

Na procedure abaixo, o delphi passa para a variavel apart a string 'lb1' mais o 
dado do campo
tabeladata formatado, que no primeiro registro é 1, formatando vira 01. 
Portanto, a variavel
apart fica com o valor 'lb101', que ´nome do primeiro Tjvlabel. Então o delphi
varre a tabela lendo o dado no campo tabeladata. Se esse dado for null, seta a 
propriedade imageindex do primeiro Tjvlabel - nesse caso o lb101 - para 1, senão
seta para 0. Próximo registro, e tudo de novo. Acontece que, ele da erro na 
linha abaixo:
   with TJvlabel(FindComponent(apart)) do 

var apart: string;
begin
  tabela.First;
  while not tabela.Eof do begin
  apart := 'lb1' + FormatFloat('00',FIBIntegerField3.Value); 
   with TJvlabel(FindComponent(apart)) do 
 if tabelaData.Value = null then .ImageIndex := 1 else ImageIndex := 0;
   tabela.Next;
   end;
end;



grato.




  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]

Res: RES: Res: [delphi-br] JvDBLookupCombox

[Fabinho]

Aproveitando o ensejo, gostaria de saber porque meu TJvdblookupcombobox exibe
apenas uma linha na lista drop-down. Tenho vários itens (detalhes), mas ele 
mostra uma linha
com um item apenas. Vale lembrar que a propriedade Dropdownrows está como 7.

grato pela atenção, no aguardo.




- Mensagem original 
De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 4 de Setembro de 2007 13:34:34
Assunto: RES: Res: [delphi-br] JvDBLookupCombox

Como assim?

O padrão Windows é ALT+SETA PRA BAIXO.

Isso não serve?? Vc quer que o dropdown aconteça com o usuário pressionando a 
seta pra baixo?

É só pegar a tecla no keypress .. key = vk_down e mandar abrir o lookup.

De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de 
Evaldo
Enviada em: terça-feira, 4 de setembro de 2007 10:40
Para: [EMAIL PROTECTED] os.com.br
Assunto: Res: Res: [delphi-br] JvDBLookupCombox

isso funciona, mas não serve, o usuário tem apenas que teclar para baixo. 
Obrigado pela ajuda

- Mensagem original 
De: Luis Lopes mailto:luisalberto 
lopes%40yahoo. com.br> >
Para: [EMAIL PROTECTED] os.com.br  
Enviadas: Terça-feira, 4 de Setembro de 2007 9:43:33
Assunto: Res: [delphi-br] JvDBLookupCombox

Já tentou ALT + seta-pra-baixo? !

Luis Alberto P. Lopes

Desenvolvimento de Sistemas

Belo Horizonte - Minas Gerais

- Mensagem original 

De: Evaldo 

Para: [EMAIL PROTECTED] os.com.br

Enviadas: Terça-feira, 4 de Setembro de 2007 9:16:21

Assunto: [delphi-br] JvDBLookupCombox

Eu estou com um probleminha meio bobo mas que está me dando uma surra danada, 
como fazer para expandir o JvDBLookupCombox através do teclado? porque só 
consigo pelo mouse. Pelo teclado só eh possível percorrer os itens . Dei uma 
olhada pela net, mas não encontrei nada a respeito. Se alguém puder da uma 
dica...

Flickr agora em português. Você clica, todo mundo vê.

http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

-- 

< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Links do Yahoo! Grupos

Flickr agora em português. Você clica, todo mundo vê.

http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]







Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr. com.br/

[As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]





  Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/

[As partes desta mensagem que não continham texto foram removidas]