RE:[delphi-br] Verificar existência de propriedade
Pesquise a respeito da RTTI você encontrará a solução. Acesse http://developer-studio.blogspot. com para dicas de delphi e notícias sobre tecnologia e desenvolvimento de software. 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]
[delphi-br] documentação XML
pessoal uma vez que eu gero a documentação XMl do meu projeto, como eu posso gerar um documento de ajuda html e integra-lo ao help do delphi? uso o delphi 2006. obrigado desde já!
[delphi-br] String to Array of Char ...
Boa tarde pessoal, gostaria de saber se alguem de vocês conhece uma função que converta uma string num array de char, ou mesmo algumas de dicas de como eu posso fazer uma. Conto com a ajuda de vocês e obrigado desde já!!
Res: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt
verifique se a propriedade LoginPrompt do sqlconnection está como True, Caso esteja mude para False. - Mensagem original De: Coutinho - Yahoo <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 29 de Setembro de 2008 1:03:27 Assunto: [delphi-br] Usando dbExpress No Delphi 6 - Login Prompt Pessoal Estou usando o DBExpress com banco de dados firebird. Estou querendo qque o sistema abra uma tabela de configuração do meu programa, e para isso tem de conectar no banco. Só que peço que o componente sqlConection deixe a conexão sem efetuar login... conecte diretamente. Na conexão já tem o usuário Sysdba e senma masterkey... só que não quero que faça o login, pois vou validar os usuários no sistema, e não no banco. Alguém sabe o porquê de o banco ficar pedindo senha para conexão? Já fui no IBExpress e verifiquei, e não consigo achar uma ração... no Delphi 2006 funciona... faz a conexão no mesmo banco sem problemas... Alguém tem como me ajudar? É bug do dbExpress? Agradeço desde já. Sds Emanuel Coutinho 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]
Res: [delphi-br] Como fazer visualizações no est ilo do WMP?
eu gostaria de criar aquelas vizualizações que acompanham o ritmo da música enquanto ela toca. - Mensagem original De: Rubem Nascimento da Rocha <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 28 de Setembro de 2008 16:05:25 Assunto: RE: [delphi-br] Como fazer visualizações no estilo do WMP? Detalhe mais o q vc quer realmente dizer (e fazer) sobre "vizualizações no estilo do windows media player". Sds. _ _ __ To: [EMAIL PROTECTED] os.com.br From: [EMAIL PROTECTED] .com Date: Sat, 27 Sep 2008 21:55:41 + Subject: [delphi-br] Como fazer visualizações no estilo do WMP? Pessoal estou fazer um media player para finalidade de estudo no delphi, e gostaria de saber se alguem de vocês sabe como fazer vizualizações no estilo do windows media player. Obrigado desde já e conto a ajuda de vocês! _ _ _ _ _ _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile. live.com/ signup/signup2. aspx?lc=pt- br Mensagens neste tópico (2) Responder (através da web) | Adicionar um novo tópico Mensagens | Arquivos | Fotos | Links | Banco de dados -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Alterar configurações via web (Requer Yahoo! ID) Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo Atividade nos últimos dias * 5 Novos usuáriosVisite seu Grupo Yahoo! Mail Conecte-se ao mundo Proteção anti-spam Muito mais espaço Yahoo! Barra Instale grátis Buscar sites na web Checar seus e-mails . Yahoo! Grupos Crie seu próprio grupo A melhor forma de comunicação . __,_.._,___ 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]
Res: Res: [delphi-br] BDS 2006 e Delphi 2009 no mesmo computador?
durante a tela de splash enquanto as bpl's são carregadas ocorre o erro mais ou menos assim: "A imagem do arquivo é inválida, compare com o disco de instalação" isso ocorre com vários arquivos e depois o splash some e nada do delphi aparecer, já reinstalei duas vezes, o que pode ser?? - Mensagem original De: Adriano Santos (Y!) <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sábado, 27 de Setembro de 2008 10:56:33 Assunto: Re: Res: [delphi-br] BDS 2006 e Delphi 2009 no mesmo computador? Carlos, Desculpe, muito subjetiva sua resposta. O que não funciona o Delphi 2009 com o 2006 instalado? Qual o problema? Erro de compilação, bibliotecas, não abre. O que ocorre? []s -- Boa Leitura, Adriano Santos Director X-35 Consulting && Development Development Manager SoftPark Technical Editor Magazines ClubeDelphi && WebMobile www.delphitodelphi. blogspot. com www..adrianosantos. pro.br www.devmedia. com.br www.dug-sp.com carlos eduardo pacheco menezes respondeu: > > No meu caso não Ricardo, o D2009 não funciona nem com reza brava, já o > BDS2006 roda aparentemente sem nenhum problema... > > - Mensagem original > De: Ricardo Lima <[EMAIL PROTECTED] com <mailto:rlmariz% 40gmail.com> > > Para: [EMAIL PROTECTED] os.com.br <mailto:delphi- br%40yahoogrupos .com.br> > Enviadas: Sexta-feira, 26 de Setembro de 2008 20:09:06 > Assunto: [delphi-br] BDS 2006 e Delphi 2009 no mesmo computador? > > Alguem já instalou o Delphi 2009 em um computador que tem o BDS 2006? > Os dois funcionam sem problemas problemas? > > Obrigado. > > At. > Ricardo Lima > > > 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 > <http://br.new. mail.yahoo. com/addresses> > > [As partes desta mensagem que não continham texto foram removidas] > > 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] Como fazer visualizações no estilo do WMP?
Pessoal estou fazer um media player para finalidade de estudo no delphi, e gostaria de saber se alguem de vocês sabe como fazer vizualizações no estilo do windows media player. Obrigado desde já e conto a ajuda de vocês!
Res: [delphi-br] BDS 2006 e Delphi 2009 no mesmo computador?
No meu caso não Ricardo, o D2009 não funciona nem com reza brava, já o BDS2006 roda aparentemente sem nenhum problema... - Mensagem original De: Ricardo Lima <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 26 de Setembro de 2008 20:09:06 Assunto: [delphi-br] BDS 2006 e Delphi 2009 no mesmo computador? Alguem já instalou o Delphi 2009 em um computador que tem o BDS 2006? Os dois funcionam sem problemas problemas? Obrigado. At. Ricardo Lima 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]
Res: [delphi-br] Ajuda com Forms Modais
Tente usar MessageBox ao invés de Application.Message.box
- Mensagem original
De: Odail Della Niesi Junior <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 18 de Setembro de 2008 13:24:55
Assunto: [delphi-br] Ajuda com Forms Modais
Pessoal,
Estou com o seguinte problema: tenho um método para excluir registro!
Conforme procedure abaixo:
procedure TfMedicosManutencao .btExcluirClick( Sender: TObject);
begin
inherited;
if Application. MessageBox( PChar('Excluir '+
DMPesquisa.cdsMEDIC ONM_MEDICO. AsString +'?'), PChar(Application. Title), +
MB_YESNO + MB_ICONQUESTION )=mrYes then
begin
DMManut.cdsMedManut .Delete;
DMManut.cdsMedManut .ApplyUpdates( 0);
MessageDlg(' Registro excluido com sucesso !', mtInformation, [mbOk],
0);
Close;
end;
end;
A chamada desse form é feita através da procedure abaixo:
procedure TfMedicosPesquisa. DBGrid1DblClick( Sender: TObject);
begin
inherited;
try
Application. CreateForm( TfMedicosManuten cao, fMedicosManutencao) ;
fMedicosManutencao. Inserindo := False;
fMedicosManutencao. ShowModal;
finally
fMedicosManutencao. Free;
end;
end;
Acontece que a confirmação para excluir o registro fica atrás do form e o
usuário acha que o sistema encontra-se travado e na realidade não é isso.
Alguém já consegui contornar esse problema de janelas MODAIS ?
Agradeço antecipadamente a ajuda dos colegas.
--
Odail Della Niesi Junior
São Pedro - São Paulo - Brasil
MSN: [EMAIL PROTECTED] com
Skype: dellaniesi
Paltalk: dellaniesi
[As partes desta mensagem que não continham texto foram removidas]
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] Refresh em DataSetField
bom dia pessoal! estou desenvolvendo um sistema onde existem várias tabelas pai-filho, e estou acessando as tabelas filhas por meio de DataSetField's, o problema é que estou usando métodos herdados que dão refresh sempre que uma operação é feita resultando no erro "DataSetFieldFulanoDeTal missing Data Provider or Data Packet", eu não quero mexer nos métodos citados, então há uma forma de fazer os DataSetField's aceitarem ou invalidarem os Refresh's?? Muito Obrigado desde já. Carlos Eduardo
Res: [delphi-br] Duas perguntas sobre IDE do Delphi 2007
para inciar uma nova aplicação: File>>New>>Vcl Forms Application - Delphi win 32 na barra de menus tem uma combobox lá você deve escolher Classic Undocked, vai ficar igual ao D7 espero ter ajudado, Até mais!! Carlos Eduardo - Mensagem original De: Onjahyr <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 16 de Setembro de 2008 13:01:22 Assunto: [delphi-br] Duas perguntas sobre IDE do Delphi 2007 Olá pessoal Eu uso o Delphi 7 e instalei o Delphi 2007 só para ver como ele é, mas vou baixar depois o Delphi 2009 Trial (por enquanto tô com conexão discada e não vai dar :) ). Eu tô com problemas até de iniciar uma aplicação :D No Delphi 7 vamos em: File >> New >> Aplicattion. No 2007 não tem nova aplicação, como fazer para iniciar uma nova aplicação (já com o formulário padrão, etc...? Outra coisa, como faço para deixar o 2007 com a cara da versão 7? Eu vi essa dica não me lembro onde, mas tem como fazer isso. Agradeço. 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]
Res: [delphi-br] String para TForm
Você tmabém pode tentar usar TCustomForm ao invés de TForm
- Mensagem original
De: Marcos Bernardo <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 16 de Setembro de 2008 10:42:40
Assunto: Re: [delphi-br] String para TForm
De uma pesquisada em RegisterClass no google, help...
Voce deverá registra a classe se não me engano...
e ai sim.. será possivel criar o form a partir de uma String e um CAST
abraço
Marcos Bernardo
2008/9/16 Robson Tazinaffo
> Existe alguma maneira de converter uma string em Tform? To criando uma
> função para Chamar os formularios através do nome adquirido no caption
> de um MainMenu...Segue abaixo o código:
>
> procedure TF_Principal. AcionaFormulario s(Sender: TObject);
> var
> MyMod: HMODULE;
> Componente: TComponent;
> AModule, StringTForm, StringForm: String;
> FormLogon, FormEmpresa: TComponent;
> X: Integer;
>
> begin
> StringTForm := 'T'+(Sender as TMenuItem).Name;
> StringForm := (Sender as TMenuITem).Name;
> Componente := Application. FindComponent( StringForm) ;
> try
> if Componente = nil then begin
> TFormClass(FindClas s(StringTForm) ).Create( Application) ;
> Componente := Application. FindComponent( StringForm) ;
> // A Chamada aqui não da certo
> (Componente as TForm).Show;
>
> // Assim da certo
> { if Trim(StringForm) = 'F_Alunos' then begin
> F_Alunos := TF_Alunos.Create( Self);
> F_Alunos.Top := 1;
> F_Alunos.Left := 1;
> F_Alunos.Show;
> end; }
> end;
> except
> MessageBox(Applicat ion.Handle, 'Não foi possível acessar o Menu
> desejado.' + #13 +
> 'Contate seu Revendedor.' , 'Erro', MB_OK+MB_ICONERROR) ;
> end;
> end;
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
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]
Res: [delphi-br] que duvida!!!!!
Além do suiSkin pode-se citar o VclSkin que é bem popular, Alpha controls que implementa recursos de animação de janelas similares ao do Vista e por fim o SkinCrafter na minha opinião o melhor por que tem efeitos de trânparencia e é bem leve vale resaltar que todos são pagos... espero ter ajudado! Carlos - Mensagem original De: Nicolas <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 8 de Setembro de 2008 16:03:30 Assunto: Re: [delphi-br] que duvida! Isso geralmente se chama Skin, há alguns componentes free e outros pagos, com alguns skins inclusos ou que permitem que vc crie os seus. só cheguei a testar o demo um que era pago, o suiSkin, me pareceu muito bom. []s Alexandre - Original Message - From: Didi To: [EMAIL PROTECTED] os.com.br Sent: Monday, September 08, 2008 3:24 PM Subject: [delphi-br] que duvida! Boa tarde a todos. Eu sei que a pergunta é um tanto fora do padrão. Mas peço permissão a todos para faze-la. É que deu um branco aqui no veio. Vamos lá! Certa vez vi uns forms feitos em delphi que utilizavam uma ferramenta que modificava a aparencias de um dbgrid e do proprio form. Inclusive di bisistemMenu, biMenu,biMaximiz e colocando umas pequenas esferas . Já procurei, mas não consegui localizar este tipo de ferramenta na net. PERGUNTA? Alguem conhece o nome desta ferramenta? Obrigado didi - - - - - - No virus found in this incoming message.. Checked by AVG - http://www.avg. com Version: 8.0.169 / Virus Database: 270.6.19/1659 - Release Date: 8/9/2008 07:01 [As partes desta mensagem que não continham texto foram removidas] 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] "Invalid BLOB handle in record buffer"
Olá a todos os colegas do delphi-br! Gostaria de saber saber se alguém já se deparou com este erro e se há uma solução para o mesmo. trata-se de um sistema multicamadas e a camada servidora tem essa configuração: 3 SqlDataSet's acessando 3 tabelas distintas; sendo um deles o pai; um filho ligado pai por um DataSource; outro filho que se liga ao filho descrito acima também através de um DataSource; A camada cliente tem essa configuração: 3 ClientDataSet's acessando os SqlDataSet's descritos acima; Vou explicar a situação em que ele ocorre: sempre que é tentado um insert/edit e ou delete nas tabelas filhas(ambas possuem um campo BLOB subtype 1) se a tabela que estes componentes acessam estiver vazia, não ocorre problema algum, posso adicionar, alterar ou deletar registros à vontade, mas uma vez fechado o programa já na próxima execução fica impossível fazer qualquer operação sobre os registros existentes.
Re: [delphi-br] Integração Word e Delphi
Eu também não, se puder me enviar , agradeço! [EMAIL PROTECTED] André Luis de Oliveira <[EMAIL PROTECTED]> escreveu: andré não consegui baixar o componente ... vc poderia mandar pra mim: [EMAIL PROTECTED] - Original Message - From: Andre Luis Silveria To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 02, 2007 3:18 PM Subject: Res: [delphi-br] Integração Word e Delphi Procura pelo componente ARWordReport http://www.vector-ski.com/reports Eu uso ele para trabalhar com o Word e é realmente muito bom ... Ele é freeware sem fontes. GYNCOWBOY André Luis da Silveira - Mensagem original De: Berdam Cavaletti <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 1 de Maio de 2007 23:53:02 Assunto: Re: [delphi-br] Integração Word e Delphi não seria melhor vc fazer uma mala direta ou utilizar o rave report para fazer isso??? Carlos <[EMAIL PROTECTED] com.br> escreveu: Boa noite a todos! O que gostaria de fazer sei que existe, só não sei ainda como fazer, por isso conto com o auxílio dos senhores. Tenho um modelo em Word, supondo que seja um modelo de Licença Médica, onde possui campos a serem preenchidos (nome, endreço, data, etc) por dados constantes de um DB através de uma aplicação Delphi. Já vi isto funcionando, mas não tive a oportunidade de visulizar o código, e preciso de algo neste sentido, alguém poderia me dar um auxílio. Agradeço antecipadamente a todos, e que o Criador nos ilumine hoje e sempre. Obrigado. Carlos _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Integração Word e Delphi
Mala direta é como funciona hoje, mas usuário é igual a criança, se tiver oportunidade de mexer em algo que não deva, ele irá mexer. Rave Report será utilizado em relatórios que não tenha um layout complexo, pois devo obedecer ao padrão já existente de formulários existentes na empresa. Inclusive, este de Licença Médica. Berdam Cavaletti <[EMAIL PROTECTED]> escreveu: não seria melhor vc fazer uma mala direta ou utilizar o rave report para fazer isso??? Carlos <[EMAIL PROTECTED]> escreveu: Boa noite a todos! O que gostaria de fazer sei que existe, só não sei ainda como fazer, por isso conto com o auxílio dos senhores. Tenho um modelo em Word, supondo que seja um modelo de Licença Médica, onde possui campos a serem preenchidos (nome, endreço, data, etc) por dados constantes de um DB através de uma aplicação Delphi. Já vi isto funcionando, mas não tive a oportunidade de visulizar o código, e preciso de algo neste sentido, alguém poderia me dar um auxílio. Agradeço antecipadamente a todos, e que o Criador nos ilumine hoje e sempre. Obrigado. Carlos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Controle de usuarios
Bom dia amigos. Ainda não consegui resolver isso, alguém poderia me dar uma ajudinha ?? Carlos E. Carvalho - Original Message - From: Carlos Eduardo Carvalho To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 07, 2006 2:11 PM Subject: Re: [delphi-br] Controle de usuarios Ok. Estou utilizando o TreeView (tentando na verdade), mas ainda não consegui em "RunTime" preencher o TreeView com os itens do menu (TmainMenu). Por enquanto, estou criando um a um em um "CheckBoxList" ou coisa assim, não me lembro o nome correto. Confesso, é um parto. Se alguém tiver algum exemplo de como posso fazer isso, o resto dos controles devo conseguir me virar. Obrigado a todos. Meu sistema é em Delphi 7, com MySQL e estou usando DBexpress. Carlos "Cadu" - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, February 05, 2006 11:08 AM Subject: Re: [delphi-br] Controle de usuarios Utilize o treview é bem mais facil. Clovis - Original Message - From: Carlos To: Undisclosed-Recipient:; Sent: Saturday, February 04, 2006 5:36 PM Subject: [delphi-br] Controle de usuarios Salve, salve companheiros... Novamente, venho aos nobres amigos solicitar ajuda. Estou tentando criar um controle de acessos por nível de usuário - antes de me estender, já testei o UserControl, porém, ele além de "engordar" muito meu executável, apresentou alguns "bugs" (até já os reportei a seu idealizadores a fim de colaborar para sua melhoria, enfim, não quero utiliza-lo, pelo menos por enquanto). O que preciso em principio, é preencher um "ListView" ou um "TreeView", com os itens do meu menu (TMainMenu). Será que alguém poderia me ajudar?? E de repente até me aconselhar qual dos dois componentes utilizar, já que todos já sabem a finalidade. Realmente, agradeço muito a preciosa colaboração. Meu sistema é Delphi7 com MySql Carlos E. Carvalho [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Controle de usuarios
Ok. Estou utilizando o TreeView (tentando na verdade), mas ainda não consegui em "RunTime" preencher o TreeView com os itens do menu (TmainMenu). Por enquanto, estou criando um a um em um "CheckBoxList" ou coisa assim, não me lembro o nome correto. Confesso, é um parto. Se alguém tiver algum exemplo de como posso fazer isso, o resto dos controles devo conseguir me virar. Obrigado a todos. Meu sistema é em Delphi 7, com MySQL e estou usando DBexpress. Carlos "Cadu" - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Sunday, February 05, 2006 11:08 AM Subject: Re: [delphi-br] Controle de usuarios Utilize o treview é bem mais facil. Clovis - Original Message - From: Carlos To: Undisclosed-Recipient:; Sent: Saturday, February 04, 2006 5:36 PM Subject: [delphi-br] Controle de usuarios Salve, salve companheiros... Novamente, venho aos nobres amigos solicitar ajuda. Estou tentando criar um controle de acessos por nível de usuário - antes de me estender, já testei o UserControl, porém, ele além de "engordar" muito meu executável, apresentou alguns "bugs" (até já os reportei a seu idealizadores a fim de colaborar para sua melhoria, enfim, não quero utiliza-lo, pelo menos por enquanto). O que preciso em principio, é preencher um "ListView" ou um "TreeView", com os itens do meu menu (TMainMenu). Será que alguém poderia me ajudar?? E de repente até me aconselhar qual dos dois componentes utilizar, já que todos já sabem a finalidade. Realmente, agradeço muito a preciosa colaboração. Meu sistema é Delphi7 com MySql Carlos E. Carvalho [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Mysql no Delphi 5
Utilize o MyODBC, baixe em: http://dev.mysql.com/get/Downloads/MyODBC3/mysql-connector-odbc-3.51.12-win32.msi/from/pick#mirrors E utilize a conexão via ODBC, com a paleta ADO do Delphi que é bem mais prático. Com isso, voce evita de usar a bosta do BDE. --- Eduardo Paci Galvão <[EMAIL PROTECTED]> escreveu: - Pessoal, Existe alguma suite de banco de dados para MySql, em que não seja necessário usar o BDE, para Delphi 5? Saudações, Eduardo Paci Galvão Engenheiro Eletricista UFMG 1990 www.egalvao.com.br MSN: [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > http://br.groups.yahoo.com/group/delphi-br/messages Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [Off Topic ] Servidor ftp
Desculpem, não me expressei bem O que preciso é colocar um servidor FTP rodando no meu servidor (Windows XP). Não preciso que este seja feito em Delphi, nem quero ter esse trabalho - pelo menos por enquanto... Basta colocar um ftp no ar pra disponibilizar e/ou trocar arquivos pertinentes a nossa comunidade (Delphi). Este servidor já está rodando como servidor de internet e de arquivos (intranet) e a partir de hoje, como "hospedeiro" de um site, que estarei logo mais divulgando aqui. Cadu. - Original Message - From: José Henrique (Zote) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 31, 2006 2:33 PM Subject: RES: [delphi-br] [Off Topic ] Servidor ftp Se queres apenas colocar um servidor FTP pra rodar, se usares windows, podes colocar o do próprio IIS, senão podes usar um dos vários disponíveis em www.superdownloads.com.br procura por servidor ftp. Agora, se for pra desenvolver um em delphi, complica um pouco mais, mas acho que o pessoal do Indy pode te ajudar. Abraço -- José Henrique (Zote) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos Eduardo Carvalho Enviada em: terça-feira, 31 de janeiro de 2006 11:09 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] [Off Topic ] Servidor ftp Boa noite amigos. Primeiro descupem o "off" porem não tenho mais a quem recorrer. Aguem aqui sabe como montar um servidor FTP ? Sei alguns amigos daqui tem um servidor para compartilhar alguns arquivos em seu micro pessoal, gostaria de fazer o mesmo, inclusive material sobre delphi. Se alguem puder me ajudar, pode me contatar em PVT [EMAIL PROTECTED] Grato a todos PS: Tenho um micro que pretendo deixar rodando 24 p/ dia com um HD de 200gb para servidor de arquivos e de internet, onde pretendo hospedar meu site (em construção) se alguem estiver interessado em "lugar" pra deixar arquivos para compartilhar com amigos, pretendo deixar aprox. 120 gb de espaço livre. ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos Received: (qmail 22158 invoked by uid 0); 31 Jan 2006 11:09:53 -0200 Received: from 66.94.237.36 by poseidon.bludata.com.br (envelope-from <[EMAIL PROTECTED] om>, uid 0) with qmail-scanner-1.25 (clamdscan: 0.85/974. spamassassin: 3.0.2. Clear:RC:0(66.94.237.36):SA:0(-2.2/5.0):. Processed in 7.640078 secs); 31 Jan 2006 13:09:53 - X-Qmail-Scanner-Mail-From: [EMAIL PROTECTED] m via poseidon.bludata.com.br X-Qmail-Scanner: 1.25 (Clear:RC:0(66.94.237.36):SA:0(-2.2/5.0):. Processed in 7.640078 secs) Received: from unknown (HELO n2a.bullet.scd.yahoo.com) (66.94.237.36) by poseidon.bludata.com.br with SMTP; 31 Jan 2006 11:09:46 -0200 Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=hotel; d=yahoogrupos.com.br; b=KSlbOD2Y1VLIMO4JNbo4+w4+qr8PUOxp88BrCWSggK5wK2mw8NAmkc4uhAREyiV+aFLUUhVDh1 gREqBPJYEorreC2RJffMQ+DX2uXkhB4igyGEEJjgVCN3mOijs8ow52; Received: from [66.218.69.2] by n2.bullet.scd.yahoo.com with NNFMP; 31 Jan 2006 13:09:20 - Received: from [66.218.66.98] by t2.bullet.scd.yahoo.com with NNFMP; 31 Jan 2006 13:09:20 - X-Yahoo-Newman-Property: groups-email X-Sender: [EMAIL PROTECTED] X-Apparently-To: delphi-br@yahoogrupos.com.br Received: (qmail 26436 invoked from network); 31 Jan 2006 13:09:18 - Received: from unknown (66.218.66.216) by m15.grp.scd.yahoo.com with QMQP; 31 Jan 2006 13:09:18 - Received: from unknown (HELO smtp109.mail.mud.yahoo.com) (209.191.85.219) by mta1.grp.scd.yahoo.com with SMTP; 31 Jan 2006 13:09:18 - Received: (qmail 86074 invoked from network); 31 Jan 2006 13:09:06 - Received: from unknown (HELO COMP004) ([EMAIL PROTECTED] with login) by smtp109.mail.mud.yahoo.com with SMTP; 31 Jan 2006 13:09:05 - Message-ID: <[EMAIL PROTECTED]> To: X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1409 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409 X-Originating-IP: 209.191.85.219 X-eGroups-Msg-Info: 1:12:0:0 From: "Carlos Eduardo Carvalho" <[EMAIL PROTECTED]> X-Yahoo-Profile: cc_camp2005 Sender: delphi-br@yahoogrupos.com.br MIME-Version: 1.0 Mailing-List: list delphi-br@yahoogrupos.com.br; contact [EMAIL PROTECTED] Delivered-To: mailing list delphi-br@yahoogrupos.com.br List-Id: Precedence: bulk List-Unsubscribe: <mailto:[EMAIL PROTECTED]> Date: Tue, 31 Jan 2006 11:09:00 -0200 Subject: [delphi-br] [Off Topic ] Servidor ftp Reply-To: delphi-br@yahoogrupos.com.br Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on poseid
[delphi-br] [Off Topic ] Servidor ftp
Boa noite amigos. Primeiro descupem o "off" porem não tenho mais a quem recorrer. Aguem aqui sabe como montar um servidor FTP ? Sei alguns amigos daqui tem um servidor para compartilhar alguns arquivos em seu micro pessoal, gostaria de fazer o mesmo, inclusive material sobre delphi. Se alguem puder me ajudar, pode me contatar em PVT [EMAIL PROTECTED] Grato a todos PS: Tenho um micro que pretendo deixar rodando 24 p/ dia com um HD de 200gb para servidor de arquivos e de internet, onde pretendo hospedar meu site (em construção) se alguem estiver interessado em "lugar" pra deixar arquivos para compartilhar com amigos, pretendo deixar aprox. 120 gb de espaço livre. ___ Yahoo! doce lar. Faça do Yahoo! sua homepage. http://br.yahoo.com/homepageset.html -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Barra de progresso com "%"
Salve caros amigos "Delphianos". Como já "falei" em um e-mail anterior, sou iniciante em Delphi (mas não em programação), tenho bastante noção do que estou fazendo mas, não consigo (ainda) "enfeitar o rabo do pavão" : - ). Bom o que preciso, alias, o que gostaria de saber é qual componente devo utilizar para criar uma barra de progresso que informe ao usuário o andamento de uma determinada ação através de um "%". Tipo um Gauge ou ProgressBar, porem é como eu disse, nem sei se estes componentes tem este recurso ou se devo partir para componentes de 3º - o que, estou tentando fugir ao Maximo. Agradeço muito a ajuda e paciência dos nobres amigos. Carlos Eduardo Carvalho - Analista de Suporte e Sistemas Authersac Imports co. ps: Se for importante, utilizo Delphi 7, banco MySQL. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: componente tem propriedade? SOLUÇÃO
Descobri uma falha:
O comando abaixo as vezes não funciona.
SetVariantProp(Components[i], 'Visible', 'False');
Troquei por este e funcionou
SetPropValue(Components[i], 'Visible', 'False');
--- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
<[EMAIL PROTECTED]> escreveu
> A outra dúvida que tinha sobrado (espero que seja a última)
> era como setar uma propriedade para nil.
> É assim:
>
> if IsPublishedProp(Components[i], 'DataSource') then
> SetObjectProp(Components[i], 'DataSource', nil);
>
> Assunto encerrado (eu acho)
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
> <[EMAIL PROTECTED]> escreveu
> > Achei:
> > Tinha ficado pendente como setar o OnClick.
> > É assim:
> >
> >
> > uses TypInfo
> >
> > var
> > i: Integer;
> > evento : TNotifyevent;
> > begin
> > for i:= 0 to ComponentCount - 1 do
> > begin
> >
> > if IsPublishedProp(Components[i], 'OnClick') then
> > begin
> > evento := meuClickPersonalizado;
> > SetMethodProp(Components[i], 'OnClick', TMethod(evento));
> > end;
> > end;
> > end;
> >
> >
> > //Eduardo
> >
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
> > <[EMAIL PROTECTED]> escreveu
> > > Na verdade eu acabei usando outra função. É possível descobrir se a
> > > propriedade ou evento existe e é possível setar um valor. (só não
> > > consegui setar nil para as propriedades)
> > >
> > > for i:= 0 to ComponentCount - 1 do
> > > begin
> > > if IsPublishedProp(Components[i], 'ReadOnly') then
> > > SetVariantProp(Components[i], 'ReadOnly', 'True');
> > >
> > >
> > > if IsPublishedProp(Components[i], 'OnClick') then
> > > //aqui eu ainda não descobri como apontar para um onClick
> > > personalizadoSetVariantProp(Components[i], 'onClick',
> > > 'myOnClick');
> > >
> > > end;
> > >
> > >
> > > obs: também funciona: SetFloatProp(), SetStrProp(), etc...
> > >
> > > Obrigado a todos,
> > > Se alguém puder acrescentar algo ao que ficou pendente, agradeço.
> > > Eduardo
> > >
> > >
> > >
> > >
> > >
> > >
> > > --- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
> > > <[EMAIL PROTECTED]> escreveu
> > > > Eu descobri uma função que eu acho que é o que eu quero. Mas ainda
> > > > estou tentando usar. Qualquer progresso eu aviso.
> > > > A função é:
> > > >
> > > > IsItThere := IsPropertyInCategory('Localizable', TCustomEdit,
> 'Text');
> > > > outra opção:
> > > > IsItThere := IsPropertyInCategory('Localizable', 'TCustomEdit',
> > 'Text');
> > > >
> > > > Obrigado. A gente chega lá!
> > > >
> > > >
> > > > --- Em delphi-br@yahoogrupos.com.br, "Alisson Ricardo Viol Gazda"
> > > > <[EMAIL PROTECTED]> escreveu
> > > > > Eu não conheço nenhuma função ou procedimento que retorne esses
> > > > dados. Mas você pode armazenar em uma TStringGrid as propriedades
> > > > padrão de cada componente e fazer uma função boleana que
retorne se
> > > > para aquele componente existe ou não a propriedade na lista de
> > > > propriedades.
> > > > >
> > > > > Grid
> > > > > Classe |Prop1|Prop2|Prop3
> > > > > TButton |OnClick|OnMouseMove| Enabled
> > > > > TEdit | OnChange |OnEnter | Enabled
> > > > >
> > > > >
> > > > > function TForm1.hasProperty(Classe, Propriedade: String):
Boolean;
> > > > > var
> > > > >Linha, Coluna: Integer;
> > > > > begin
> > > > > Result:=False;
> > > > > For Linha:=1 to sg1.RowCount-1 do
> > > > >begin
> > > > > if sg1.Cells[0, Linha]=Classe then
> > > > > begin
> > > > > for Coluna:=1 to sg1.ColCount-1 do
> > > > >begin
> > > >
[delphi-br] Re: componente tem propriedade? SOLUÇÃO
A outra dúvida que tinha sobrado (espero que seja a última)
era como setar uma propriedade para nil.
É assim:
if IsPublishedProp(Components[i], 'DataSource') then
SetObjectProp(Components[i], 'DataSource', nil);
Assunto encerrado (eu acho)
--- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
<[EMAIL PROTECTED]> escreveu
> Achei:
> Tinha ficado pendente como setar o OnClick.
> É assim:
>
>
> uses TypInfo
>
> var
> i: Integer;
> evento : TNotifyevent;
> begin
> for i:= 0 to ComponentCount - 1 do
> begin
>
> if IsPublishedProp(Components[i], 'OnClick') then
> begin
> evento := meuClickPersonalizado;
> SetMethodProp(Components[i], 'OnClick', TMethod(evento));
> end;
> end;
> end;
>
>
> //Eduardo
>
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
> <[EMAIL PROTECTED]> escreveu
> > Na verdade eu acabei usando outra função. É possível descobrir se a
> > propriedade ou evento existe e é possível setar um valor. (só não
> > consegui setar nil para as propriedades)
> >
> > for i:= 0 to ComponentCount - 1 do
> > begin
> > if IsPublishedProp(Components[i], 'ReadOnly') then
> > SetVariantProp(Components[i], 'ReadOnly', 'True');
> >
> >
> > if IsPublishedProp(Components[i], 'OnClick') then
> > //aqui eu ainda não descobri como apontar para um onClick
> > personalizadoSetVariantProp(Components[i], 'onClick',
> > 'myOnClick');
> >
> > end;
> >
> >
> > obs: também funciona: SetFloatProp(), SetStrProp(), etc...
> >
> > Obrigado a todos,
> > Se alguém puder acrescentar algo ao que ficou pendente, agradeço.
> > Eduardo
> >
> >
> >
> >
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
> > <[EMAIL PROTECTED]> escreveu
> > > Eu descobri uma função que eu acho que é o que eu quero. Mas ainda
> > > estou tentando usar. Qualquer progresso eu aviso.
> > > A função é:
> > >
> > > IsItThere := IsPropertyInCategory('Localizable', TCustomEdit,
'Text');
> > > outra opção:
> > > IsItThere := IsPropertyInCategory('Localizable', 'TCustomEdit',
> 'Text');
> > >
> > > Obrigado. A gente chega lá!
> > >
> > >
> > > --- Em delphi-br@yahoogrupos.com.br, "Alisson Ricardo Viol Gazda"
> > > <[EMAIL PROTECTED]> escreveu
> > > > Eu não conheço nenhuma função ou procedimento que retorne esses
> > > dados. Mas você pode armazenar em uma TStringGrid as propriedades
> > > padrão de cada componente e fazer uma função boleana que retorne se
> > > para aquele componente existe ou não a propriedade na lista de
> > > propriedades.
> > > >
> > > > Grid
> > > > Classe |Prop1|Prop2|Prop3
> > > > TButton |OnClick|OnMouseMove| Enabled
> > > > TEdit | OnChange |OnEnter | Enabled
> > > >
> > > >
> > > > function TForm1.hasProperty(Classe, Propriedade: String): Boolean;
> > > > var
> > > >Linha, Coluna: Integer;
> > > > begin
> > > > Result:=False;
> > > > For Linha:=1 to sg1.RowCount-1 do
> > > >begin
> > > > if sg1.Cells[0, Linha]=Classe then
> > > > begin
> > > > for Coluna:=1 to sg1.ColCount-1 do
> > > >begin
> > > > if sg1.Cells[Coluna, Linha]=Propriedade then
> > > > begin
> > > > Result:=True;
> > > > Break;
> > > > end;
> > > >end;
> > > > end;
> > > >end;
> > > > end;
> > > >
> > > > Aí para chamar:
> > > >
> > > > if hasProperty(Classe, Propriedade) then
> > > >messagedlg('A Propriedade '+Propriedade+' existe em
> > > '+Classe,mtinformation,[mbok],0)
> > > > else
> > > >messagedlg('A Propriedade '+Propriedade+' NÃO existe em
> > > '+Classe,mterror,[mbok]
[delphi-br] Re: componente tem propriedade? SOLUÇÃO
Achei:
Tinha ficado pendente como setar o OnClick.
É assim:
uses TypInfo
var
i: Integer;
evento : TNotifyevent;
begin
for i:= 0 to ComponentCount - 1 do
begin
if IsPublishedProp(Components[i], 'OnClick') then
begin
evento := meuClickPersonalizado;
SetMethodProp(Components[i], 'OnClick', TMethod(evento));
end;
end;
end;
//Eduardo
--- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
<[EMAIL PROTECTED]> escreveu
> Na verdade eu acabei usando outra função. É possível descobrir se a
> propriedade ou evento existe e é possível setar um valor. (só não
> consegui setar nil para as propriedades)
>
> for i:= 0 to ComponentCount - 1 do
> begin
> if IsPublishedProp(Components[i], 'ReadOnly') then
> SetVariantProp(Components[i], 'ReadOnly', 'True');
>
>
> if IsPublishedProp(Components[i], 'OnClick') then
> //aqui eu ainda não descobri como apontar para um onClick
> personalizadoSetVariantProp(Components[i], 'onClick',
> 'myOnClick');
>
> end;
>
>
> obs: também funciona: SetFloatProp(), SetStrProp(), etc...
>
> Obrigado a todos,
> Se alguém puder acrescentar algo ao que ficou pendente, agradeço.
> Eduardo
>
>
>
>
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
> <[EMAIL PROTECTED]> escreveu
> > Eu descobri uma função que eu acho que é o que eu quero. Mas ainda
> > estou tentando usar. Qualquer progresso eu aviso.
> > A função é:
> >
> > IsItThere := IsPropertyInCategory('Localizable', TCustomEdit, 'Text');
> > outra opção:
> > IsItThere := IsPropertyInCategory('Localizable', 'TCustomEdit',
'Text');
> >
> > Obrigado. A gente chega lá!
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Alisson Ricardo Viol Gazda"
> > <[EMAIL PROTECTED]> escreveu
> > > Eu não conheço nenhuma função ou procedimento que retorne esses
> > dados. Mas você pode armazenar em uma TStringGrid as propriedades
> > padrão de cada componente e fazer uma função boleana que retorne se
> > para aquele componente existe ou não a propriedade na lista de
> > propriedades.
> > >
> > > Grid
> > > Classe |Prop1|Prop2|Prop3
> > > TButton |OnClick|OnMouseMove| Enabled
> > > TEdit | OnChange |OnEnter | Enabled
> > >
> > >
> > > function TForm1.hasProperty(Classe, Propriedade: String): Boolean;
> > > var
> > >Linha, Coluna: Integer;
> > > begin
> > > Result:=False;
> > > For Linha:=1 to sg1.RowCount-1 do
> > >begin
> > > if sg1.Cells[0, Linha]=Classe then
> > > begin
> > > for Coluna:=1 to sg1.ColCount-1 do
> > >begin
> > > if sg1.Cells[Coluna, Linha]=Propriedade then
> > > begin
> > > Result:=True;
> > > Break;
> > > end;
> > >end;
> > > end;
> > >end;
> > > end;
> > >
> > > Aí para chamar:
> > >
> > > if hasProperty(Classe, Propriedade) then
> > >messagedlg('A Propriedade '+Propriedade+' existe em
> > '+Classe,mtinformation,[mbok],0)
> > > else
> > >messagedlg('A Propriedade '+Propriedade+' NÃO existe em
> > '+Classe,mterror,[mbok],0)
> > >
> > >
> > >
> > > Não é eficiente mas ajuda um pouco já.
> > >
> > >
> > > Alisson Ricardo VIol Gazda
> > >
> > >
> > > - Original Message -
> > > From: Carlos Eduardo L. de Souza
> > > To: delphi-br@yahoogrupos.com.br
> > > Sent: Thursday, August 25, 2005 2:41 PM
> > > Subject: [delphi-br] componente tem propriedade?
> > >
> > >
> > > Tarde!
> > > Alguém sabe:
> > >
> > > Eu preciso descobrir se um determinado componente tem uma
> propriedade
> > > ou um método ou evento.
> > > Mais ou menos assim:
> > > for i:= 0 to ComponentCount - 1 do
> > > begin
> > > if Components[i].hasProperty('Enabled') then //isto não
> > existe...
> > > Components[i].Enabled :=
[delphi-br] Re: Grid zebrado
Veja se isto funciona: procedure TfrmClienteMalaDireta.grdClientesDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin inherited; if (Field.DataSet.RecNo mod 2) = 0 then begin grdClientes.Canvas.Brush.Color := $D1; grdClientes.Canvas.Font.Color := clBlack; end else begin grdClientes.Canvas.Brush.Color := clWhite; grdClientes.Canvas.Font.Color := clBlack; end; grdClientes.Canvas.FillRect(Rect); grdClientes.DefaultDrawDataCell(Rect,Field,State); end; //Eduardo --- Em delphi-br@yahoogrupos.com.br, "Vicente Lima" <[EMAIL PROTECTED]> escreveu > Pessoal, > A propriedade Recno da Table, acessando um banco de dados Oracle so me retorna -1, estou tentando fazer um Grid zebrado. > > Existe alguma outra forma de fazer isto, utilizando uma propriedade do DBGrid por exemplo. > > Vicente Lima > > > [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: componente tem propriedade? SOLUÇÃO
Na verdade eu acabei usando outra função. É possível descobrir se a
propriedade ou evento existe e é possível setar um valor. (só não
consegui setar nil para as propriedades)
for i:= 0 to ComponentCount - 1 do
begin
if IsPublishedProp(Components[i], 'ReadOnly') then
SetVariantProp(Components[i], 'ReadOnly', 'True');
if IsPublishedProp(Components[i], 'OnClick') then
//aqui eu ainda não descobri como apontar para um onClick
personalizadoSetVariantProp(Components[i], 'onClick',
'myOnClick');
end;
obs: também funciona: SetFloatProp(), SetStrProp(), etc...
Obrigado a todos,
Se alguém puder acrescentar algo ao que ficou pendente, agradeço.
Eduardo
--- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
<[EMAIL PROTECTED]> escreveu
> Eu descobri uma função que eu acho que é o que eu quero. Mas ainda
> estou tentando usar. Qualquer progresso eu aviso.
> A função é:
>
> IsItThere := IsPropertyInCategory('Localizable', TCustomEdit, 'Text');
> outra opção:
> IsItThere := IsPropertyInCategory('Localizable', 'TCustomEdit', 'Text');
>
> Obrigado. A gente chega lá!
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Alisson Ricardo Viol Gazda"
> <[EMAIL PROTECTED]> escreveu
> > Eu não conheço nenhuma função ou procedimento que retorne esses
> dados. Mas você pode armazenar em uma TStringGrid as propriedades
> padrão de cada componente e fazer uma função boleana que retorne se
> para aquele componente existe ou não a propriedade na lista de
> propriedades.
> >
> > Grid
> > Classe |Prop1|Prop2|Prop3
> > TButton |OnClick|OnMouseMove| Enabled
> > TEdit | OnChange |OnEnter | Enabled
> >
> >
> > function TForm1.hasProperty(Classe, Propriedade: String): Boolean;
> > var
> >Linha, Coluna: Integer;
> > begin
> > Result:=False;
> > For Linha:=1 to sg1.RowCount-1 do
> >begin
> > if sg1.Cells[0, Linha]=Classe then
> > begin
> > for Coluna:=1 to sg1.ColCount-1 do
> >begin
> > if sg1.Cells[Coluna, Linha]=Propriedade then
> > begin
> > Result:=True;
> > Break;
> > end;
> >end;
> > end;
> >end;
> > end;
> >
> > Aí para chamar:
> >
> > if hasProperty(Classe, Propriedade) then
> >messagedlg('A Propriedade '+Propriedade+' existe em
> '+Classe,mtinformation,[mbok],0)
> > else
> >messagedlg('A Propriedade '+Propriedade+' NÃO existe em
> '+Classe,mterror,[mbok],0)
> >
> >
> >
> > Não é eficiente mas ajuda um pouco já.
> >
> >
> > Alisson Ricardo VIol Gazda
> >
> >
> > - Original Message -
> > From: Carlos Eduardo L. de Souza
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Thursday, August 25, 2005 2:41 PM
> > Subject: [delphi-br] componente tem propriedade?
> >
> >
> > Tarde!
> > Alguém sabe:
> >
> > Eu preciso descobrir se um determinado componente tem uma
propriedade
> > ou um método ou evento.
> > Mais ou menos assim:
> > for i:= 0 to ComponentCount - 1 do
> > begin
> > if Components[i].hasProperty('Enabled') then //isto não
> existe...
> > Components[i].Enabled := False; //essa linha também vai dar
> > erro sem um cast...
> > //preciso também saber:
> > if Components[i].hasEvent('OnClick') then
> > Components[i].OnClick := OnClickPersonalizado;
> > end
> > Qualquer idéia é bem vinda...
> > tks
> > Eduardo
> >
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> >
> >
> > Yahoo! Grupos, um serviço oferecido por:
> >
> >
> >
> >
>
--
> > Links do Yahoo! Grupos
> >
> > a.. Para visitar o site do seu grupo na w
[delphi-br] Re: componente tem propriedade?
Eu descobri uma função que eu acho que é o que eu quero. Mas ainda
estou tentando usar. Qualquer progresso eu aviso.
A função é:
IsItThere := IsPropertyInCategory('Localizable', TCustomEdit, 'Text');
outra opção:
IsItThere := IsPropertyInCategory('Localizable', 'TCustomEdit', 'Text');
Obrigado. A gente chega lá!
--- Em delphi-br@yahoogrupos.com.br, "Alisson Ricardo Viol Gazda"
<[EMAIL PROTECTED]> escreveu
> Eu não conheço nenhuma função ou procedimento que retorne esses
dados. Mas você pode armazenar em uma TStringGrid as propriedades
padrão de cada componente e fazer uma função boleana que retorne se
para aquele componente existe ou não a propriedade na lista de
propriedades.
>
> Grid
> Classe |Prop1|Prop2|Prop3
> TButton |OnClick|OnMouseMove| Enabled
> TEdit | OnChange |OnEnter | Enabled
>
>
> function TForm1.hasProperty(Classe, Propriedade: String): Boolean;
> var
>Linha, Coluna: Integer;
> begin
> Result:=False;
> For Linha:=1 to sg1.RowCount-1 do
>begin
> if sg1.Cells[0, Linha]=Classe then
> begin
> for Coluna:=1 to sg1.ColCount-1 do
>begin
> if sg1.Cells[Coluna, Linha]=Propriedade then
> begin
> Result:=True;
> Break;
> end;
>end;
> end;
>end;
> end;
>
> Aí para chamar:
>
> if hasProperty(Classe, Propriedade) then
>messagedlg('A Propriedade '+Propriedade+' existe em
'+Classe,mtinformation,[mbok],0)
> else
>messagedlg('A Propriedade '+Propriedade+' NÃO existe em
'+Classe,mterror,[mbok],0)
>
>
>
> Não é eficiente mas ajuda um pouco já.
>
>
> Alisson Ricardo VIol Gazda
>
>
> - Original Message -
> From: Carlos Eduardo L. de Souza
> To: delphi-br@yahoogrupos.com.br
> Sent: Thursday, August 25, 2005 2:41 PM
> Subject: [delphi-br] componente tem propriedade?
>
>
> Tarde!
> Alguém sabe:
>
> Eu preciso descobrir se um determinado componente tem uma propriedade
> ou um método ou evento.
> Mais ou menos assim:
> for i:= 0 to ComponentCount - 1 do
> begin
> if Components[i].hasProperty('Enabled') then //isto não
existe...
> Components[i].Enabled := False; //essa linha também vai dar
> erro sem um cast...
> //preciso também saber:
> if Components[i].hasEvent('OnClick') then
> Components[i].OnClick := OnClickPersonalizado;
> end
> Qualquer idéia é bem vinda...
> tks
> Eduardo
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
--
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] componente tem propriedade?
Tarde!
Alguém sabe:
Eu preciso descobrir se um determinado componente tem uma propriedade
ou um método ou evento.
Mais ou menos assim:
for i:= 0 to ComponentCount - 1 do
begin
if Components[i].hasProperty('Enabled') then //isto não existe...
Components[i].Enabled := False; //essa linha também vai dar
erro sem um cast...
//preciso também saber:
if Components[i].hasEvent('OnClick') then
Components[i].OnClick := OnClickPersonalizado;
end
Qualquer idéia é bem vinda...
tks
Eduardo
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] stop on delphi exceptions
bom dia! Eu gosto que as minhas exceptions parem a execução em ambiente de teste então eu deixo habilitado o Tools -> Debugger Options - > Language Exceptions - > Stop on Delphi Exceptions. Mas e se eu quiser que em algum bloco específico mesmo com exception a execução passe silenciosamente sem interrupção? Tem como? Alguma diretiva de compilação que eu ligo e desligo em seguida? Obrigado, Eduardo -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Gráfico OOP no relatório - DICA!
ops, uma pequena correção:
Após a linha
Chart.Assign(VnDBChart);
inclua:
Chart.SeriesList.Clear;
senão a cada impressão o número de séries do gráfico é aumentada
Eduardo
--- Em delphi-br@yahoogrupos.com.br, "Carlos Eduardo L. de Souza"
<[EMAIL PROTECTED]> escreveu
> Olá:
> Isto não é uma pergunta. É uma dica.
> Meu problema era: eu fazia um gráfico num formulário, criava as
> séries, axis, labels, titles, etc e mostrava para o cliente. Ele
> dizia: Muito bom, dá para imprimir? Daí eu criava um relatório colava
> um TQRChart e configurava tudo de novo: criava as séries, axis,
> labels, titles, etc. Trabalho dobrado.
> Então eu criei uma classe que estende TQRChart com uma única
> propriedade: Basta eu apontar para o gráfico que está no form e
> pronto, o gráfico do relatório vira um clone do gráfico do form.
> (Talvez até exista uma maneira nativa de fazer isso, mas eu cansei de
> procurar)
> Aí vai a classe:
>
> unit QVnQRChart;
>
> interface
>
> uses
> SysUtils, Classes, Controls, QuickRpt, QRTEE, Types, DBChart,
> TeEngine, Graphics;
>
> type
> TVnQRChart = class(TQRChart)
> private
> FVnDBChart: TDBChart;
> protected
> { Protected declarations }
> public
> constructor Create(Aowner: TComponent); override;
> procedure PrintAlternativo(Sender: TQRChart; var PaperRect,
> ChartRect: TRect);
> published
> property VnDBChart: TDBChart
> read FVnDBChart
> write FVnDBChart;
> end;
>
> procedure Register;
>
> implementation
>
> procedure Register;
> begin
> RegisterComponents('Genesys', [TVnQRChart]);
> end;
>
> { TVnQRChart }
>
> constructor TVnQRChart.Create(Aowner: TComponent);
> begin
> inherited Create(Aowner);
> OnPrint := PrintAlternativo;
> end;
>
> procedure TVnQRChart.PrintAlternativo(Sender: TQRChart; var PaperRect,
> ChartRect: TRect);
> var
> t: Integer;
> tmpSeries:TChartSeries;
> tmpS:TChartSeriesClass;
> begin
> if VnDBChart <> nil then
> begin
> Chart.Assign(VnDBChart);
> for t:=0 to VnDBChart.SeriesCount-1 do
> begin
> tmpS:=TChartSeriesClass(VnDBChart.Series[t].ClassType);
> tmpSeries:=tmpS.Create(Self);
> tmpSeries.Assign(VnDBChart.Series[t]);
> tmpSeries.Name:=(VnDBChart.Series[t].Name);
> Chart.AddSeries(tmpSeries);
> end;
> Chart.Color := clWhite;
> end;
> inherited;
> end;
>
> end.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Gráfico OOP no relatório - DICA!
Olá:
Isto não é uma pergunta. É uma dica.
Meu problema era: eu fazia um gráfico num formulário, criava as
séries, axis, labels, titles, etc e mostrava para o cliente. Ele
dizia: Muito bom, dá para imprimir? Daí eu criava um relatório colava
um TQRChart e configurava tudo de novo: criava as séries, axis,
labels, titles, etc. Trabalho dobrado.
Então eu criei uma classe que estende TQRChart com uma única
propriedade: Basta eu apontar para o gráfico que está no form e
pronto, o gráfico do relatório vira um clone do gráfico do form.
(Talvez até exista uma maneira nativa de fazer isso, mas eu cansei de
procurar)
Aí vai a classe:
unit QVnQRChart;
interface
uses
SysUtils, Classes, Controls, QuickRpt, QRTEE, Types, DBChart,
TeEngine, Graphics;
type
TVnQRChart = class(TQRChart)
private
FVnDBChart: TDBChart;
protected
{ Protected declarations }
public
constructor Create(Aowner: TComponent); override;
procedure PrintAlternativo(Sender: TQRChart; var PaperRect,
ChartRect: TRect);
published
property VnDBChart: TDBChart
read FVnDBChart
write FVnDBChart;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Genesys', [TVnQRChart]);
end;
{ TVnQRChart }
constructor TVnQRChart.Create(Aowner: TComponent);
begin
inherited Create(Aowner);
OnPrint := PrintAlternativo;
end;
procedure TVnQRChart.PrintAlternativo(Sender: TQRChart; var PaperRect,
ChartRect: TRect);
var
t: Integer;
tmpSeries:TChartSeries;
tmpS:TChartSeriesClass;
begin
if VnDBChart <> nil then
begin
Chart.Assign(VnDBChart);
for t:=0 to VnDBChart.SeriesCount-1 do
begin
tmpS:=TChartSeriesClass(VnDBChart.Series[t].ClassType);
tmpSeries:=tmpS.Create(Self);
tmpSeries.Assign(VnDBChart.Series[t]);
tmpSeries.Name:=(VnDBChart.Series[t].Name);
Chart.AddSeries(tmpSeries);
end;
Chart.Color := clWhite;
end;
inherited;
end;
end.
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Is TButton?
Fora dela não tenho a menor idéia.
Como vc vai descobrir se o programa é feito em Delphi? Se for em Java
pode ser um JButton...(hehe)
Acho que só usando alguma api do windows você vai descobrir se o
controle é da família genérica dos botões.
--- Em delphi-br@yahoogrupos.com.br, "Filipe" <[EMAIL PROTECTED]> escreveu
> ok... e fora dela???
>
>
> - Original Message -----
> From: "Carlos Eduardo L. de Souza" <[EMAIL PROTECTED]>
> To:
> Sent: Tuesday, May 17, 2005 4:57 PM
> Subject: [delphi-br] Re: Is TButton?
>
>
> Na sua aplicação é assim:
>
> if activeControl is TButton then
> ShowMessage('sim, é!');
>
> --- Em delphi-br@yahoogrupos.com.br, "Filipe" <[EMAIL PROTECTED]>
escreveu
> >
> > Olá, Será que existe alguma maneira de saber se okilo que está
> com o foco é um botão?
> >
> > tp, tanto na minha aplicação quanto em outras...
> >
> >
> >
> > Obrigado.
> >
> >
> >
> > _
> > Filipe Geyer
> > Programador
> > [EMAIL PROTECTED]
> > www.bludata.com.br
> >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Is TButton?
Na sua aplicação é assim:
if activeControl is TButton then
ShowMessage('sim, é!');
--- Em delphi-br@yahoogrupos.com.br, "Filipe" <[EMAIL PROTECTED]> escreveu
>
> Olá, Será que existe alguma maneira de saber se okilo que está
com o foco é um botão?
>
> tp, tanto na minha aplicação quanto em outras...
>
>
>
> Obrigado.
>
>
>
> _
> Filipe Geyer
> Programador
> [EMAIL PROTECTED]
> www.bludata.com.br
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: CNPJ com 15 dÃgitos
Moacir, Eu também não sei onde achar informações. Só sei que um txt que eu preciso passar para o Bradesco já pede o CNPJ com 15 dígitos e ouvi dizer que a Receita estava recomendando mudar para 15. O tamanho atual suportaria quase 100 milhões de empresas menos 1, teoricamente. O problema é que não é um incremento simples, pois parte do CNPJ é usado para indicar a área de atuação da empresa (sem contar as empresas fechadas que eu imagino que o CNPJ não é reaproveitado). Então logo deve estourar. Eu vi dois sistemas já usando 15 dígitos e fiquei preocupado como você. Eduardo --- Em delphi-br@yahoogrupos.com.br, "Moacir (gmail)" <[EMAIL PROTECTED]> escreveu > Eduardo: > > Cara, fiquei surpreso ! > > Aonde posso localizar mais informações a respeito.. não achei nada no > site da receita > > [ ]´s > Moacir > > > Carlos Eduardo L. de Souza escreveu: > > >Bom dia, > >Alguém já tem a rotina de validar CNPJ com 15 dígitos? > >(Vocês já estão se preparando para o bug do cnpj? Os brasileiros estão > >virando tudo pessoa jurídica!) > > > >Obrigado, > >Eduardo > > > > > > > > > > > > > > > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.11.11 - Release Date: 16/5/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] CNPJ com 15 dÃgitos
O que eu sei é o seguinte: Se você pegar um cnpj de 14 dígitos e colocar um zero a esquerda vai ficar com 15 e os dígitos verificadores vão continuar os mesmos que eram com 14 dígitos. O problema é que se passarem um cnpj com 15 dígitos para você validar a sua rotina está preparada só para 14. Não deve ser difícil corrigir a rotina eu até imagino o que deve ser feito, mas é sempre bom pegar uma rotina já testada. (daí a gente pode jogar a culpa nos outros caso alguma coisa dê errada). Eduardo --- Em delphi-br@yahoogrupos.com.br, "Ailton Branco" <[EMAIL PROTECTED]> escreveu > o primeiro caracter é Zero ???, pq com 15 digitos eu trabalho com sistemas > de gestao publica e vejo tudo quanto é absurdo em tipos de documentos mas > com 15 digitos eu vi onde o primeiro caracter era um zero e o pessoal da > receita disse que deveria ignorar o primeiro, e quando testei ele passou no > teste me disseram que era um erro de impressao mas achei que o caso > fosse unico. > > _ > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em > nome de Moacir (gmail) > Enviada em: terça-feira, 17 de maio de 2005 10:18 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] CNPJ com 15 dígitos > > > Eduardo: > > Cara, fiquei surpreso ! > > Aonde posso localizar mais informações a respeito.. não achei nada no > site da receita > > [ ]´s > Moacir > > > Carlos Eduardo L. de Souza escreveu: > > >Bom dia, > >Alguém já tem a rotina de validar CNPJ com 15 dígitos? > >(Vocês já estão se preparando para o bug do cnpj? Os brasileiros estão > >virando tudo pessoa jurídica!) > > > >Obrigado, > >Eduardo > > > > > > > > > > > > > > > > -- > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.308 / Virus Database: 266.11.11 - Release Date: 16/5/2005 > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > _ > > Links do Yahoo! Grupos > > > * Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > > * Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > <mailto:[EMAIL PROTECTED]> > > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . > > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] CNPJ com 15 dÃgitos
Bom dia, Alguém já tem a rotina de validar CNPJ com 15 dígitos? (Vocês já estão se preparando para o bug do cnpj? Os brasileiros estão virando tudo pessoa jurídica!) Obrigado, Eduardo -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Trocar IP da minha máquina
Acho que eu já achei o que eu procurava. Se alguém quiser: http://www.online-admin.com/twmimethod.html Obrigado --- Em [EMAIL PROTECTED], "Carlos Eduardo L. de Souza" <[EMAIL PROTECTED]> escreveu > > O.L.Á. > > Alguém sabe como alterar o IP da minha máquina via programação Delphi? > Ficarei eternamente grato se alguém souber. > Eduardo -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Trocar IP da minha máquina
O.L.Á. Alguém sabe como alterar o IP da minha máquina via programação Delphi? Ficarei eternamente grato se alguém souber. Eduardo -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: MaskEdit
Filipe, limpando o editmask no Enter é para funcionar. Acho que o seu problema é que vc escreveu o código no onEnter do dbedit do Cep e não do cgc. []'s Eduardo --- Em [EMAIL PROTECTED], "Filipe" <[EMAIL PROTECTED]> escreveu > Bom Dia, pessoal... > > Estou com um problema... Tenho um Dbedit q, dependendo do numero de caracteres, ele formata para cpf ou cnpj. isso no evento OnExit do dbEdit, conforme a procedure: > > procedure TFrmClientes.DBEdit13Exit(Sender: TObject); > begin > if length(dbedit13.Text) = 14 then > clientdataset1CGC.EditMask := '99\.999\.999\/\-99;0' > else > if length(dbedit13.Text) = 11 then > clientdataset1CGC.EditMask := '999\.999\.999\-99;0'; > > //CNPJ: 03.811.444/0002-15 > //CPF: 045.007.199-54 > > end; > > > Mas se a pessoa digita um cpf, se arrepende, e quer voltar paa digitar um cnpj, naum da! a máscara continua igual!!! > Então, no evento OnEnter do dbedit eu fiz: > > procedure TFrmClientes.DBEdit13Enter(Sender: TObject); > begin > clientdataset1CEP.EditMask := emptystr; > //tb tentei clientdataset1CEP.EditMask := ''; > end; > > > Mas a máscara continua... > > Será q alguém sabe como posso "resetar" a máscara via código??? > > Obs.: o campo eh char, estou usando clientdataset + Ibx, Fb 1.5 e D7. > > > Obrigado! > > > > > > [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Trigger Sql-Server -> Firebird
--- Em [EMAIL PROTECTED], Artur Anjos <[EMAIL PROTECTED]> escreveu > Carlos Eduardo L. de Souza wrote: > > > > Olá a todos, > > Tenho um Sistema usando Firebird que precisa se comunicar com um > > sistema em Sql-Server. Eu preciso que Ao incluir/Alterar/Deletar > > qualquer registro na tabela de clientes no Sql-server dispare uma > > Trigger que inclua/altere/delete o registro correspondente no Firebird. > > Alguém sabe por onde devo começar? Eu preferia ter um executável em > > Delphi rodando no servidor que capturasse a execução de uma trigger no > > sql-server e fizesse as atualizações no Firebird. Ou talvez usando o > > recurso DTS do Sql-server (que eu acabei de ler no help que acho que > > serve para isso). > > Se alguém tiver sugestões eu agradeço (qualquer que seja). > > Eduardo > > Olá Eduardo, > > Penso que você não vai ter muitas mais hipóteses do que construir esse > seu executável... > O que o aconselho a fazer é uma solução 'mista': altere as triggers do > SQL server para construir uma tabela temporária de modificações. O seu > executável deverá ler dessa tabela sequencialmente e aplicar as > alterações no Firebird. Pode não ser tão simples como isto, > principalmente se você precisar de alguma validação. > > Artur Obrigado Artur, acho que não vai ter jeito mesmo. Esse tal recurso DTS do Sql-server pelo que eu entendi é um pacote que pode ser programado para ser rodado de tempos em tempos. Daria até para criar conexões ODBC (que aliás já faz anos que eu não uso mais, argh..), mas estes pacotes são disparados via linha de comando DOS(!!!) e acho que não dá para amarrar em triggers. Valeu. Eduardo -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Trigger Sql-Server -> Firebird
Olá a todos, Tenho um Sistema usando Firebird que precisa se comunicar com um sistema em Sql-Server. Eu preciso que Ao incluir/Alterar/Deletar qualquer registro na tabela de clientes no Sql-server dispare uma Trigger que inclua/altere/delete o registro correspondente no Firebird. Alguém sabe por onde devo começar? Eu preferia ter um executável em Delphi rodando no servidor que capturasse a execução de uma trigger no sql-server e fizesse as atualizações no Firebird. Ou talvez usando o recurso DTS do Sql-server (que eu acabei de ler no help que acho que serve para isso). Se alguém tiver sugestões eu agradeço (qualquer que seja). Eduardo -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
