中国程序员联盟 正在重新改版中ing 不便之处还请见谅 改版后将内容涉及java delphi .net php
 
  首页 | 数据库开发 | 网络通讯 | 多线程 | 多媒体开发 | 图像处理 | 程序人生 | 系统函数 | 控件开发 | Web服务
 
  当前位置:笨鱼delphi技术网>控件开发>控件使用>文章内容

delphi 如何保存属性到运行期使用(下)

来源:国外 关于:Yoganand Aiyadurai 发布时间:2007-07-21   [收藏] [推荐]
//**********************************************************************
//****** Property Editor's form file (dfm)  Code **************************
//**********************************************************************
object fmPropDlg: TfmPropDlg
  Left = 263
    Top = 371
    BorderStyle = bsDialog
    Caption = 'Editor Dlg'
    ClientHeight = 103
    ClientWidth = 218
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OldCreateOrder = False
    Position = poScreenCenter
    OnCreate = FormCreate
    OnShow = FormShow
    PixelsPerInch = 96
    TextHeight = 13
    object Label1: TLabel
    Left = 16
      Top = 24
      Width = 36
      Height = 13
      Caption = 'Value 1'
  end
  object Label2: TLabel
    Left = 17
      Top = 51
      Width = 33
      Height = 13
      Caption = 'Value2'
  end
  object sbAdd: TSpeedButton
    Left = 26
      Top = 77
      Width = 23
      Height = 22
      Glyph.Data = {
    76010000424D7601000000000000760000002800000020000000100000000100
    04000000000000010000130B0000130B00001000000000000000000000000000
    800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
    33333333FF33333333FF333993333333300033377F3333333777333993333333
    300033F77FFF3333377739999993333333333777777F3333333F399999933333
    33003777777333333377333993333333330033377F3333333377333993333333
    3333333773333333333F333333333333330033333333F33333773333333C3333
    330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
    993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
    333333333337733333FF3333333C333330003333333733333777333333333333
    3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
      OnClick = sbAddClick
  end
  object sbDelete: TSpeedButton
    Left = 62
      Top = 76
      Width = 23
      Height = 22
      Glyph.Data = {
    76010000424D7601000000000000760000002800000020000000100000000100
    04000000000000010000130B0000130B00001000000000000000000000000000
    800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
    333333333333333333FF33333333333330003333333333333777333333333333
    300033FFFFFF3333377739999993333333333777777F3333333F399999933333
    3300377777733333337733333333333333003333333333333377333333333333
    3333333333333333333F333333333333330033333F33333333773333C3333333
    330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
    993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
    333333377F33333333FF3333C333333330003333733333333777333333333333
    3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
      OnClick = sbDeleteClick
  end
  object sbOk: TSpeedButton
    Left = 100
      Top = 76
      Width = 23
      Height = 22
      Glyph.Data = {
    76010000424D7601000000000000760000002800000020000000100000000100
    04000000000000010000120B0000120B00001000000000000000000000000000
    800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
    555555555555555555555555555555555555555555FF55555555555559055555
    55555555577FF5555555555599905555555555557777F5555555555599905555
    555555557777FF5555555559999905555555555777777F555555559999990555
    5555557777777FF5555557990599905555555777757777F55555790555599055
    55557775555777FF5555555555599905555555555557777F5555555555559905
    555555555555777FF5555555555559905555555555555777FF55555555555579
    05555555555555777FF5555555555557905555555555555777FF555555555555
    5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
      OnClick = sbOkClick
  end
  object sbCancel: TSpeedButton
    Left = 144
      Top = 76
      Width = 23
      Height = 22
      Glyph.Data = {
    76010000424D7601000000000000760000002800000020000000100000000100
    04000000000000010000130B0000130B00001000000000000000000000000000
    800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
    333333333333333333333333333333333333333FFF33FF333FFF339993370733
    999333777FF37FF377733339993000399933333777F777F77733333399970799
    93333333777F7377733333333999399933333333377737773333333333990993
    3333333333737F73333333333331013333333333333777FF3333333333910193
    333333333337773FF3333333399000993333333337377737FF33333399900099
    93333333773777377FF333399930003999333337773777F777FF339993370733
    9993337773337333777333333333333333333333333333333333333333333333
    3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object sbup: TSpeedButton
    Left = 192
      Top = 16
      Width = 23
      Height = 22
      Glyph.Data = {
    76010000424D7601000000000000760000002800000020000000100000000100
    04000000000000010000120B0000120B00001000000000000000000000000000
    800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
    3333333333777F33333333333309033333333333337F7F333333333333090333
    33333333337F7F33333333333309033333333333337F7F333333333333090333
    33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
    3333333777737777F333333099999990333333373F3333373333333309999903
    333333337F33337F33333333099999033333333373F333733333333330999033
    3333333337F337F3333333333099903333333333373F37333333333333090333
    33333333337F7F33333333333309033333333333337373333333333333303333
    333333333337F333333333333330333333333333333733333333}
    NumGlyphs = 2
      OnClick = sbupClick
  end
  object sbDown: TSpeedButton
    Left = 192
      Top = 64
      Width = 23
      Height = 22
      Glyph.Data = {
    76010000424D7601000000000000760000002800000020000000100000000100
    04000000000000010000120B0000120B00001000000000000000000000000000
    800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
    333333333337F33333333333333033333333333333373F333333333333090333
    33333333337F7F33333333333309033333333333337373F33333333330999033
    3333333337F337F33333333330999033333333333733373F3333333309999903
    333333337F33337F33333333099999033333333373333373F333333099999990
    33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
    33333333337F7F33333333333309033333333333337F7F333333333333090333
    33333333337F7F33333333333309033333333333337F7F333333333333090333
    33333333337F7F33333333333300033333333333337773333333}
    NumGlyphs = 2
      OnClick = sbDownClick
  end
  object edtStr: TEdit
    Left = 56
      Top = 21
      Width = 121
      Height = 21
      TabOrder = 0
  end
  object edtInt: TEdit
    Left = 56
      Top = 48
      Width = 121
      Height = 21
      TabOrder = 1
  end
end
//******************************************************

[浏览: 次]   
上一篇:delphi 如何将属性在设计期保存到DFM文件(中)   下一篇:delphi 得到TVirtualExplorerListview当前路径
[收藏] [推荐] [返回顶部] [打印本页] [关闭窗口]  
    评论加载中…
google adsense热点文章
·delphi treeview 使用
·delphi delphi下对象类别检查
·delphi 组件序列化
·delphi 如何在DBGRID里添加行序号
·delphi 组件用户自定义设计期工具
·delphi 显示GRID单Cell框的Hint
·delphi 如何保存属性到运行期使用(上)
·delphi 组件序列化
·delphi 如何将系统所有菜单列到树上Tre
·delphi 如何将属性在设计期保存到DFM文
·delphi 如何保存Blob类型字段到数据库
·delphi VCL控件机制与VCL.net控件机制
     delphi技术网 | firefox 下载 | Avant Browser下载 | dedecms 技术网 | drupal 爱好者 | php 技术网
  Copyright@www.delphichm.com,2006-2009.All Rights Reserved.
 
程序员联盟 | delphi Java .net|QQ:707102932