home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / pagectrl.pak / PAGEFORM.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.7 KB  |  82 lines
  1. unit PageForm;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Controls,
  6.   Forms, Tabs, StdCtrls, ExtCtrls, Menus;
  7.  
  8. type
  9.   TForm1 = class(TForm)
  10.     Button1: TButton;
  11.     Button2: TButton;
  12.     TabControl1: TTabSet;
  13.     PageControl1: TNotebook;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     RadioButton1: TRadioButton;
  18.     RadioButton2: TRadioButton;
  19.     RadioButton3: TRadioButton;
  20.     CheckBox1: TCheckBox;
  21.     CheckBox2: TCheckBox;
  22.     CheckBox3: TCheckBox;
  23.     ListBox1: TListBox;
  24.     Button3: TButton;
  25.     Button4: TButton;
  26.     Bevel1: TBevel;
  27.     PopupMenu1: TPopupMenu;
  28.     Next: TMenuItem;
  29.     Previous: TMenuItem;
  30.     procedure Button3Click(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure TabControl1Click(Sender: TObject);
  33.     procedure ButtonClick(Sender: TObject);
  34.     procedure Button4Click(Sender: TObject);
  35.     procedure NextClick(Sender: TObject);
  36.     procedure PreviousClick(Sender: TObject);
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TForm1.Button3Click(Sender: TObject);
  47. begin
  48.   ListBox1.Clear;
  49. end;
  50.  
  51. procedure TForm1.FormCreate(Sender: TObject);
  52. begin
  53.   TabControl1.Tabs := PageControl1.Pages;
  54. end;
  55.  
  56. procedure TForm1.TabControl1Click(Sender: TObject);
  57. begin
  58.   PageControl1.PageIndex := TabControl1.TabIndex;
  59. end;
  60.  
  61. procedure TForm1.ButtonClick(Sender: TObject);
  62. begin
  63.   Close;
  64. end;
  65.  
  66. procedure TForm1.Button4Click(Sender: TObject);
  67. begin
  68.   ListBox1.Sorted := True;
  69. end;
  70.  
  71. procedure TForm1.NextClick(Sender: TObject);
  72. begin
  73.   TabControl1.SelectNext(True); {Ctrl-Tab}
  74. end;
  75.  
  76. procedure TForm1.PreviousClick(Sender: TObject);
  77. begin
  78.   TabControl1.SelectNext(False); {Ctrl-Shift-Tab}
  79. end;
  80.  
  81. end.
  82.