home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / dnarrays.lzh / ARRTEST7.PAS < prev    next >
Pascal/Delphi Source File  |  1995-06-04  |  1KB  |  50 lines
  1. unit Arrtest7;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TInspectionDlg = class(TForm)
  11.     GrpFlags: TGroupBox;
  12.     CheckBox1: TCheckBox;
  13.     ChkAutoSize: TCheckBox;
  14.     CheckBox3: TCheckBox;
  15.     CheckBox7: TCheckBox;
  16.     CheckBox8: TCheckBox;
  17.     CheckBox9: TCheckBox;
  18.     CheckBox4: TCheckBox;
  19.     CheckBox5: TCheckBox;
  20.     CheckBox6: TCheckBox;
  21.     CheckBox10: TCheckBox;
  22.     CheckBox11: TCheckBox;
  23.     CheckBox12: TCheckBox;
  24.     CheckBox13: TCheckBox;
  25.     CheckBox14: TCheckBox;
  26.     CheckBox15: TCheckBox;
  27.     CheckBox16: TCheckBox;
  28.     Button1: TButton;
  29.     procedure CheckBox1Click(Sender: TObject);
  30.   private
  31.     { Private-Deklarationen }
  32.   public
  33.     { Public-Deklarationen }
  34.   end;
  35.  
  36. var
  37.   InspectionDlg: TInspectionDlg;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TInspectionDlg.CheckBox1Click(Sender: TObject);
  44. begin
  45.   If Visible Then
  46.     ShowMessage( 'Changing this checkbox has no effect on the array Flags!');
  47. end;
  48.  
  49. end.
  50.