unit1.dfm

Delphi7应用编程150例 附书源码

object frmMain: TfrmMain
  Left = 238
  Top = 103
  Width = 334
  Height = 297
  Caption = 'ICON'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 144
    Top = 96
    object mnuIcon: TMenuItem
      Caption = #32553#20026#23567#22270#26631
      OnClick = mnuIconClick
    end
  end
end