Delphi编写自定义控件以及接口的使用（做了一个TpgDbEdit）【图】

代码unit pgdbedit;interfaceuses SysUtils, Classes, Controls, StdCtrls, CnEdit;const IID_pgDBConInterface=‘{88CEA70D-0506-4CC0-ABB0-4BDBFA0DDBCE}‘;type TdbType = (dbText, dbInteger, dbFloat, dbBit, dbTime, dbBlob); //文本类型 IpgDBConInterface = interface(IInterface) //定义数据库操作控件的接口 [IID_pgDBConInterface] //Stdcall是指示函数的参数入栈方式是从右到左 function GetCanUpdate: B...