1、设为true
procedure TFrmWebTicketForm.btnCheckClick(Sender: TObject);
var
txtVoyageCode, tbLugBoxNo ,chkUpdateLugBox, txtKeyCode: OleVariant;
begin
//设置值代码
txtVoyageCode := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_txtVoyageCode');
txtVoyageCode.SetAttribute('value','txtVoyageCode');
tbLugBoxNo := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_tbLugBoxNo');
tbLugBoxNo.SetAttribute('value','tbLugBoxNo');
chkUpdateLugBox := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_chkUpdateLugBox');
chkUpdateLugBox.SetAttribute('checked','true');
txtKeyCode := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_txtKeyCode');
txtKeyCode.SetAttribute('value','txtKeyCode');
//wbgetticket.oleobject.document.all.item('ctl00_ContentPlaceHolder1_btnCheck').click;
end;
2、设为false
procedure TFrmWebTicketForm.btnClearClick(Sender: TObject);
var
txtVoyageCode, tbLugBoxNo ,chkUpdateLugBox, txtKeyCode ,chk: OleVariant;
begin
txtVoyageCode := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_txtVoyageCode');
txtVoyageCode.SetAttribute('value','');
tbLugBoxNo := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_tbLugBoxNo');
tbLugBoxNo.SetAttribute('value','');
chkUpdateLugBox := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_chkUpdateLugBox');
//chk :=chkUpdateLugBox.getAttributeNode('checked'); //无效
//chkUpdateLugBox.removeAttributeNode(chk); //无效
//chkUpdateLugBox.removeAttribute('checked'); //无效
//chkUpdateLugBox.SetAttribute('checked', 'false'); //无效
//调用JS设置checkbox状态
wbgetticket.OleObject.Document.parentWindow.execScript(' document.getElementById("ctl00_ContentPlaceHolder1_chkUpdateLugBox").checked=false ', 'javaScript');
txtKeyCode := wbgetticket.OleObject.Document.GetElementByID('ctl00_ContentPlaceHolder1_txtKeyCode');
txtKeyCode.SetAttribute('value','');
end;