关于接口的提问
IMyForm = interface
['{C95FD9BB-E3F0-4167-A291-E3C1DB4025B0}']
function ShowModal: Integer;stdcall;
end;

TMyForm = class(TForm,IMyForm)
public
function ShowModal: Integer;stdcall; // 这个怎么写？
end;

我只是想把TForm的方法，暴露到接口 IMyForm 中去便于调用。

[解决办法]
IMyForm = interface
['{C95FD9BB-E3F0-4167-A291-E3C1DB4025B0}']
function ShowModal: Integer;
end;

TMyForm = class(TForm,IMyForm)
public
function ShowModal: Integer;
end;
另外,
我只是想把TForm的方法，暴露到接口 IMyForm 中去便于调用。
可以写成activeform 的形式

[解决办法]
就按照楼上的写就可以了，再写实现部分就好了，不知道是不是楼主要求的？
[解决办法]

探讨

IMyForm = interface
['{C95FD9BB-E3F0-4167-A291-E3C1DB4025B0}']
function ShowModal: Integer;stdcall;
end;

TMyForm = class(TForm,IMyForm)
public
function ShowModal: Integer;s……

[解决办法]
建议改一下接口函数名字，然后再调用TForm的函数
[解决办法]
每天回帖即可获得10分可用分！