home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / DRBOBC.ZIP / DRBOB.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-20  |  685b  |  32 lines
  1. unit DrBob;
  2. interface
  3. uses Classes;
  4.  
  5. Type
  6.   TDrBob = class(TComponent)
  7.   private
  8.   { Private 'dummy' field for read-only design property About... }
  9.     Dummy: String;
  10.  
  11.   protected
  12.   { Protected 'FAbout' declarations }
  13.     FAbout: String;
  14.  
  15.   public
  16.   { Public class declarations (override) }
  17.     constructor Create(AOwner: TComponent); override;
  18.  
  19.   published
  20.   { Published About property }
  21.     property About: String read FAbout write Dummy;
  22.   end {TDrBob};
  23.  
  24. implementation
  25.  
  26.   constructor TDrBob.Create(AOwner: TComponent);
  27.   begin
  28.     inherited Create(AOwner);
  29.     FAbout := 'TDrBob (c) 1996 by Bob Swart (aka Dr.Bob - 100434,2072)'
  30.   end {Create};
  31. end.
  32.