///HTML组件
///后面的字符串为这个控件的ID号
///直线 Line (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertHorizontalRule‘, True,
‘‘);
///按钮 Button (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertButton‘, True, ‘‘);
///复选框 CheckBox (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputCheckbox‘, True, ‘‘);
///单选框 Radio (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputRadio‘, True, ‘‘);
///编辑框 Edit (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputText‘, True, ‘‘);
///文本框 Memo (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertTextArea‘, True, ‘‘);
///密码框 PswEdit (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputPassword‘, True, ‘‘);
///组框架 GroupBox (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertIFrame‘, True, ‘‘);
///列表框 ListBox (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertSelectListbox‘, True, ‘‘);
///组合框 Combobox (WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertSelectDropdown‘, True,
‘‘);
{
InsertFieldset
InsertInputFileUpload
InsertInputHidden
InsertInputImage
InsertInputSubmit
InsertMarquee
}
procedure WB_InsertHorizontalRule();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertHorizontalRule‘, True, ‘‘);
end;
procedure WB_InsertButton();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertButton‘, True,
‘‘);
end;
procedure WB_InsertCheckbox();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputCheckbox‘,
True, ‘‘);
end;
procedure WB_InsertRadio();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputRadio‘,
True, ‘‘);
end;
procedure WB_InsertInputText();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputText‘,
True, ‘‘);
end;
procedure WB_InsertTextArea();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertTextArea‘,
True, ‘‘);
end;
procedure WB_InsertInputPassword();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertInputPassword‘,
True, ‘‘);
end;
procedure WB_InsertIFrame();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertIFrame‘, True,
‘‘);
end;
procedure WB_InsertSelectListbox();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertSelectListbox‘,
True, ‘‘);
end;
procedure WB_InsertSelectDropdown();
begin
(Form1.WebBrowser1.Document
as IHTMLDocument2).execCommand(‘InsertSelectDropdown‘, True, ‘‘);
end;
a
delphi 08 HTML组件,布布扣,bubuko.com