Artigo Clube Delphi Edição 47 - Editores de Componentes na Prática

Esse artigo faz parte da revista Clube Delphi edição 47. Clique aqui para ler todos os artigos desta edição

Editores de Componentes na Prática

Parte I: Conceitos e configuração automática do acesso com dbExpress

Com um duplo clique em um ImageList da VCL você verá o editor que auxilia na configuração de suas imagens; ao fazer o mesmo em um componente descendente de TDataSet (como

TClientDataset, TSQLQuery etc.), será exibido o conhecido Field Editor. Essas telas (algumas vezes mini-aplicativos completos) que simplificam a configuração de componentes são chamadas de Editores de Componente, e são o assunto desta série de artigos em duas partes.

Apresentaremos dois exemplos construídos passo a passo. O primeiro, bem simples, mostra conceitos básicos através da criação de um editor no estilo “Olá Mundo” para o componente Button da VCL. O segundo demonstra como criar um editor para o componente SQLQuery do dbExpress, que pode ser bastante útil – ele permite que, com apenas alguns cliques seja configurado um acesso dbExpress completo, usando os componentes SQLConnection, o próprio SQLQuery, um DataSetProvider, um ClientDataSet e um DataSource, sem que seja necessário inserir esses componentes no formulário ou no Data Module, nem conectá-los manualmente.

Nota – Um assunto relacionado ao tratado aqui é a criação de Editores de Propriedade. Veja mais no artigo de Ivan Martins, na Edição 37.

Conceitos básicos

Vamos ao primeiro exemplo. Clique em File|New>Other>Package (Figura 1) e no editor do pacote clique no botão Options. Clique na aba Description e na opção Description digite “Button - Editor de componente”. Como um editor de componente é utilizado somente pela IDE do Delphi (ele não é compilado junto com aplicações), devemos marcar a opção Designtime only em Usage Options (Figura 2).

Figura 1. Criando um pacote

Figura 2. Configurando o pacote como designtime e fornecendo uma descrição

Clique em File|New>Unit e altere a seção interface da unit como mostrado a seguir:

uses

  DesignEditors;

type

  TMeuEditor = class (TComponentEditor)

  public

    function GetVerbCount : integer; override;

    function GetVerb (Index : integer): string; override;

    procedure ExecuteVerb (Index : integer); override;

    procedure Edit; override;

  end;

  procedure Register;

Salve o pacote e a unit, mantendo os nomes padrões. Como você pode ver, para criar um editor de componente devemos criar uma subclasse de TComponentEditor (declarada na unit DesignEditors.pas) – ou uma subclasse de um de seus descendentes –, e redefinir seus métodos virtuais (override).

Pressione Shift+Ctrl+C para criar os cabeçalhos de implementação dos métodos, e implemente o método Edit da seguinte forma (esse método é disparado quando é dado um duplo clique sobre o componente):

...