码迷,mamicode.com
首页 > Web开发 > 详细

delphi 08 HTML组件

时间:2014-07-29 21:39:42      阅读:303      评论:0      收藏:0      [点我收藏+]

标签:http   color   io   for   html   div   ar   line   




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

delphi 08 HTML组件

标签:http   color   io   for   html   div   ar   line   

原文地址:http://www.cnblogs.com/xe2011/p/3876350.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!