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
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
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;
SetMethodP
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
SetVarian
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
5 matches
Mail list logo