delphi 08 HTML组件

浏览数：18 / 时间：2015年06月09日






///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