u_mainfrm.dfm

给一个企业做的产品展示系统,很好的展示了产品的各种功能

      BevelOuter = bvNone
      Color = clWhite
      TabOrder = 1
      object pnlClient: TRzPanel
        Left = 0
        Top = 0
        Width = 796
        Height = 481
        Align = alClient
        BorderOuter = fsNone
        BorderColor = clWhite
        BorderShadow = clWhite
        BorderWidth = 8
        Color = clWhite
        FlatColor = clWhite
        GradientColorStop = clWhite
        GridColor = clWhite
        TabOrder = 0
        object pgcRight: TRzPageControl
          Left = 8
          Top = 8
          Width = 780
          Height = 465
          ActivePage = TabSheet4
          Align = alClient
          FlatColor = clWhite
          HotTrackColor = clWhite
          HotTrackStyle = htsText
          ShowShadow = False
          TabIndex = 3
          TabOrder = 0
          FixedDimension = 18
          object TabSheet1: TRzTabSheet
            Color = clWhite
            Caption = 'TabSheet1'
            object wbPreview: TWebBrowser
              Left = 0
              Top = 0
              Width = 778
              Height = 445
              TabStop = False
              Align = alClient
              ParentShowHint = False
              ShowHint = False
              TabOrder = 0
              ControlData = {
                4C00000069500000FE2D00000000000000000000000000000000000000000000
                000000004C000000000000000000000001000000E0D057007335CF11AE690800
                2B2E126208000000000000004C0000000114020000000000C000000000000046
                8000000000000000000000000000000000000000000000000000000000000000
                00000000000000000100000000000000000000000000000000000000}
            end
          end
          object TabSheet2: TRzTabSheet
            Color = clWhite
            Caption = 'TabSheet2'
            object pgcProduct: TRzPageControl
              Left = 0
              Top = 0
              Width = 778
              Height = 445
              ActivePage = RzTabSheet1
              Align = alClient
              HotTrackStyle = htsText
              ShowShadow = False
              TabIndex = 0
              TabOrder = 0
              TabStyle = tsCutCorner
              OnChange = pgcProductChange
              OnChanging = pgcProductChanging
              FixedDimension = 19
              object RzTabSheet1: TRzTabSheet
                Color = clWhite
                Caption = '  '#20135#21697#21015#34920'  '
                object Panel6: TPanel
                  Left = 0
                  Top = 0
                  Width = 776
                  Height = 424
                  Align = alClient
                  BevelOuter = bvNone
                  BorderWidth = 2
                  Color = clWhite
                  TabOrder = 0
                  object WebBrowser1: TWebBrowser
                    Left = 2
                    Top = 2
                    Width = 772
                    Height = 420
                    TabStop = False
                    Align = alClient
                    ParentShowHint = False
                    ShowHint = False
                    TabOrder = 0
                    ControlData = {
                      4C000000CA4F0000692B00000000000000000000000000000000000000000000
                      000000004C000000000000000000000001000000E0D057007335CF11AE690800
                      2B2E126208000000000000004C0000000114020000000000C000000000000046
                      8000000000000000000000000000000000000000000000000000000000000000
                      00000000000000000100000000000000000000000000000000000000}
                  end
                  object Panel4: TPanel
                    Left = 2
                    Top = 2
                    Width = 772
                    Height = 420
                    Align = alClient
                    BevelOuter = bvNone
                    BorderWidth = 8
                    Color = clWhite
                    TabOrder = 1
                    object dbgProduct: TDBGridEh
                      Left = 8
                      Top = 8
                      Width = 756
                      Height = 404
                      Hint = #21452#20987#26174#31034#20135#21697#35814#32454#20449#24687#12290
                      Align = alClient
                      Ctl3D = True
                      DataSource = dsProduct
                      FixedColor = 15916757
                      Flat = True
                      Font.Charset = ANSI_CHARSET
                      Font.Color = clBlue
                      Font.Height = -14
                      Font.Name = #23435#20307
                      Font.Style = []
                      FooterColor = clWhite
                      FooterFont.Charset = GB2312_CHARSET
                      FooterFont.Color = clWindowText
                      FooterFont.Height = -19
                      FooterFont.Name = #23435#20307
                      FooterFont.Style = [fsBold]
                      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
                      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
                      ParentCtl3D = False
                      ParentFont = False
                      ParentShowHint = False
                      RowHeight = 26
                      ShowHint = True
                      TabOrder = 0
                      TitleFont.Charset = GB2312_CHARSET
                      TitleFont.Color = clNavy
                      TitleFont.Height = -12
                      TitleFont.Name = #23435#20307
                      TitleFont.Style = []
                      TitleHeight = 20
                      UseMultiTitle = True
                      OnDblClick = dbgProductDblClick
                      OnDrawColumnCell = dbgProductDrawColumnCell
                      Columns = <
                        item
                          AutoFitColWidth = False
                          EditButtons = <>
                          FieldName = 'Model'
                          Footers = <>
                          Title.Caption = #22411#21495
                          Width = 72
                        end
                        item
                          EditButtons = <>
                          FieldName = 'Size'
                          Footers = <>
                          Title.Caption = #22806#24418#23610#23544
                          Width = 107
                        end
                        item
                          EditButtons = <>
                          FieldName = 'TouchType'
                          Footers = <>
                          Title.Caption = #35302#28857#24418#24335
                          Width = 70
                        end
                        item
                          EditButtons = <>
                          FieldName = 'TempBound'
                          Footers = <>
                          Title.Caption = #28201#24230#33539#22260
                          Width = 83
                        end
                        item
                          EditButtons = <>
                          FieldName = 'LibrationBound'
                          Footers = <>
                          Title.Caption = #25391#21160#33539#22260
                          Width = 99
                        end
                        item
                          EditButtons = <>
                          FieldName = 'LoadCurrentBound'
                          Footers = <>
                          Title.Caption = #36127#36733#30005#27969#33539#22260
                          Width = 177
                        end
                        item
                          EditButtons = <>
                          FieldName = 'TouchLoad'
                          Footers = <>
                          Title.Caption = #35302#28857#36127#36733
                          Width = 99
                        end
                        item
                          EditButtons = <>
                          FieldName = 'Remark'
                          Footers = <>
                          Title.Caption = #22791#27880
                          Width = 170
                        end>
                    end
                    object mpPlayer: TMediaPlayer
                      Left = 464
                      Top = 231
                      Width = 253
                      Height = 20
                      FileName = 'F:\Relax\mp3\'#36731#38899#20048'\'#33713#33589#27827#27874#24433'.rm'
                      Visible = False
                      TabOrder = 1
                    end
                  end
                end
              end
              object RzTabSheet2: TRzTabSheet
                Color = clWhite
                Caption = '  '#20135#21697#26126#32454'  '
                object Panel2: TPanel
                  Left = 0
                  Top = 0
                  Width = 765
                  Height = 295
                  Align = alClient
                  BevelOuter = bvNone
                  BorderWidth = 8
                  Color = clWhite
                  TabOrder = 0
                  object wbPreview2: TWebBrowser
                    Left = 8
                    Top = 8
                    Width = 749
                    Height = 279
                    TabStop = False
                    Align = alClient
                    ParentShowHint = False
                    ShowHint = False
                    TabOrder = 0
                    ControlData = {
                      4C000000694D0000D61C00000000000000000000000000000000000000000000
                      000000004C000000000000000000000001000000E0D057007335CF11AE690800
                      2B2E126208000000000000004C0000000114020000000000C000000000000046
                      8000000000000000000000000000000000000000000000000000000000000000
                      00000000000000000100000000000000000000000000000000000000}