如何使子类的方法静态?

Iva*_*nov 1 delphi class

我的父类是一个表单(TParent),代码如下:

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

implementation
Run Code Online (Sandbox Code Playgroud)

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

有没有可能的方法来做到这一点?

如果没有,我可以将父类(TForm)设为静态吗?

TParent 类是用于 WSAAsyncSelect() 的表单,它是隐藏的(它不是主表单)。它仅用于消息循环。

Sad*_*egh 5

尝试这个 :

type
TChild = class(TParent)
private
 class procedure Handle(sock:integer); static;
end;
Run Code Online (Sandbox Code Playgroud)