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
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
;
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
(), 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
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;
('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
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;
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
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,
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
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:
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
-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
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
PROTECTED] escreveu
ok... e fora dela???
- Original Message -
From: Carlos Eduardo L. de Souza [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 17, 2005 4:57 PM
Subject: [delphi-br] Re: Is TButton?
Na sua aplicação é assim:
if activeControl is TButton
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
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
--- 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
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,
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
20 matches
Mail list logo