unit uViewTelefonos; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, DB, uDADataTable, StdCtrls, Mask, DBCtrls, ExtCtrls, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit; type TfrViewTelefonos = class(TfrViewBase) Bevel1: TBevel; DADataSource: TDADataSource; Label5: TLabel; lblFax: TLabel; lblMovil: TLabel; lblParticular: TLabel; lblTrabajo: TLabel; eTlfParticular: TcxDBTextEdit; eTlfTrabajo: TcxDBTextEdit; eTlfMovil: TcxDBTextEdit; eFax: TcxDBTextEdit; end; var frViewTelefonos: TfrViewTelefonos; implementation {$R *.dfm} initialization RegisterClass(TfrViewTelefonos); finalization UnRegisterClass(TfrViewTelefonos); end.