home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / bcchild.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-07  |  933 b   |  39 lines
  1. {
  2.              A unit for BCKCLOCK.DPR, a testprogram for:
  3.                                                          TzSegmentClock
  4.                                                          TzBackground
  5.                       The ZieglerCollection one (TM)
  6.                                 Version 1,01
  7.  
  8.            (C) Copyright 1995,96,97 By ZieglerSoft, all rights reserved
  9. }
  10. unit Bcchild;
  11.  
  12. interface
  13.  
  14. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, zGauge,
  15.   ExtCtrls, Zsplit, Zseg, Blend;
  16.  
  17. type
  18.   TMDIChild = class(TForm)
  19.     zSegmentClock1: TzSegmentClock;
  20.     zBackground1: TzBackground;
  21.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32.  
  33. procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
  34. begin
  35.   Action := caFree;
  36. end;
  37.  
  38. end.
  39.