如何使子类的方法静态？

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;