码迷,mamicode.com
首页 >  
搜索关键字:procedure    ( 3728个结果
delphi 18 屏蔽和替换 右键菜单
//屏蔽右键菜单procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);beginwith Msg dobeginif not IsChild(WebBrowser1.Handle, hWnd)...
分类:其他好文   时间:2014-07-29 21:42:22    阅读次数:468
delphi 自动滚动到最底端scroll
自动滚动到最底端scrollUses MSHTML;{$R *.dfm}varScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begininc(ScrollPos, 10);if WebBrowser1.Docu...
分类:其他好文   时间:2014-07-29 21:42:02    阅读次数:506
TListView列表拒绝添加重复信息
//TListView列表拒绝添加重复信息 procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginif (Trim(Edit1.Text)'') thenbeginfor i := 0 to ListView1.Items...
分类:其他好文   时间:2014-07-29 21:41:42    阅读次数:300
delphi 保存网页MHT
delphi 保存网页MHTuses ADODB_TLB, CDO_TLB, ComObj,MSHTML;{$R *.dfm}{能把网页如 WWW.QQ.COM保存为一个单文件 .MHT但不能把一个 A.HTM保存为一个单文件 .MHT}procedure WB_SaveAs_MHT(WB: TWe...
分类:Web程序   时间:2014-07-29 21:41:13    阅读次数:432
delphi treeview 鼠标移动显示hint信息
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var Node: TTreeNode;begin with TreeView1 do begin Node := GetN...
分类:移动开发   时间:2014-07-29 21:40:42    阅读次数:393
delphi 01设置 字体属性
设置/获取 字体属性 名称 大小 粗体 斜体 下划线 删除线 颜色1 颜色2 uses MSHTML; //设置 //------------------------------------------------------------------------------procedure WB_...
分类:其他好文   时间:2014-07-29 21:39:52    阅读次数:339
delphi 保存网页
保存网页. htmluses ActiveX;procedure TForm1.Button1Click(Sender: TObject);varpersist :IPersistfile;beginpersist := (webbrowser1.document as ipersistfile);...
分类:Web程序   时间:2014-07-29 21:37:42    阅读次数:319
Delphi的DLL里如何实现定时器功能?
一,首先引入“mmsystem”单元。二,启动定时器: var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);三,定时器过程代码:procedure Tim....
分类:其他好文   时间:2014-07-29 21:33:32    阅读次数:283
ListView返回选中的多项目
ListView返回选中的多项目 procedure TForm1.Button3Click(Sender: TObject);vars: string;I: Integer;beginfor i := 0 to listview1.items.count - 1 dobeginif listvie...
分类:其他好文   时间:2014-07-29 21:31:22    阅读次数:322
设置Delphi XE4默认界面样式
VCL BitMap Style Proceject Options->Application->Appearance 选择几个样式 使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);beginTStyleMa...
分类:其他好文   时间:2014-07-29 21:29:42    阅读次数:1013
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!