请问这段代码什么意思？ 谢谢

Question

procedure TF_Find.InitField;
var
  i:Integer;
  FieldElement:TFieldElement;
begin
  C_FieldList.Clear;
  C_FieldList.OnChange := FieldChange;//这句什么意思  for i:= 0 to FFildList.Count-1 do
  begin  
    FieldElement := TFieldElement(FFildList.Items[i]);
    if Trim(FieldElement.FCaption) <> '' then
      C_FieldList.AddItem(FieldElement.FCaption,FieldElement)
    else
      C_FieldList.AddItem(FieldElement.FField,FieldElement);
  end;
  
  if FFildList.Count > 0 then
  begin
    C_FieldList.ItemIndex := 0;
    C_FieldList.OnChange(C_FieldList);//这句什么意思呀
  end;
end;

Answer 1

FieldChange 是你自己定义的事件
C_FieldList 如果改变（OnChange）就执行 FieldChange
这应该叫做：接管事件

Answer 2

C_FieldList.OnChange := FieldChange;//你自己写的方法接替原来的修改事件C_FieldList.OnChange(C_FieldList);//主动触发当前的修改事件