delphi - 未声明的标识符 : 'OnClick'

Question

为什么我会收到此错误消息:未声明的标识符:'OnClick'

我正在使用 Delphi 7，这是我的完整代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  SavedOnClick : TNotifyEvent;
begin
  SavedOnClick := TControl(Sender).OnClick;
  try
    // Code which takes some time
  finally
    TControl(Sender).OnClick := SavedOnClick;
  end;
end;

Answer 1

转换时，使用 TButton而不是 TControl . OnClick TControl 的属性(property)受到保护。