u_editlst.dfm

来自「一个电力企业的后台管理程序」· DFM 代码 · 共 90 行

object Frm_EditLst: TFrm_EditLst
  Left = 290
  Top = 92
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '数据列表...'
  ClientHeight = 308
  ClientWidth = 351
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnl_button: TPanel
    Left = 0
    Top = 263
    Width = 351
    Height = 45
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 0
    object btn_Insert: TBitBtn
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = '新增'
      TabOrder = 0
      OnClick = btn_InsertClick
    end
    object btn_Edit: TBitBtn
      Left = 93
      Top = 8
      Width = 75
      Height = 25
      Caption = '编辑'
      TabOrder = 1
      OnClick = btn_EditClick
    end
    object btn_Close: TBitBtn
      Left = 264
      Top = 8
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 2
      OnClick = btn_CloseClick
    end
    object Btn_Del: TBitBtn
      Left = 179
      Top = 8
      Width = 75
      Height = 25
      Caption = '删除'
      TabOrder = 3
      OnClick = Btn_DelClick
    end
  end
  object lv_phoneline: TListView
    Left = 0
    Top = 0
    Width = 351
    Height = 263
    Align = alClient
    Columns = <>
    ColumnClick = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    FlatScrollBars = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = btn_EditClick
  end
end