Delphi7中如何为指定组件的事件绑定自定义处理过程？

你提供的代码有多个语法和逻辑问题导致不生效：

• 语法错误：Delphi 中代码块关键字为begin而非你写的start off，循环变量i未声明，met和meth变量名拼写不一致
• 查找逻辑错误：FindComponent只能查找当前容器的直属子组件，你传入的form1.Button1带父级前缀，直接查找会返回空
• 事件构造错误：TMethod的Data字段必须绑定事件处理程序所属的对象实例（也就是Form1的指针），填0会导致调用时内存访问错误
• 写入逻辑缺失：你只修改了本地的met变量，没有调用SetMethodProp把修改后的事件写回组件的属性，修改当然不会生效
• 容错缺失：不是所有组件都有OnClick事件，需要提前做属性存在性判断

uses
  TypInfo; // 必须引用TypInfo单元才能使用属性操作方法

// 按带点的路径递归查找组件，支持form1.Button1这类带父级的路径
function FindComponentByPath(ARoot: TComponent; const APath: string): TComponent;
var
  PathParts: TArray<string>;
  I: Integer;
begin
  Result := ARoot;
  PathParts := APath.Split(['.']);
  for I := 0 to High(PathParts) do
  begin
    Result := Result.FindComponent(PathParts[I]);
    if not Assigned(Result) then Exit(nil);
  end;
end;

procedure TForm1.BindClickEvents;
var
  I: Integer;
  CurrComp: TComponent;
  ClickEvent: TMethod;
begin
  for I := 0 to Lines.Count - 1 do
  begin
    // 按路径查找组件，根组件传当前窗体实例Self
    CurrComp := FindComponentByPath(Self, Lines[I]);
    if not Assigned(CurrComp) then Continue;
    // 跳过没有OnClick事件的组件
    if not IsPublishedProp(CurrComp, 'OnClick') then Continue;
    
    // 构造合法的事件方法对象
    ClickEvent.Code := MethodAddress('showms2');
    ClickEvent.Data := Self; // Data必须绑定方法所属的窗体实例
    // 将构造好的事件写入组件的OnClick属性
    SetMethodProp(CurrComp, 'OnClick', ClickEvent);
  end;
end;

• 你的showms2方法必须是Form1类的成员，且签名符合TNotifyEvent规范，示例声明：procedure showms2(Sender: TObject);
• showms2方法需要放在Form1类的published区块下，否则MethodAddress无法获取到方法地址

内容的提问来源于stack exchange，提问作者planetarok