Modificando TDBEdit para Edit

Ol� pessoal, hoje queria partilhar com os amantes do Delphi um artigo que � bastante simples, por�m ele auxilia muito em migraç�es de componentes.

Como assim?

Supondo que h� 3 anos voc� fez um projeto em Delphi com DBEdit, DBCombobox, e outros DB's, ou seja, os conhecidos DBWare. Hoje voc� j� consegue trabalhar Orientado a Objetos e decide migrar o sistema mas n�o gostaria de confeccionar o Layout do Sistema novamente, e queria modificar todos os DBEdits, DBCombobox e os outros DB's para Edits, Combobox, etc.

� uma tarefa extremamente simples de se fazer, mas requer muita atenç�o. Vamos ao exemplo de como fazer isso.

Criando um Formul�rio com 3 Componentes DBEdits e 1 DBCombobox, veja o layout :

Figura 1. Layout do Exemplo.

Note que n�o fiz ligaç�o de DataSource e outros componentes, pois isso n�o � necess�rio.

Agora e a m�gica?

Voc�s poderiam falar, poxa � s� apagar e colocar os Edits. Mas e ae? TabOrder, tamanho e posiç�o? Fazer tudo novamente?

Vem a dica agora. Clique com o bot�o direito do mouse sobre qualquer �rea varia do formul�rio, e localiza a opç�o View as Text.

Figura 2. View as Text.

O que � isso?

O layout do nosso formul�rio fica armazenado nos arquivos de extens�o .DFM. Experimente abrir este arquivo no "BLOCO DE NOTAS", voc� ir� ver exatamente a mesma coisa que o View as Text.


object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Cadastro de Cliente'
  ClientHeight = 225
  ClientWidth = 518
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -20
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 120
  TextHeight = 24
  object Label1: TLabel
    Left = 129
    Top = 131
    Width = 33
    Height = 24
    Caption = 'CPF'
  end
  object Label2: TLabel
    Left = 101
    Top = 43
    Width = 61
    Height = 24
    Caption = 'C'#243'digo'
  end
  object Label3: TLabel
    Left = 110
    Top = 91
    Width = 52
    Height = 24
    Caption = 'Nome'
  end
  object Label4: TLabel
    Left = 27
    Top = 171
    Width = 135
    Height = 24
    Caption = 'Tipo de Cliente'
  end
  object DBEdtCodigo: TDBEdit
    Left = 184
    Top = 40
    Width = 177
    Height = 32
    TabOrder = 0
  end
  object DBEdtNome: TDBEdit
    Left = 184
    Top = 88
    Width = 305
    Height = 32
    TabOrder = 1
  end
  object DBEdtCPF: TDBEdit
    Left = 184
    Top = 128
    Width = 121
    Height = 32
    TabOrder = 2
  end
  object DBCmbTipoCliente: TDBComboBox
    Left = 184
    Top = 168
    Width = 305
    Height = 32
    TabOrder = 3
  end
end

Listagem 1. Texto completo do arquivo .DFM

Bom agora que saber como localizar o layout do nosso formul�rio, vamos fazer a modificaç�o dos componentes DBEdits e DBCombobox para Edits e Combobox.

Primeiramente vamos simplesmente dar um Replace na Palavra TDBEdit para TEdit, e clicamos no "Replace All"

Figura 3. Replace de TDBEdit para TEdit.

Fazemos a mesma coisa para o TDBCombobox e TCombobox, e clicamos no "Replace All"

Figura 4. Replace de TDBCombobox para TCombobox.

Ao finalizar os Replaces, devemos agora voltar o modo Designer, clicando com o Bot�o direito sobre qualquer parte do Editor e indo na opç�o "View as Form", ou ent�o ALT+F12.

Figura 5. View as Form.

Para finalizar precisamos fazer a mesma coisa na nossa Unit, ou seja, dar o Replace em TDBEdit e TDBCombobox


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask;

type
  TForm1 = class(TForm)
    DBEdtCodigo: TDBEdit;
    DBEdtNome: TDBEdit;
    DBEdtCPF: TDBEdit;
    DBCmbTipoCliente: TDBComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Listagem 2. Layout Atual com o TDBEdits e TDBCombobox

Agora usando o Replace, ou neste caso o Refacoty para modificar os textos iguais, CTRL + SHIF + J, n�o vou entrar neste m�rito sobre Refactory, teremos o seguinte c�digo :


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask;

type
  TForm1 = class(TForm)
    DBEdtCodigo: TEdit;
    DBEdtNome: TEdit;
    DBEdtCPF: TEdit;
    DBCmbTipoCliente: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Listagem 3. Layout novo com os TEdits e o TCombobox

Conclus�o

Desta forma conseguimos ter em nosso projeto um reaproveitamento dos formul�rios sem ter "muito trabalho". � uma soluç�o r�pida.

Fico por aqui, um abraço e at� a pr�xima.

Modificando TDBEdit para Edit - Delphi

Veja neste artigo como podemos modificar os tipos de componente de um formulário sem a necessidade de apagar e incluir novamente outros componentes.

Como assim?

Agora e a m�gica?

O que � isso?

Conclus�o

Artigos relacionados