unit1.dfm

来自「Delphi7应用编程150例 附书源码」· DFM 代码 · 共 33 行

object frmMain: TfrmMain
  Left = 192
  Top = 107
  Width = 171
  Height = 167
  Caption = 'ICON'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object btnIcon: TButton
    Left = 32
    Top = 48
    Width = 105
    Height = 29
    Caption = #36873#25321#22270#26631#25991#20214
    TabOrder = 0
    OnClick = btnIconClick
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Icons (*.ico)|*.ico'
    Left = 64
    Top = 88
  end
end