home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / V11_2.pas < prev    next >
Pascal/Delphi Source File  |  1997-05-04  |  952b  |  44 lines
  1. {
  2.              A unit for V110_2.DPR, a testprogram for:
  3.                                                          TzTrayIcon
  4.                                                          TzShowApp
  5.                                                          TzTitleBar
  6.                       The ZieglerCollection one (TM)
  7.                                 Version 1,10
  8.  
  9.         (C) Copyright 1997 By ZieglerSoft, all rights reserved
  10. }
  11. unit V11_2;
  12.  
  13. interface
  14.  
  15. uses
  16.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  17.   Mystd;
  18.  
  19. type
  20.   TForm1 = class(TForm)
  21.     zShowApp1: TzShowApp;
  22.     zTrayIcon1: TzTrayIcon;
  23.     zTitleBar1: TzTitleBar;
  24.     procedure zTrayIcon1Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.zTrayIcon1Click(Sender: TObject);
  39. begin
  40.   Close;
  41. end;
  42.  
  43. end.
  44.