home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 10 / Chip_Hitware_Vol_10.iso / chiphit / tools / 95tips / disk1 / _setup.2 / Group1 / ad.~ad next >
Text File  |  1997-12-31  |  7KB  |  303 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ComCtrls, ExtCtrls, Menus, Unit2;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     Datei1: TMenuItem;
  13.     Beenden1: TMenuItem;
  14.     Hilfe1: TMenuItem;
  15.     Info1: TMenuItem;
  16.     PageControl1: TPageControl;
  17.     Button1: TButton;
  18.     Panel1: TPanel;
  19.     TabSheet1: TTabSheet;
  20.     TabSheet2: TTabSheet;
  21.     TabSheet4: TTabSheet;
  22.     TabSheet5: TTabSheet;
  23.     TabSheet6: TTabSheet;
  24.     TabSheet7: TTabSheet;
  25.     TabSheet8: TTabSheet;
  26.     TabSheet9: TTabSheet;
  27.     TabSheet10: TTabSheet;
  28.     TabSheet11: TTabSheet;
  29.     TabSheet12: TTabSheet;
  30.     TabSheet13: TTabSheet;
  31.     TabSheet14: TTabSheet;
  32.     TabSheet15: TTabSheet;
  33.     TabSheet16: TTabSheet;
  34.     TabSheet17: TTabSheet;
  35.     TabSheet18: TTabSheet;
  36.     TabSheet19: TTabSheet;
  37.     TabSheet20: TTabSheet;
  38.     TabSheet21: TTabSheet;
  39.     TabSheet22: TTabSheet;
  40.     TabSheet23: TTabSheet;
  41.     TabSheet24: TTabSheet;
  42.     TabSheet25: TTabSheet;
  43.     TabSheet26: TTabSheet;
  44.     TabSheet27: TTabSheet;
  45.     TabSheet28: TTabSheet;
  46.     TabSheet29: TTabSheet;
  47.     TabSheet30: TTabSheet;
  48.     TabSheet31: TTabSheet;
  49.     TabSheet32: TTabSheet;
  50.     TabSheet33: TTabSheet;
  51.     ScrollBox1: TScrollBox;
  52.     Label1: TLabel;
  53.     ScrollBox3: TScrollBox;
  54.     ScrollBox4: TScrollBox;
  55.     ScrollBox5: TScrollBox;
  56.     ScrollBox6: TScrollBox;
  57.     ScrollBox7: TScrollBox;
  58.     ScrollBox8: TScrollBox;
  59.     ScrollBox9: TScrollBox;
  60.     ScrollBox10: TScrollBox;
  61.     ScrollBox11: TScrollBox;
  62.     ScrollBox12: TScrollBox;
  63.     ScrollBox13: TScrollBox;
  64.     ScrollBox14: TScrollBox;
  65.     ScrollBox15: TScrollBox;
  66.     ScrollBox16: TScrollBox;
  67.     ScrollBox17: TScrollBox;
  68.     ScrollBox18: TScrollBox;
  69.     ScrollBox19: TScrollBox;
  70.     ScrollBox20: TScrollBox;
  71.     ScrollBox21: TScrollBox;
  72.     ScrollBox22: TScrollBox;
  73.     ScrollBox23: TScrollBox;
  74.     ScrollBox24: TScrollBox;
  75.     ScrollBox25: TScrollBox;
  76.     ScrollBox26: TScrollBox;
  77.     ScrollBox27: TScrollBox;
  78.     ScrollBox28: TScrollBox;
  79.     ScrollBox29: TScrollBox;
  80.     ScrollBox30: TScrollBox;
  81.     ScrollBox31: TScrollBox;
  82.     ScrollBox32: TScrollBox;
  83.     ScrollBox33: TScrollBox;
  84.     ScrollBox34: TScrollBox;
  85.     Label2: TLabel;
  86.     Label3: TLabel;
  87.     Label4: TLabel;
  88.     Label5: TLabel;
  89.     Label6: TLabel;
  90.     Label7: TLabel;
  91.     Label8: TLabel;
  92.     Label9: TLabel;
  93.     Label10: TLabel;
  94.     Label11: TLabel;
  95.     Label12: TLabel;
  96.     Label13: TLabel;
  97.     Label14: TLabel;
  98.     Label15: TLabel;
  99.     Label16: TLabel;
  100.     Label17: TLabel;
  101.     Label18: TLabel;
  102.     Label19: TLabel;
  103.     Label20: TLabel;
  104.     Label21: TLabel;
  105.     Label22: TLabel;
  106.     Label23: TLabel;
  107.     Label24: TLabel;
  108.     Label25: TLabel;
  109.     Label26: TLabel;
  110.     Label27: TLabel;
  111.     Label28: TLabel;
  112.     Label29: TLabel;
  113.     Label30: TLabel;
  114.     Label31: TLabel;
  115.     Label32: TLabel;
  116.     Label33: TLabel;
  117.     Label34: TLabel;
  118.     Label35: TLabel;
  119.     Label36: TLabel;
  120.     Label37: TLabel;
  121.     Label38: TLabel;
  122.     Label39: TLabel;
  123.     Label40: TLabel;
  124.     Label41: TLabel;
  125.     Label42: TLabel;
  126.     Label43: TLabel;
  127.     Label44: TLabel;
  128.     Label45: TLabel;
  129.     Label46: TLabel;
  130.     Label47: TLabel;
  131.     Label48: TLabel;
  132.     Label49: TLabel;
  133.     Label50: TLabel;
  134.     Label51: TLabel;
  135.     Label52: TLabel;
  136.     Label53: TLabel;
  137.     Label54: TLabel;
  138.     Label55: TLabel;
  139.     Label56: TLabel;
  140.     Label57: TLabel;
  141.     Label58: TLabel;
  142.     Label59: TLabel;
  143.     Label60: TLabel;
  144.     Label61: TLabel;
  145.     Label62: TLabel;
  146.     Label63: TLabel;
  147.     Label64: TLabel;
  148.     Label65: TLabel;
  149.     Label66: TLabel;
  150.     Label67: TLabel;
  151.     Label68: TLabel;
  152.     Label69: TLabel;
  153.     Label70: TLabel;
  154.     Label71: TLabel;
  155.     Label72: TLabel;
  156.     Label73: TLabel;
  157.     Label74: TLabel;
  158.     Label75: TLabel;
  159.     Label76: TLabel;
  160.     Label77: TLabel;
  161.     Label78: TLabel;
  162.     Label79: TLabel;
  163.     Label80: TLabel;
  164.     Label81: TLabel;
  165.     Label82: TLabel;
  166.     Label83: TLabel;
  167.     Label84: TLabel;
  168.     Label85: TLabel;
  169.     Label86: TLabel;
  170.     Label87: TLabel;
  171.     Label88: TLabel;
  172.     Label89: TLabel;
  173.     Label90: TLabel;
  174.     Label91: TLabel;
  175.     Label92: TLabel;
  176.     Label93: TLabel;
  177.     Label94: TLabel;
  178.     Label95: TLabel;
  179.     Label96: TLabel;
  180.     Label97: TLabel;
  181.     Label98: TLabel;
  182.     Label99: TLabel;
  183.     Label100: TLabel;
  184.     Label101: TLabel;
  185.     Label102: TLabel;
  186.     Label103: TLabel;
  187.     Label104: TLabel;
  188.     Label105: TLabel;
  189.     Label106: TLabel;
  190.     Label107: TLabel;
  191.     Label108: TLabel;
  192.     Label109: TLabel;
  193.     Label110: TLabel;
  194.     Label111: TLabel;
  195.     Label112: TLabel;
  196.     Label113: TLabel;
  197.     Label114: TLabel;
  198.     Label115: TLabel;
  199.     Label116: TLabel;
  200.     Label117: TLabel;
  201.     Label118: TLabel;
  202.     Label119: TLabel;
  203.     Label120: TLabel;
  204.     Label121: TLabel;
  205.     Label122: TLabel;
  206.     Label123: TLabel;
  207.     Label124: TLabel;
  208.     Label125: TLabel;
  209.     Label126: TLabel;
  210.     Label127: TLabel;
  211.     Label130: TLabel;
  212.     Label131: TLabel;
  213.     Label132: TLabel;
  214.     Label133: TLabel;
  215.     Label134: TLabel;
  216.     Label135: TLabel;
  217.     Label136: TLabel;
  218.     Label137: TLabel;
  219.     Label138: TLabel;
  220.     Image1: TImage;
  221.     Label139: TLabel;
  222.     Label140: TLabel;
  223.     Label128: TLabel;
  224.     Label129: TLabel;
  225.     Label141: TLabel;
  226.     Label142: TLabel;
  227.     Label143: TLabel;
  228.     Label144: TLabel;
  229.     Label145: TLabel;
  230.     Label146: TLabel;
  231.     Label147: TLabel;
  232.     Label148: TLabel;
  233.     Label149: TLabel;
  234.     Label150: TLabel;
  235.     Label151: TLabel;
  236.     Label152: TLabel;
  237.     Label153: TLabel;
  238.     Label154: TLabel;
  239.     Label155: TLabel;
  240.     Label156: TLabel;
  241.     Label157: TLabel;
  242.     Label158: TLabel;
  243.     Button2: TButton;
  244.     Label159: TLabel;
  245.     Label160: TLabel;
  246.     Label162: TLabel;
  247.     Label163: TLabel;
  248.     Label164: TLabel;
  249.     Label165: TLabel;
  250.     Label166: TLabel;
  251.     Label167: TLabel;
  252.     Label168: TLabel;
  253.     Label169: TLabel;
  254.     Label170: TLabel;
  255.     Label171: TLabel;
  256.     Label161: TLabel;
  257.     Label172: TLabel;
  258.     Label173: TLabel;
  259.     Label174: TLabel;
  260.     Label175: TLabel;
  261.     procedure Beenden1Click(Sender: TObject);
  262.     procedure Button1Click(Sender: TObject);
  263.     procedure Info1Click(Sender: TObject);
  264.     procedure Button2Click(Sender: TObject);
  265.   private
  266.     { Private-Deklarationen }
  267.   public
  268.     { Public-Deklarationen }
  269.   end;
  270.  
  271. var
  272.   Form1: TForm1;
  273.  
  274. implementation
  275.  
  276. {$R *.DFM}
  277.  
  278. procedure TForm1.Beenden1Click(Sender: TObject);
  279. begin
  280. if MessageDlg ('Wollen Sie Tips32 wirklich beenden?', mtConfirmation,
  281. [mbYes, mbNo], 0) = mrYes then
  282. Application.Terminate;
  283. end;
  284.  
  285. procedure TForm1.Button1Click(Sender: TObject);
  286. begin
  287. if MessageDlg ('Wollen Sie Tips32 wirklich beenden?', mtConfirmation,
  288. [mbYes, mbNo], 0) = mrYes then
  289. Application.Terminate;
  290. end;
  291.  
  292. procedure TForm1.Info1Click(Sender: TObject);
  293. begin
  294.   Form2. ShowModal;
  295. end;
  296.  
  297. procedure TForm1.Button2Click(Sender: TObject);
  298. begin
  299.   Form2.ShowModal;
  300. end;
  301.  
  302. end.
  303.