ushowbookf.dfm

来自「图书管理系统 用于进行图书的管理」· DFM 代码 · 共 104 行

object ShowBookF: TShowBookF
  Left = 476
  Top = 292
  AutoSize = True
  BorderStyle = bsNone
  Caption = '图书列表'
  ClientHeight = 181
  ClientWidth = 291
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 291
    Height = 181
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 0
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 287
      Height = 177
      BevelOuter = bvNone
      TabOrder = 0
      object ListView1: TListView
        Left = 4
        Top = 3
        Width = 280
        Height = 147
        Color = clInfoBk
        Columns = <
          item
            Caption = '书号'
            Width = 80
          end
          item
            Caption = '书名'
            Width = 100
          end
          item
            Caption = '类别名称'
            Width = 70
          end>
        ColumnClick = False
        GridLines = True
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = ListView1DblClick
      end
      object Panel4: TPanel
        Left = 143
        Top = 153
        Width = 136
        Height = 24
        AutoSize = True
        BevelOuter = bvLowered
        Caption = 'Panel3'
        TabOrder = 1
        object Button1: TButton
          Left = 1
          Top = 1
          Width = 67
          Height = 22
          Caption = '确定'
          Default = True
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 68
          Top = 1
          Width = 67
          Height = 22
          Caption = '取消'
          TabOrder = 1
          OnClick = Button2Click
        end
      end
    end
  end
  object ActionList1: TActionList
    Left = 6
    Top = 150
    object Action1: TAction
      Caption = 'Action1'
      ShortCut = 27
      OnExecute = Action1Execute
    end
  end
end