unit uViewDireccion; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, StdCtrls, Mask, DBCtrls, DB, uDADataTable, ExtCtrls, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit; type TfrViewDireccion = class(TfrViewBase) Bevel1: TBevel; DADataSource: TDADataSource; Label5: TLabel; lblCalle: TLabel; lblCodigoPostal: TLabel; lblPoblacion: TLabel; lblProvincia: TLabel; eCalle: TcxDBTextEdit; ePoblacion: TcxDBTextEdit; eProvincia: TcxDBTextEdit; eCodigoPostal: TcxDBTextEdit; protected end; var frViewDireccion: TfrViewDireccion; implementation {$R *.dfm} initialization RegisterClass(TfrViewDireccion); finalization UnRegisterClass(TfrViewDireccion); end.