• 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




  • 相关阅读:
    datagrid column width in silverlight.
    Dir你肿么了?是肿了么?越来越大?
    tut12几个简单的帧控制
    CreateThread(), _beginthread()和_beginthreadex()
    windows进程优先级
    Lingo06 Handler
    Lingo13 和Flash交互之getURL
    关于define活生生的SB实例,挂起来
    几个Director/Lingo站
    Lingo02 List
  • 原文地址:https://www.cnblogs.com/xe2011/p/3876350.html
Copyright © 2020-2023  润新知