摘要:
delphi 保存网页MHTuses ADODB_TLB, CDO_TLB, ComObj,MSHTML;{$R *.dfm}{能把网页如 WWW.QQ.COM保存为一个单文件 .MHT但不能把一个 A.HTM保存为一个单文件 .MHT}procedure WB_SaveAs_MHT(WB: TWe... 阅读全文
摘要:
设置/获取 字体属性 名称 大小 粗体 斜体 下划线 删除线 颜色1 颜色2 uses MSHTML; //设置 //------------------------------------------------------------------------------procedure WB_SetFontName();begi... 阅读全文
摘要:
自动滚动到最底端scrollUses MSHTML;{$R *.dfm}varScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begininc(ScrollPos, 10);if WebBrowser1.Document nil then(WebBrowser1.Document ... 阅读全文
摘要:
保存网页. htmluses ActiveX;procedure TForm1.Button1Click(Sender: TObject);varpersist :IPersistfile;beginpersist := (webbrowser1.document as ipersistfile);persist.save('c:\a.html',false);end;proc... 阅读全文
摘要:
TreeView节点拖拉操作1 //事先设置 TreeView1.DragMode= dmAutomatic; unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls; type TForm... 阅读全文
摘要:
//这个拖拽的感觉不对
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls;typeTForm1 = class(TForm)TreeView1: TTreeView;procedure Tr... 阅读全文
摘要:
function ItemExist(Text:string;TreeView:TTreeView):Boolean;var i: Integer;begin Result:=False; if (Trim(Text)'') then begin for i := 0 to TreeView.Items.Count-1 do if Trim(Text) = Trim(TreeV... 阅读全文
摘要:
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var node: TTreeNode;
begin if Boolean(TreeView1.GetNodeAt(X,Y)) then begin node := TreeView1.GetNo... 阅读全文
摘要:
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var Node: TTreeNode;begin with TreeView1 do begin Node := GetNodeAt(X, Y); ShowHint := (Node nil); ... 阅读全文
摘要:
添加项目
TreeView1.Items.Add(nil,'ABC'); 删除选中的节点
TreeView1.Selected.Delete; 删除鼠标右键选中的节点 var node1:TTreeNode; procedureTForm1.TreeView1MouseMove(Sender:TObject;Shift:TShiftState;X, Y... 阅读全文
摘要:
如何防止ListView控件闪烁
beginupdate()和endupdate()之间写代码 ListView1.Items.BeginUpdate;ListView1.Items.Add('AAA');ListView1.Items.EndUpdate; 来自为知笔记(Wiz) 阅读全文
摘要:
//TListView列表拒绝添加重复信息
procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginif (Trim(Edit1.Text)'') thenbeginfor i := 0 to ListView1.Items.Count-1 doif Trim(Edit1.Te... 阅读全文
摘要:
ListView往TreView里面拖拽 unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls; type TForm1=class(TForm) TreeView1:T... 阅读全文
摘要:
ListView添加项目带序列 function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;vars: string;I,j: Integer;beginResult:=False;if listview1.Selected =nil thenexit;for i := 0 ... 阅读全文
摘要:
//ListView删除选中的多项目function DeleteMultSelItems(ListView:TListView):Boolean;varI: Integer;beginResult:=False;if ListView.Selected =nil then Exit;for i := ListView.items.count-1 downto0 d... 阅读全文