• delphi 08 HTML组件





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




  • 相关阅读:
    比较全的屏幕信息
    使用div实现progress进度条
    选项卡效果的菜单栏
    javascript写的轮播图
    centos6.5 命令行配置无线上网
    CentOS 6.5 BCM43142 80211无线网卡驱动安装
    [数据库] windows server 2003下mysql出现10048错误的解决办法 Can't connect to MySQL server on '127.0.0.1' (10048)
    桥接模式-多台虚拟机配置(重要)
    VMware虚拟机中如何配置静态IP
    MySQL5.7 mysql.user创建用户
  • 原文地址:https://www.cnblogs.com/xe2011/p/3876350.html
Copyright © 2020-2023  润新知