使用鉤子函數[5] - 數據傳遞(2)

測試窗體:

object　Form1:　TForm1
Left　=　0
Top　=　0
Caption　=　'Form1'
ClIEntHeight　=　78
ClIEntWidth　=　271
Color　=　clBtnFace
Font.Charset　=　DEFAULT_CHARSET
Font.Color　=　clWindowText
Font.Height　=　-11
Font.Name　=　'Tahoma'
Font.Style　=　[]
OldCreateOrder　=　False
OnCreate　=　FormCreate
OnDestroy　=　FormDestroy
PixelsPerInch　=　96
TextHeight　=　13
object　Button1:　TButton
Left　=　48
Top　=　32
Width　=　75
Height　=　25
Caption　=　'Button1'
TabOrder　=　0
OnClick　=　Button1Click
end
object　Button2:　TButton
Left　=　144
Top　=　32
Width　=　75
Height　=　25
Caption　=　'Button2'
TabOrder　=　1
OnClick　=　Button2Click
end
object　Timer1:　TTimer
OnTimer　=　Timer1Timer
Left　=　128
Top　=　8
end
end