icustomcomponent.pas

来自「非常好用的工控组件包,LED数码管」· PAS 代码 · 共 29 行

{*******************************************************}
{                                                       }
{       TiCustomComponent Component                     }
{                                                       }
{       Copyright (c) 1997,2003 Iocomp Software         }
{                                                       }
{*******************************************************}
{$I iInclude.inc}

{$ifdef iVCL}unit  iCustomComponent;{$endif}
{$ifdef iCLX}unit QiCustomComponent;{$endif}

interface

uses
  {$I iIncludeUses.inc}
  {$IFDEF iVCL} iVCLComponent;{$ENDIF}
  {$IFDEF iCLX}QiCLXComponent;{$ENDIF}

type
  {$ifdef iVCL} TiCustomComponent = class(TiVCLComponent){$endif}
  {$ifdef iCLX} TiCustomComponent = class(TiCLXComponent){$endif}
  public
  end;

implementation

end.