S
sadj
Unregistered / Unconfirmed
GUEST, unregistred user!
[^]同意楼上PiPi所说，我刚才试过了，的确如此，我的代码如下：
看来还有很多是我们不知道的啊！[
]
代码:
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TTest = class
public
procedure test;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TTest }
procedure TTest.test;
begin
Application.MessageBox('sdkjf', '信息', MB_OK+MB_ICONINFORMATION);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
tt: TTest;
begin
tt.test
[red]//这里可以成功调用,NND![/red][:D]
end;