home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / PALETTE / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1998-04-13  |  2KB  |  80 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Buttons, ExtCtrls, Tabs, StdCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     TabSet1: TTabSet;
  12.     Notebook1: TNotebook;
  13.     SpeedButton1: TSpeedButton;
  14.     SpeedButton2: TSpeedButton;
  15.     SpeedButton3: TSpeedButton;
  16.     SpeedButton4: TSpeedButton;
  17.     SpeedButton5: TSpeedButton;
  18.     SpeedButton6: TSpeedButton;
  19.     SpeedButton7: TSpeedButton;
  20.     SpeedButton8: TSpeedButton;
  21.     SpeedButton9: TSpeedButton;
  22.     SpeedButton10: TSpeedButton;
  23.     SpeedButton11: TSpeedButton;
  24.     SpeedButton12: TSpeedButton;
  25.     SpeedButton13: TSpeedButton;
  26.     SpeedButton14: TSpeedButton;
  27.     SpeedButton15: TSpeedButton;
  28.     SpeedButton16: TSpeedButton;
  29.     SpeedButton17: TSpeedButton;
  30.     SpeedButton18: TSpeedButton;
  31.     SpeedButton19: TSpeedButton;
  32.     SpeedButton20: TSpeedButton;
  33.     SpeedButton21: TSpeedButton;
  34.     SpeedButton22: TSpeedButton;
  35.     SpeedButton23: TSpeedButton;
  36.     SpeedButton24: TSpeedButton;
  37.     SpeedButton25: TSpeedButton;
  38.     SpeedButton26: TSpeedButton;
  39.     SpeedButton27: TSpeedButton;
  40.     SpeedButton28: TSpeedButton;
  41.     SpeedButton29: TSpeedButton;
  42.     SpeedButton30: TSpeedButton;
  43.     SpeedButton31: TSpeedButton;
  44.     SpeedButton32: TSpeedButton;
  45.     SpeedButton33: TSpeedButton;
  46.     SpeedButton34: TSpeedButton;
  47.     SpeedButton35: TSpeedButton;
  48.     SpeedButton36: TSpeedButton;
  49.     BitBtn1: TBitBtn;
  50.     Label1: TLabel;
  51.     Bevel1: TBevel;
  52.     procedure TabSet1Click(Sender: TObject);
  53.     procedure SpeedButton1Click(Sender: TObject);
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.   end;
  59.  
  60. var
  61.   MainForm: TMainForm;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. procedure TMainForm.TabSet1Click(Sender: TObject);
  68. begin
  69.   with TabSet1 do
  70.   NoteBook1.ActivePage := Tabs[TabIndex];
  71. end;
  72.  
  73. procedure TMainForm.SpeedButton1Click(Sender: TObject);
  74. begin
  75.   with Sender as TSpeedButton do
  76.     Label1.Caption := Caption;
  77. end;
  78.  
  79. end.
  80.