kxianmain.dfm

delphi写的读股票K线源代码

object FormKXianMain: TFormKXianMain
  Left = 273
  Top = 145
  Width = 618
  Height = 303
  ActiveControl = EditCode
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'K线图之星'
  Color = clBlack
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainFormMenu
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = PaintBoxMainPaint
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 14
  object PaintBoxMain: TPaintBox
    Left = 0
    Top = 0
    Width = 610
    Height = 207
    Align = alClient
    Color = clBlack
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = '宋体'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnMouseDown = PaintBoxMainMouseDown
    OnPaint = PaintBoxMainPaint
  end
  object PanelMain: TPanel
    Left = 0
    Top = 207
    Width = 610
    Height = 40
    Align = alBottom
    TabOrder = 0
    object LabelCode: TLabel
      Left = 372
      Top = 11
      Width = 98
      Height = 14
      Anchors = [akRight, akBottom]
      Caption = '请输入证券代码'
    end
    object EditCode: TEdit
      Left = 479
      Top = 5
      Width = 120
      Height = 25
      Anchors = [akRight, akBottom]
      BiDiMode = bdRightToLeft
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = '宋体'
      Font.Style = []
      MaxLength = 6
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 0
      OnKeyDown = EditCodeKeyDown
    end
  end
  object MainFormMenu: TMainMenu
    Left = 88
    Top = 8
    object NXiTongGongJu: TMenuItem
      Caption = '系统工具(&T)'
      object NShuJuYuanSheZhi: TMenuItem
        Caption = '数据源设置(&D)'
        OnClick = NShuJuYuanSheZhiClick
      end
    end
    object NTuiChu: TMenuItem
      Caption = '退出(&X)'
      OnClick = NTuiChuClick
    end
  end
end