|

楼主 |
发表于 2009-7-3 09:52:45
|
显示全部楼层
里面就这几行代码....
procedure TMAILCENTERFORM.actStatePropertyExecute(Sender: TObject);
var
I: Integer;
lMailRef: TMailReference;
begin
FShowState := False;
for I := 0 to glMail.SelectedCount - 1 do
begin
lMailRef := TMailReference(glMail.SelectedNodes[I].Data);
with TSendedMailState.Create(lMailRef.MailGUID) do
jsDialogs.ShowMsg(Hints, '邮件状态信息');
end;
end;
在测试机器上面是没错的...在应用服务上就出错,而且调试的会报4楼的错,然后就执行不下去了... |
|