unit uViewCliente; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewContacto, DB, uDADataTable, DBCtrls, uViewCategorias, uViewInternet, uViewTelefonos, StdCtrls, Mask, ExtCtrls, uCustomView, uViewBase, uViewDireccion, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit; type IViewCliente = interface(IViewContacto) ['{C06F4653-1745-4B7E-A3DC-102B2F23238E}'] end; TfrViewCliente = class(TfrViewContacto, IViewCliente) end; implementation {$R *.dfm} end.