home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / CALCBOX.ZIP / DEMO / TRYME1.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-12-30  |  2.3 KB  |  113 lines
  1. unit Tryme1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, TabNotBk, Buttons, ExtCtrls, SetProps,Dragdrop;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     TabbedNotebook1: TTabbedNotebook;
  12.     Memo1: TMemo;
  13.     Label2: TLabel;
  14.     Label4: TLabel;
  15.     Label5: TLabel;
  16.     Label6: TLabel;
  17.     Memo2: TMemo;
  18.     Memo3: TMemo;
  19.     Label1: TLabel;
  20.     Label3: TLabel;
  21.     Label8: TLabel;
  22.     Label9: TLabel;
  23.     Label10: TLabel;
  24.     Label12: TLabel;
  25.     Label13: TLabel;
  26.     Label14: TLabel;
  27.     Label15: TLabel;
  28.     Label7: TLabel;
  29.     Label16: TLabel;
  30.     Label18: TLabel;
  31.     Label11: TLabel;
  32.     Label17: TLabel;
  33.     Label19: TLabel;
  34.     Label20: TLabel;
  35.     Label21: TLabel;
  36.     Label22: TLabel;
  37.     Label23: TLabel;
  38.     Label24: TLabel;
  39.     Label25: TLabel;
  40.     ListBox1: TListBox;
  41.     ListBox2: TListBox;
  42.     Label26: TLabel;
  43.     Label27: TLabel;
  44.     Label28: TLabel;
  45.     Label29: TLabel;
  46.     BitBtn1: TBitBtn;
  47.     BitBtn2: TBitBtn;
  48.     Label30: TLabel;
  49.     Label31: TLabel;
  50.     Label32: TLabel;
  51.     Label33: TLabel;
  52.     Image1: TImage;
  53.     Image2: TImage;
  54.     Image3: TImage;
  55.     Image4: TImage;
  56.     Image5: TImage;
  57.     Image6: TImage;
  58.     Image7: TImage;
  59.     Image8: TImage;
  60.     Image9: TImage;
  61.     Image10: TImage;
  62.     Image11: TImage;
  63.     Image12: TImage;
  64.     GroupBox1: TGroupBox;
  65.     Image13: TImage;
  66.     Image14: TImage;
  67.     Label34: TLabel;
  68.     Label35: TLabel;
  69.     GroupBox2: TGroupBox;
  70.     Image15: TImage;
  71.     Label36: TLabel;
  72.     Image16: TImage;
  73.     Label37: TLabel;
  74.     Label38: TLabel;
  75.     Image17: TImage;
  76.     Label39: TLabel;
  77.     Image18: TImage;
  78.     GroupBox3: TGroupBox;
  79.     Image19: TImage;
  80.     Label40: TLabel;
  81.     Image20: TImage;
  82.     Label41: TLabel;
  83.     GroupBox4: TGroupBox;
  84.     Image21: TImage;
  85.     Label42: TLabel;
  86.     Label43: TLabel;
  87.     procedure BitBtn2Click(Sender: TObject);
  88.     procedure BitBtn1Click(Sender: TObject);
  89.   private
  90.     { Private declarations }
  91.   public
  92.     { Public declarations }
  93.   end;
  94.  
  95. var
  96.   Form1: TForm1;
  97.  
  98. implementation
  99.  
  100. {$R *.DFM}
  101.  
  102. procedure TForm1.BitBtn2Click(Sender: TObject);
  103. begin
  104. Form2.showmodal;
  105. end;
  106.  
  107. procedure TForm1.BitBtn1Click(Sender: TObject);
  108. begin
  109. form3.showmodal;
  110. end;
  111.  
  112. end.
  113.