udisplay.dfm

中式财务栏 表格式录入 运行时设置可显示列、列名、列宽

object FormDisplay: TFormDisplay
  Left = 243
  Top = 138
  Width = 696
  Height = 480
  Caption = #20998#32452#32479#35745#21518#32467#26524
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object grp1: TGroupBox
    Left = 0
    Top = 413
    Width = 688
    Height = 40
    Align = alBottom
    TabOrder = 0
    object btn3: TButton
      Left = 536
      Top = 8
      Width = 80
      Height = 27
      Caption = #20851#38381'(&C)'
      TabOrder = 0
      OnClick = btn3Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 688
    Height = 413
    Align = alClient
    DataSource = ds1
    ShowSerialNo = True
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnBuildIndicatorTitleMenu = DBGridEh1BuildIndicatorTitleMenu
  end
  object ds1: TDataSource
    Left = 208
    Top = 216
  end
end