说的不清楚,是操作另一个窗口 代码 procedure TMainFrm.lv1DblClick(Sender: TObject); var MailFrm:TMailDetail; mail:TMailInfo; begin if lv1.ItemIndex=-1 then Exit; Mailfrm:=TMailDetail.Create(Application); mail:=maillist[lv1.ItemIndex]; //这是这句报错了 (Mailfrm.WebBrowser1.Document as IHTMLDocument2).body.innerHTML:=mail.InfoContent; MailFrm.EdtTitle.Text:=Mail.InfoName; MailFrm.edtPriority.Value:=mail.Priority; MailFrm.chkneedreply.Checked:=mail.NeedReply; MailFrm.DTPickReplyTerm.DateTime:=mail.ReplyTerm; if mail.Urgent=0 then begin MailFrm.chkimportant.Checked:=False;MailFrm.chkurgent.Checked:=False; end else if mail.Urgent=1 then begin MailFrm.chkimportant.Checked:=True;MailFrm.chkurgent.Checked:=False; end else if mail.Urgent=2 then begin MailFrm.chkimportant.Checked:=False;MailFrm.chkurgent.Checked:=True; end else if mail.Urgent=3 then begin MailFrm.chkimportant.Checked:=True;MailFrm.chkurgent.Checked:=True; end; MailFrm.EdtReceivers.Text:=Mail.ReceiveNumber; MailFrm.EdtCopyReceivers.Text:=mail.ReceiveNumber; MailFrm.Show; end;
browemode:=True;其他的,不知道了,没遇见过
代码
procedure TMainFrm.lv1DblClick(Sender: TObject);
var
MailFrm:TMailDetail;
mail:TMailInfo;
begin
if lv1.ItemIndex=-1 then
Exit;
Mailfrm:=TMailDetail.Create(Application);
mail:=maillist[lv1.ItemIndex];
//这是这句报错了
(Mailfrm.WebBrowser1.Document as IHTMLDocument2).body.innerHTML:=mail.InfoContent;
MailFrm.EdtTitle.Text:=Mail.InfoName;
MailFrm.edtPriority.Value:=mail.Priority;
MailFrm.chkneedreply.Checked:=mail.NeedReply;
MailFrm.DTPickReplyTerm.DateTime:=mail.ReplyTerm;
if mail.Urgent=0 then begin MailFrm.chkimportant.Checked:=False;MailFrm.chkurgent.Checked:=False; end else
if mail.Urgent=1 then begin MailFrm.chkimportant.Checked:=True;MailFrm.chkurgent.Checked:=False; end else
if mail.Urgent=2 then begin MailFrm.chkimportant.Checked:=False;MailFrm.chkurgent.Checked:=True; end else
if mail.Urgent=3 then begin MailFrm.chkimportant.Checked:=True;MailFrm.chkurgent.Checked:=True; end;
MailFrm.EdtReceivers.Text:=Mail.ReceiveNumber;
MailFrm.EdtCopyReceivers.Text:=mail.ReceiveNumber;
MailFrm.Show;
end;