-
以下是示范如何读取及提交TWebBrowser中的网页示例内容:获得网页中表单(form)的数量按编号从页面中获取表单按编号得到表单的名称按名称提取表单获取表单中所有字段的名称获取表单中指定名称的字段的值设置表单中指定名称的字段的值提交表单其它演示以下的示例假设TWebBrowser被命名为WebBrowser而且网页被已经打开.获得网页中表单(form)的数量function Numb
-
1、禁止Webbrowes新窗口打开页面,强制在当前页面打开 方法:放两个webbrowser控件,错码如下; procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;
var Ca
-
#define MyAppName "我的程序"
#define MyAppVersion "1.5"
#define MyAppPublisher "我的公司"
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "222
-
TdxBarManager添加一个TcxBarEditItem,我想在TcxBarEditItem 文本框里输入字符,来完成查询操作。可是不知道怎么取TcxBarEditItem里输入的内容。 方法:1.ShowMessage(VarToStr(cxBarEditItem1.EditValue));不过输入完成以后你得按一下回车键, 才能取到。2.或者onCurCh
-
Delphi 常用API 函数
AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小
AnyPopup 判断屏幕上是否存在任何弹出式窗口
ArrangeIconicWindows 排列一个父窗
-
1.格式化文本,动态添加空格function formatStr(const srcStr: string;Leng:integer): string;
var
i, iLen: integer;
begin
//先把原字符串赋值给返回字符串Result
Result
-
1:cxgrid是应该数据关联的控件,类似dbgrid。
2:一般用来查阅表信息,如果要修改的话,直接在上面编辑或添加
非常不方便 通常要放几个EDit来对选中的记录进行编辑或添加记录。
因为表一般都有主键,而用cxgrid很难控制。在post之前的主键检查工作。
3:由于
-
CxGrid使用小结(续)
========================================================================
激活内置编辑控件 
-
现在特将收集的一些文章与大家分享,也希望大家不要重蹈我的覆辙.
http://www.delphibbs.com/keylife/iblog_show.asp?xid=19911大富翁论坛-富翁笔记-cxgrid (数据库控件)控件的使用
http://www.delphifans.com/infoView/Article_722.htm
-
Delphi 调用netsh命令修改IP地址 先介绍一下Netsh命令的使用方法: 在这里跟大家介绍几个简单的指令 1.Show IP 1.1Cmd Mode 直接在cmd下面输入 netsh interface ip show address 亦可简写为 netsh int ip sh ad 看看,指令是不是和Cisco的nos指令很像!非常怀疑是抄袭Cisco的。 1.2Netsh Mode
-
1.动态创建列 Gview:TcxGridDBTableView; Gview.ClearItems; Gview.DataController.CreateAllItems(true);
-
声明为:function FormatDateTime(const Format: string; DateTime: TDateTime): string;overload;返回值是一种格式化后的字符串,重点来看Format参数中的指令字符c 以短时间格式显示时间,即全部是数字的表示FormatdateTime('c',now);输出为:2004-8-7 9:55:40d 对应于时间中的日期,日
-
获取默认打印机名:function TForm1.GetDefaultPrinterName: string;
var
iSize: Integer;
sIniFile, sSection, sKeyName: PChar;
begin
iSize :=&n
-
delphi搜索字符串在流中的位置
function ScanStream(mStream: TStream; mStr: string): Integer;
const
cBufferSize = $8000;
var
S: string;
T: string;
I: Integer;
L: Integer;
begin
Result := -1;
if not Assigned(mStream
-
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
i : Integer;
begin
for i:= 1 to DBGrid1.Columns.Count do
begin
//恢复所有标题字体为默认
DBGrid1.Columns[i-1].Title.Font.Color := clWindowText;
-
分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-2147483648 .. 21474836474有符号32位Int64-263 .. 2638有符号6
-
DELPHI 指针使用的一篇好文 Delphi里自己管理内存的两对函数 new(),dispose()和getmem(),freemem() 大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时,这种说法也让很多人产生误解,似乎只有C语言的指针才能
-
http://msdn.microsoft.com/zh-HK/library/aa741322有关MHTML的接口参考文档
-
Delphi有三种类型的字符:AnsiChar这是标准的1字节的ANSI字符,程序员都对它比较熟悉。WideChar这是2字节的Unicode字符。Char在目前相当于AnsiChar,但在Delphi 2010 以后版本中相当于WideChar.记住因为一个字符在长度上并不表示一个字节,所以不能在应用程序中对字符长度进行硬编码,而应该使用Sizeof()函数。注意Sizeof()标准函数返回类型
-
带CheckBox全选功能var
i:Integer;
begin
for I := 0 to lstqq.Items.Count - 1 do
begin
lstqq.Items[i].Checked:=True;
end;
end;删除所选:var
i:Integer;
begin
for i :=lstqq.items.Count - 1 dow
-
var
item: TListItem;
I:integer;
begin
listView1.ViewStyle := vsReport;// 设置ListView为报表形式
listView1.Columns.Add; // 增加1列
listView1.Columns.Add; // 再增加1列
listView1.Column[0].Caption := '序号';
-
D7中原版的TreeView就很好用,但是却没有一个属性可以直接设置节点的CheckBox,经过摸索,找到一个较好的解决方案。const
TVS_CHECKBOXES = $00000100;
procedure TForm1.SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean);
var
St
-
//TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; &nb
-
一、UrlEncode
function URLEncode(const msg: String): String; var I : Integer; begin Result := ''; &
-
文件是同一类型元素的有序集合,是内存与外设间传输数据的渠道。一些外设如显示器、键盘、打印机等都可以看作文件,但最常用的还是磁盘文件,这也是我们主要讨论的对象。
Delphi继承了Object Pascal的文件管理功能,并有很大的发展,其中最主要的是提供了用于文件管理的标准控件,同时也提供了更多的文件管理函数。利用Delphi的强大功能,开发一个自己的文
-
delphi操作文本文件简介(二)1.4 Delphi的文件管理标准过程 根据功能我们把标准过程划分为十一类进行介绍。 1.4.1 文件的打开与关闭 AssignFile :把一个外部文件名和一个文件变量相关联Reset :打开一个存在的文件Rewrite :创建并打开一个新文件(或覆盖原有文件)Append :以添加方式打开一个文件(只适用于文本文件)CloseFile :关闭一个打开的文件F
-
现在窗口里添加一个Button,一个Memo 以及一个SaveDialog 然后在Button的 OnClick事件中这样写道:
procedure TForm1.button1click(sender: TObject);
begin
if SaveDialog1.Execute then //SaveDialog1 是一个TSaveDialog 组件
&nbs
-
NativeXml可以在官网上下载,下载后将文件夹放在指定地方,打开DELPHI在其环境变量中引用NativeXml路径,然后在程序中引用NativeXml单元,我们就可以使用NativeXml了。
NativeXml的方法属性:
ANativeXml
-
ExtractFileDrive :返回完整文件名中的驱动器,如"C:"
ExtractFilePath: 返回完整文件名中的路径,最后带“/”,如"C:\test\"
ExtractFileDir: 返回完整文件名中的路径,最后不带“/” ,如"C:\tes
-
Delphi中分号表示一个语句的结束。我这个新手经常会出这样的错:
1.在一个条件判断语句中,中间使用了分号;
如下:
图中红色圆圈中的;,是没必要写的。如果写了分号,则后面的语句变成了 else if....
备注:以上代码可用下面的代码替代:
procedure TForm1.btn1MouseDown(Sender: TObject;&nbs
kindao
分享到朋友圈
- 关注技术:Mail服务器
- 入住博客:2008-04-02 12.9年