zoukankan      html  css  js  c++  java
  • 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




  • 相关阅读:
    【docker】命令学习
    docker 安装mysql
    Docker DockerFile案例 自定义的tomcat9
    尚硅谷 Docker DockerFile案例 ONBUILD命令案例
    dockerfile 案例2 CMD ENTRYPOINT命令案例
    Dockerfile案例
    Dockerfile解析
    数据卷容器
    Dockfile添加数据卷
    容器数据卷
  • 原文地址:https://www.cnblogs.com/xe2011/p/3876350.html
Copyright © 2011-2022 走看看