unithddisk.dfm

创建Calculate组件,添加IFun接口(注意:本例我们在Attributes中我们选择Apartment,Custom,Yes).在IFun接口中添加函数Add实现两数相加的功能

object FormHdParams: TFormHdParams
  Left = 445
  Top = 358
  Width = 505
  Height = 341
  Caption = #30828#30424#21442#25968
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 497
    Height = 281
    Align = alClient
    HideSelection = False
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssBoth
    TabOrder = 0
    WordWrap = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 281
    Width = 497
    Height = 33
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object ButtonHdParams: TButton
      Left = 4
      Top = 4
      Width = 75
      Height = 25
      Caption = #30828#30424#21442#25968
      TabOrder = 0
      OnClick = ButtonHdParamsClick
    end
    object ButtonExit: TButton
      Left = 88
      Top = 4
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = ButtonExitClick
    end
  end
end