home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-18  |  1.3 KB  |  69 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Buttons, Unit01, Unit02, UnitMain, RepMain, StdCtrls,
  8.   BandMain;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     Print: TSpeedButton;
  13.     Report: TSpeedButton;
  14.     Various: TSpeedButton;
  15.     SpeedButton4: TSpeedButton;
  16.     More: TSpeedButton;
  17.     Memo1: TMemo;
  18.     Band: TSpeedButton;
  19.     procedure VariousClick(Sender: TObject);
  20.     procedure SpeedButton4Click(Sender: TObject);
  21.     procedure PrintClick(Sender: TObject);
  22.     procedure ReportClick(Sender: TObject);
  23.     procedure MoreClick(Sender: TObject);
  24.     procedure BandClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   MainForm: TMainForm;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TMainForm.VariousClick(Sender: TObject);
  39. begin
  40.     CBDemo01.ShowModal;
  41. end;
  42.  
  43. procedure TMainForm.SpeedButton4Click(Sender: TObject);
  44. begin
  45.     Close;
  46. end;
  47.  
  48. procedure TMainForm.PrintClick(Sender: TObject);
  49. begin
  50.     MainDialog.ShowModal;
  51. end;
  52.  
  53. procedure TMainForm.ReportClick(Sender: TObject);
  54. begin
  55.     MainReport.ShowModal;
  56. end;
  57.  
  58. procedure TMainForm.MoreClick(Sender: TObject);
  59. begin
  60.     CBDemo02.ShowModal;
  61. end;
  62.  
  63. procedure TMainForm.BandClick(Sender: TObject);
  64. begin
  65.     BandDemo.ShowModal;
  66. end;
  67.  
  68. end.
  69.