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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
tabbuttons.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

tabbuttons.pas：源码内容
  1. unit tabbuttons;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBTables, StdCtrls, fcLabel, ExtCtrls, fcClearPanel, fcButtonGroup,
  8.   ComCtrls, fcButton, fcImgBtn;
  10. type
  11.   TTabBtnGroupForm = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     Shape1: TShape;
  16.     fcButtonGroup1: TfcButtonGroup;
  17.     fcButtonGroup1fcImageBtn1: TfcImageBtn;
  18.     fcButtonGroup1fcImageBtn2: TfcImageBtn;
  19.     fcButtonGroup1fcImageBtn3: TfcImageBtn;
  20.     fcButtonGroup1fcImageBtn4: TfcImageBtn;
  21.     fcButtonGroup1fcImageBtn5: TfcImageBtn;
  22.     fcButtonGroup1fcImageBtn6: TfcImageBtn;
  23.     fcButtonGroup1fcImageBtn7: TfcImageBtn;
  24.     fcLabel1: TfcLabel;
  25.     fcLabel2: TfcLabel;
  26.     fcLabel3: TfcLabel;
  27.     TabSheet3: TTabSheet;
  28.     TabSheet4: TTabSheet;
  29.     TabSheet5: TTabSheet;
  30.     fcLabel4: TfcLabel;
  31.     fcLabel5: TfcLabel;
  32.     fcLabel6: TfcLabel;
  33.     TabSheet6: TTabSheet;
  34.     TabSheet7: TTabSheet;
  35.     fcLabel7: TfcLabel;
  36.     fcLabel8: TfcLabel;
  37.     procedure fcButtonGroup1Change(ButtonGroup: TfcCustomButtonGroup;
  38.       OldSelected, Selected: TfcButtonGroupItem);
  39.     procedure FormShow(Sender: TObject);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  46. var
  47.   TabBtnGroupForm: TTabBtnGroupForm;
  49. implementation
  51. {$R *.DFM}
  53. procedure TTabBtnGroupForm.fcButtonGroup1Change(ButtonGroup: TfcCustomButtonGroup;
  54.   OldSelected, Selected: TfcButtonGroupItem);
  55. begin
  56.    PageControl1.ActivePage :=
  57.       (FindComponent('TabSheet'+IntToStr(Selected.Button.Tag)) as TTabSheet);
  58. end;
  60. procedure TTabBtnGroupForm.FormShow(Sender: TObject);
  61. begin
  62.   PageControl1.ActivePage := TabSheet1;
  63. end;
  65. end.