08 2014 档案
摘要：EXE程序：http://files.cnblogs.com/xe2011/RELEASE_TXTExplorer2014-08-25-165323.rarc# 源码：http://files.cnblogs.com/xe2011/SRC_TXTExplorer2014-08-25-165323.r...
阅读全文
摘要：窗体美化http://files.cnblogs.com/xe2011/WINFORM%E5%B8%A6%E9%98%B4%E5%BD%B1%E7%9A%84%E8%87%AA%E5%AE%9A%E7%AA%97%E4%BD%93.rar窗体四周带透明阴影 标题栏可以放按钮使用直接 把 控件拖拽到窗...
阅读全文
摘要：主题 1. 创建状态栏并显示 2. 在状态栏中显示进度条 3. MDI文档显示和隐藏状态栏 4. 5. 代码::创建状态栏 并显示...
阅读全文
摘要：主题 1. 滑块控件属性设置 2. 使用滑块控件设置颜色 3. 显示Slider的数值 4. 5. 属性 滑块控件属性设置 ...
阅读全文
摘要：主题 1.ScrollBar的使用 2. 3. 4. 5. 属性 HScrollBar VScrollBar 直接拖拽1其中任意空间到对话框上面是...
阅读全文
摘要：主题 1.创建图像列表 2.使用图像列表绘图 3. 4. 5. 代码::创建图像列表 双击 Cproject03Dlg在 ...
阅读全文
摘要：Code::使用HotKeyCtrl定义一个系统热键 // 关联HotKeyCtrl控件变量 m_HotKey1 BEGIN_MESSAGE_MAP(CXyzDlg, CDialog...
阅读全文
摘要：Code:: 播放 if(!m_animate1.Open("C:\\copy.avi")) { MessageBox("NULL"); return; } m_animate1.Play(0...
阅读全文
摘要：菜单单选 关键点 CMenu::GetMenuState
UINTGetMenuState(UINTnID,UINTnFlags)const;
MF_CHECKED
MF_DISABLED
MF_ENABLED
MF_GRAYED
MF_MENUBARBREAK
MF_MENUBREAK
MF_SEPARATOR
MF_UNCHECKED nFlags
MF_B...
阅读全文
摘要：主题 1.s Caption属性 CheckBox CheckDlgButton BOOL CheckDlgButton( HWND hDlg,...
阅读全文
摘要：主题 1. 设置控件的标题文本 2. 获取控件的标题文本 Caption属性 取得一个窗体的标题（caption）文字，或者一个控件的内容 红色的部分就是 Caption 标题 ...
阅读全文
摘要：. 实现过程 创建1个控制台程序.
新建1个 Resource Script文件 #include"stdio.h" #include #include #include"resource.h" type...
阅读全文
摘要：Button右键弹出式菜单 关键点
用类来实现 的 实现过程
新建1个类 类名CButtonPopMenu 基类CButton
新建1个菜单资源 IDR_MENU1 //ButtonPopMenu.h:headerfile //Attributes pu...
阅读全文
摘要：关键点 实现过程 voidCCreateBrushView::OnDraw(CDC*pDC) { CCreateBrushDoc*pDoc=GetDocument(); ASSERT_VALID(pDoc); //创...
阅读全文
摘要：相关主题 1. 用纯色 设置对话对话框的背景色 2. 用位图 设置对话对话框的背景色 3. 使用Picture Ctrl来设置背景图片 对话框背景色 ...
阅读全文
摘要：主题 1.系统菜单下面添加自定义菜单 2. 3. 4. 5. AppendMenu The AppendMenu function app...
阅读全文
摘要：计算从1+2+3...+100000=? 关键点 CWinThread* AfxBeginThread( AFX_THREADPROC pfnThreadProc, LPVOID pParam, int nPriority = THREAD_PRIORITY_NORMAL, UINT nStackSize = 0, DWORD dwCre...
阅读全文
摘要：9*9乘法口诀 关键点 实现过程 在 classCMfc01Dlg:publicCDialog { //Construction public: CMfc01Dlg(CWnd*pParent=NULL);//sta...
阅读全文
摘要：ADO 数据查询 关键点
上1条 下1条 第1条 最后1条 实现过程 //stdafx.h:includefileforstandardsystemincludefiles, #import"c:\programfiles\commonfiles\system\ado\msado15.dll"no_...
阅读全文
摘要：################################属性 设置################################################字体设置{//---------------------------------------------------------------------------------------字体名称This A Text字...
阅读全文
摘要：滚屏 uses MSHTML;vara: IHTMLDocument2;x,y:Integer;beginy:=y+20;//加减进行上下滚动a :=WebBrowser1.Document as IHTMLDocument2;a.Get_ParentWindow.Scroll(x,y);end;来自为知笔记(Wiz)
阅读全文
摘要：varForm1: TForm1;SelectedColor:TColor;//clBlack; //Defaultimplementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);beginSelectedColor:=clBlack; //Defaultend;//将这些控件全部选中然后使用双击 O...
阅读全文
摘要：如何 获取当前光标所在的字符属性 关键点
function queryCommandState(const cmdID: WideString): WordBool; safecall; 粗体 斜体 下划线 删除线 对齐方式 左 中 右 数字排序 圆的排序 上标 下标 functi...
阅读全文
摘要：delphi res 字符串资源 (2011/12/10 19:19:36)
//res 字符串资源//rc 文件:StringTablebegin0 "AAAA"1 "BBBB"2 "CCCC"3 "DDDD"end//也可以这样写:StringTablebegin0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"end//还可以这样写:StringTable{0,"AAAA"1...
阅读全文
摘要：TWebBrowser.ExecWB 关键点
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload; 实现过程
usesOleCtrls, ComObj, Mshtml,ActiveX; //文件 ///新建 ...
阅读全文
摘要：WebBrowser1.Document as IHTMLDocument2 关键点 function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; safecall; 实现过程 ...
阅读全文
摘要：带历史信息的菜单
实例说明
在有些软件中，菜单栏中可以记录已经打开过的文件信息，使用户操作简单、快捷。当用户要打开已打开过的文件时，不需要重复查找，只需选择菜单中打开过的文件，即可实现打开该文件的操作。运行本例，效果如图1所示。 图1 带历史信息的菜单
思路与技术
本例使用的是动态插入菜单的技术，利用菜单的动态插入技术，可以完成在菜单中记录打开过文档的功能，即当打开一个文件后，将这个文件...
阅读全文
摘要：table的属性widthheightborderaligncellpadding 填充cellspacing 间距bordercolorbgcolorsummary 摘要的事件的方法 表格行数/表格列数 ...
阅读全文
摘要：TTreeView组件遍历磁盘目录
实例说明
TTreeView组件是一个以分枝结构或者说树状结构显示数据的组件，以该组件显示数据具有较好的等级关系和逻辑层次，并且易于操作。在组件中显示的数据结构与系统中目录的结构非常相似，所以本例使用该组件设计一个磁盘目录查看工具。运行本例，在窗口右边选择目录或路径就可以在TTreeView组件中列出所有选择目录中的子目录和文件。实例运行效果如图1所示。 图...
阅读全文
摘要：菜单的项目是否可用 TPopupMenu.OnPopup事件
把代码放在这里面判断 // ------------------------------------------------------------------------------
procedure Tfrm_Main.pm_EditorPopup(Sender: TObject);
begin ...
阅读全文
摘要：Delphi在Webbrowser中插入 HTML/java script代码使用方法将下面的代码赋值到1个记事本里保存，然后保存为xxx.htm就可以看到效果使用PasteHtml实现功能的事件 Windows Media播放器 mp3 mp4 Windows Real Player Flash Player Mid背景音乐 图片的方法 ( (Web...
阅读全文
摘要：调用查找对话框 关键点
HTMLID_FIND = 1; //查找对话框
HTMLID_VIEWSOURCE= 2; //用记事本查看源代码
HTMLID_OPTIONS =3; //Internet选项 实现过程 uses ActiveX; const CGID_WebBr...
阅读全文
摘要：//Delphi动态建立WebBrowerunit Main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;pr...
阅读全文
摘要：//获取 TreeView选中的文件路径unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)TreeVie...
阅读全文
摘要：{获取C盘的卷标格式化硬盘卷标改变} //GetHardDiskSerial('c:\') functionGetHardDiskSerial(Drive:string):string; varVolumeSerialNumber:DWORD; MaximumComponentLength:DWORD; FileSystemFlags:DWORD; begin ...
阅读全文
摘要：//获取网页源代码
var s: string;
begin s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码 s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代码, 包含body标签 s := WebBrowser1.Ol...
阅读全文
摘要：//修改Hint的字体和颜色public{ Public declarations }procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);procedure TForm1.FormCreate(Sender: TObject);beginform1.Hint...
阅读全文
摘要：在 DragDrop 的时候，滚动 TreeView
当高度不够的时候
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);beginif (y < 15) then{On the upper ed...
阅读全文
摘要：TreeView1.Selected.Expand(False); //选中的展开0级 子级不展开 TreeView1.Selected.Expand(True); //全部展开来自为知笔记(Wiz)
阅读全文
摘要：unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButton; procedureButton1Cli...
阅读全文
摘要：procedure TForm1.FormCreate(Sender: TObject);
begin Application.HintPause:=0;//立即显示 Application.hinthidepause:=100000;//if not leave then 显示100秒end;
来自为知笔记(Wiz)
阅读全文
摘要：功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : result:='B';$B2C1..$B4ED : result:...
阅读全文
摘要：功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : result:='B';$B2C1..$B4ED : result:...
阅读全文
摘要：使用API函数：声明 FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll"调用constant long SB_HORZ = 0constant long SB_VERT = 1constant long SB_BOTH = 3ShowScrollBar(Handl...
阅读全文
摘要：如何知道 Treeview,的节点是根节点 procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);beginif TreeView1.Selected.IsFirstNode thenmni_delete.Ena...
阅读全文
摘要：的属性的事件的方法 //1设置链接类型//2获取样式 链接和提示信息 //title是提示信息//HTTPS https://Hello//FILE file://Hello//FTP ftp:///Hello//HTT...
阅读全文
摘要：//文件或目录转换成 TreeViewprocedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:Boolean);varSearchRec: TSearchRec;ItemTemp: TTreeNode;begin...
阅读全文
摘要：使用进度条查看浏览器状态 procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,ProgressMax: Integer);beginProgressBar1.Max:=ProgressMax;if Progress = -1 then//ProgressBar1.Visi...
阅读全文
摘要：type TForm1 = class(TForm) Button1: TButton; Panel1: TPanel; Edit1: TEdit; procedure FormActivate(Sender: TObject); private { Private declarations } public procedure DisplayHint(S...
阅读全文
摘要：数组类型
数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有 24 个整数的数组：typeDayTemperatures = array [1..24] of Integer;在数组定义时，你需要在方括号中填入一个子界类型的值，或者用两个有序类型的常量定义一个新的子界类型，子界类型...
阅读全文
摘要：//在选中的节点中上添加1个节点
procedureTForm1.Button1Click(Sender:TObject); begin withTreeView1do begin Items.AddChild(Selected,'aaa'); end; end; //添加节点
procedureTForm1.Button1Clic...
阅读全文
摘要：工具栏 的属性xe4的事件
Customizable OnCustomizeCanDelete OnCustomizeCanInsert OnCustomized OnCustomizeAdded OnCustomizeDelete OnCustomizeNewButton OnCustomizeReset 的方法 做成像MFC的工具栏样式
这个是使用Im...
阅读全文
摘要：Sender和Tag的用法 在它们共同的OnClick事件下返回单击的那个按钮的标题 unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl...
阅读全文
摘要：的属性的事件的方法设置SpeedButton的Down的属性AllowAllUp属性 当有多个SpeedButton时 让有2个按钮都能处于按下状态 设置它的GroupIndex和别的按钮不一样SpeedButton1.GroupIndex := 1;//只要不为0 Down就有效SpeedButton1.Down :=True; 来自为知笔记(Wi...
阅读全文
摘要：TreeView修改选中的节点的颜色和背景 TCustomDrawTarget = (dtControl, dtItem, dtSubItem); TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase); TCustomDrawState = set of (cdsSelected, c...
阅读全文
摘要：procedure TPopupMenu.Popup(X, Y: Integer); 这个点是相对桌面的而不是窗体的 GetCursorPos是鼠标的位置 鼠标动这个点就不一样 var p:TPoint;
begin GetCursorPos(p); PopupMenu1.Popup(p.x,p.Y);
end; 现在要取得 Button1的Le...
阅读全文
