//屏蔽右键菜单procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);beginwith Msg dobeginif not IsChild(WebBrowser1.Handle, hWnd)...
分类:
其他好文 时间:
2014-07-29 21:42:22
阅读次数:
468
自动滚动到最底端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列表拒绝添加重复信息
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 保存网页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
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
设置/获取 字体属性 名称 大小 粗体 斜体 下划线 删除线 颜色1 颜色2 uses MSHTML; //设置 //------------------------------------------------------------------------------procedure WB_...
分类:
其他好文 时间:
2014-07-29 21:39:52
阅读次数:
339
保存网页. htmluses ActiveX;procedure TForm1.Button1Click(Sender: TObject);varpersist :IPersistfile;beginpersist := (webbrowser1.document as ipersistfile);...
分类:
Web程序 时间:
2014-07-29 21:37:42
阅读次数:
319
一,首先引入“mmsystem”单元。二,启动定时器: var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);三,定时器过程代码:procedure Tim....
分类:
其他好文 时间:
2014-07-29 21:33:32
阅读次数:
283
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
VCL BitMap Style Proceject Options->Application->Appearance
选择几个样式
使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);beginTStyleMa...
分类:
其他好文 时间:
2014-07-29 21:29:42
阅读次数:
1013