开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
PagesF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

PagesF.pas：源码内容
  1. unit PagesF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, ComCtrls, ImgList;
  9. type
  10.   TForm1 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     TabSheet3: TTabSheet;
  15.     ListBox1: TListBox;
  16.     BitBtnPrevious: TBitBtn;
  17.     BitBtnNext: TBitBtn;
  18.     EditWidth: TEdit;
  19.     UpDown1: TUpDown;
  20.     Label1: TLabel;
  21.     CheckBoxMultiLine: TCheckBox;
  22.     CheckBoxVisible: TCheckBox;
  23.     BitBtnApply: TBitBtn;
  24.     Memo1: TMemo;
  25.     Label2: TLabel;
  26.     EditHeight: TEdit;
  27.     UpDown2: TUpDown;
  28.     Label3: TLabel;
  29.     BitBtnChange: TBitBtn;
  30.     ImageList1: TImageList;
  31.     GroupBox1: TGroupBox;
  32.     RadioButton1: TRadioButton;
  33.     RadioButton2: TRadioButton;
  34.     BitBtnAdd: TBitBtn;
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure ListBox1Click(Sender: TObject);
  37.     procedure BitBtnApplyClick(Sender: TObject);
  38.     procedure BitBtnChangeClick(Sender: TObject);
  39.     procedure BitBtnNextClick(Sender: TObject);
  40.     procedure BitBtnPreviousClick(Sender: TObject);
  41.     procedure Memo1Change(Sender: TObject);
  42.     procedure BitBtnAddClick(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  49. var
  50.   Form1: TForm1;
  52. implementation
  54. {$R *.DFM}
  56. procedure TForm1.FormCreate(Sender: TObject);
  57. var
  58.   I: Integer;
  59. begin
  60.   {fill the listbox and the memo
  61.   with the names of the pages}
  62.   for I := 0 to PageControl1.PageCount -1 do
  63.   begin
  64.     ListBox1.Items.Add (
  65.       PageControl1.Pages [I].Caption);
  66.     Memo1.Lines.Add (
  67.       PageControl1.Pages [I].Caption);
  68.   end;
  69.   {set the initial width and height of tabs}
  70.   EditWidth.Text := IntToStr (PageControl1.TabWidth);
  71.   EditHeight.Text := IntToStr (PageControl1.TabHeight);
  72.   {set the initial width and height of tabs}
  73.   PageControl1.ActivePage := TabSheet1;
  74. end;
  76. procedure TForm1.ListBox1Click(Sender: TObject);
  77. begin
  78.   PageControl1.ActivePage :=
  79.     PageControl1.Pages [ListBox1.ItemIndex];
  80. end;
  82. procedure TForm1.BitBtnApplyClick(Sender: TObject);
  83. begin
  84.   // set tab width, height, and lines
  85.   PageControl1.TabWidth := StrToInt (EditWidth.Text);
  86.   PageControl1.TabHeight := StrToInt (EditHeight.Text);
  87.   PageControl1.MultiLine := CheckBoxMultiLine.Checked;
  88.   // show or hide the last tab
  89.   TabSheet3.TabVisible := CheckBoxVisible.Checked;
  90.   // set the tab position
  91.   if RadioButton1.Checked then
  92.     PageControl1.TabPosition := tpTop
  93.   else
  94.     PageControl1.TabPosition := tpLeft;
  95. end;
  97. procedure TForm1.BitBtnChangeClick(Sender: TObject);
  98. var
  99.   I: Integer;
  100. begin
  101.   if Memo1.Lines.Count = PageControl1.PageCount then
  102.     for I := 0 to PageControl1.PageCount -1 do
  103.       PageControl1.Pages [I].Caption := Memo1.Lines [I];
  104.   BitBtnChange.Enabled := False;
  105. end;
  107. procedure TForm1.BitBtnNextClick(Sender: TObject);
  108. begin
  109.   // basic version:
  110.   {PageControl1.SelectNextPage (True);}
  112.   // special lookup version:
  113.   PageControl1.ActivePage :=
  114.     PageControl1.FindNextPage (
  115.       PageControl1.ActivePage, True, False);
  116. end;
  118. procedure TForm1.BitBtnPreviousClick(Sender: TObject);
  119. begin
  120.   {select previous page}
  121.   PageControl1.SelectNextPage (False);
  122. end;
  124. procedure TForm1.Memo1Change(Sender: TObject);
  125. begin
  126.   BitBtnChange.Enabled := True;
  127. end;
  129. procedure TForm1.BitBtnAddClick(Sender: TObject);
  130. var
  131.   strCaption: string;
  132.   NewTabSheet: TTabSheet;
  133. begin
  134.   strCaption := 'New Tab';
  135.   if InputQuery ('New Tab', 'Tab Caption', strCaption) then
  136.   begin
  137.     // add a new empty page to the control
  138.     NewTabSheet := TTabSheet.Create (PageControl1);
  139.     NewTabSheet.Visible := True;
  140.     NewTabSheet.Caption := strCaption;
  141.     NewTabSheet.PageControl := PageControl1;
  142.     PageControl1.ActivePage := NewTabSheet;
  143.     // add it to both lists
  144.     Memo1.Lines.Add (strCaption);
  145.     ListBox1.Items.Add (strCaption);
  146.   end;
  147. end;
  149. end.