delphi - 如何使子类的方法静态？

Question

我的父类是一个表单（TParent），代码如下：

type
TChild = class(TParent)
private
  procedure Handle(sock:integer);static; //error
end;

implementation

错误是“ STATIC只能用于非虚拟方法”

有什么可行的方法吗？

如果不是，我可以使父类（TForm）静态吗？

TParent类是用于WSAAsyncSelect（）的形式，它是隐藏的（不是主要形式）。仅用于消息循环。

Answer 1

试试这个 ：

type
TChild = class(TParent)
private
 class procedure Handle(sock:integer); static;
end;