Como verificar se uma classe possui a propriedade informada como published?

Em alguns casos avançados, surge a necessidade de verificar se uma
propriedade é vísiblie Object Inspector, para tanto, ele deve ser
informada como published.
Agora veja como verificar se uma classe possui a propriedade
informada como published.

Antes a unit TypInfo deve estar declarada na seção uses,
em versões unicode declare System.TypInfo.

Utilize a função IsPublishedProp.

{ Informe a classe e a propriedade. }
Função do Delphi: IsPublishedProp( Classe, Propriedade );
Retorno: Boolean.

Abaixo, segue um exemplo de uso:

1
2
3
4
5
6

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (IsPublishedProp(TEdit, 'Color')) then
    ShowMessage('TEdit possui a propriedade Color visível no '+
    'Object Inspector.');
end;

É uma dica interessante e que pode ser útil para a automatização de tarefas.

Dúvidas ou sugestões deixe nos comentários do post.