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

来自为知笔记(Wiz)

delphi 08 HTML组件,布布扣,bubuko.com

时间: 2024-10-10 01:46:28

delphi 08 HTML组件的相关文章

Delphi 利用TComm组件 Spcomm 实现串行通信

Delphi 利用TComm组件 Spcomm 实现串行通信 摘要:利用Delphi开发工业控制系统软件成为越来越多的开发人员的选择,而串口通信是这个过程中必须解决的问题之一.本文在对几种常用串口通信方法分析比较的基础上,着重讨论了Delphi开发环境下利用Spcomm控件实现PC机与单片机之间串口通信的方法,研究了Spcomm串口通信的关键技术问题,并通过一个实例给出了Spcomm控件在Delphi7.0串口通信中的应用. 1 引言目前, 随着现代信息技术的发展,计算机串口通信技术已日趋成熟.

Delphi笔记-自定义组件

Delphi笔记-自定义组件 (2010-09-08 16:46:34) 转载▼ 标签: it 分类: delphi 凡是从TComponent继承下来的对象能够被窗体设计器所操纵. 创建一个组件时应该注意的几个方面:1.首先,要确定是否需要创建一个独特的新组件.2.来好好规划一下组件的工作方式.3.做好了准备工作,不要急于实际创建组件,得先问问自己:到底需要这个组件干什么?4.把组件从逻辑上分为几个部分.这样,不仅有利于组件的模块化.简单化,而且能使代码精炼.组织良好.设计组件时,要考虑到可能

Delphi HTML5 Canvas组件

最近去sourceforge瞎转悠,突然发了一个组件,关于Delphi下Html5的canvas的组件,大概浏览了一下源码,竟然是纯粹的Pascal代码,也就说完全的Delphi代码.不敢独享,现在上传到我的博客上以供有需要的人下载研究.  点击下载此文件(21.49 KB) http://www.lsworks.net/article/65.html

转:Delphi各种Socket组件的模式和模型

Delphi的大多数书籍里面都没有提到delphi的各种socket通信组件的模式和模型,有的书只讲解了windows的socket模式和模型,并没有归纳各种组件采用的模型,所以我们的程序员并不知道如何进行选择,只知道某组件好,为什么好,如何运用就不知道了. 笔者对这些组件进行了一个归纳,如下: 组件 单元 依赖 模式 模型 WebApp/CGI sockapp.pas Indy 阻塞/非阻塞 select Indy 阻塞/非阻塞 select ICS OverbyteIcsWSocket.pa

Delphi动态创建组件,并释放内存

开发所用delphi版本是xe2,效果图如下: 代码如下: ----------------------------------------------------------------------------------------------------------------- unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Class

delphi 从 TWebbrowse组件中获取图片

在 delphi 中使用 TWebbrowse 组件,虽然效率不如用(idhttp之类)模拟操作效率高.但其难度低,上手快,简单粗暴有效. 从网上搜到的处理此问题的文章大多是 ctrl + c 复制到剪贴板的方法,但在 win7 64中,此法几乎没法使用,随时报剪贴板错误. 本方法利用 IHTMLElementRender 接口,完美地解决了问题.同时,也可以加深对接口的进一步理解. delphi7源码下载 unit Unit1; interface uses Windows, Messages

delphi+mysql做的图书管理系统,怎么把mysql数据库也一起打包进去?我用的是delphi的Express组件。

sqlconnection,sqlquery1这些组件,我连接数据库的时候是用对象编辑器里的属性进行连接的,在sqlconnection中指定了字符集utf8,有些人做的方法是利用代码连接的数据库,如果我用代码连接mysql数据库怎么做??使用sqlconnecion连接数据库.说清楚点的话就是怎么用代码实现连接mysql数据库,并且指定字符集utf8(不这么做的话就出现乱码). 2011-05-04 11:24提问者采纳1.下载此文件http://www.justsoftwaresolutio

Delphi : 自动升级组件AutoUpgrader简单教程(初学者)

AutoUpgrader简单教程(写给初学者) 1.放置一个TauAutoUpgrader在窗体上 2.双击auAutoUpgrader1,在弹出的对话框中设定一些要件: 首先选择按日期还是按版本号检查更新并填好日期或版本号(该日期或版本号也可以在会同时记录在VersionData属性里,版本号主要通过该属性来检查),然后单击add按钮添加需要更新的文件的http下载地址,因AutoUpgrader仅支持http方式,不支持ft方式,所以不要填错.Upgrade method默认即可:然后在“R

Delphi 动态创建组件,单个创建、单个销毁

效果图如下: 实现部分代码如下: var rec: Integer = 0; //记录增行按钮点击次数 implementation {$R *.dfm} //动态释放单个组件内存,即销毁组件 procedure TForm1.DeleteRow(Sender: TObject); begin if rec < 1 then Exit else begin TPanel(Panel1.Controls[rec]).Free; //释放单个控件内存 TComboBox(Panel2.Control