描述:显示一个目录的对话框(属于Delphi) function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; 参数一:存放返回值.可设置当前选择目录,不设置则为程序运行目录. 参数二:[]:目录不可编辑,只能手动选择 [sdAllowCreate]: 目录可编辑,目录不存在不负责创建.                    [asAkkiwCreate, s…

选择文件夹,路径选择, 文件夹 资源管理器 推荐  SelectDirectory http://docwiki.embarcadero.com/Libraries/Seattle/en/Vcl.FileCtrl.TSelectDirFileDlgOpts Vcl.FileCtrl.hpp if (!SelectDirectory("请选择目录","",DaoPath)) { return; } SelectDirectory #include "File…

描述:创建一个目录,不包含多级目录(多级目录使用System.SysUtils.ForceDirectories,Vcl.FileCtrl.ForceDirectories已过时) procedure CreateDirectory(Path: string); 参数一:给定的路径如D:\aa,非完整路径如aa则在程序当前目录下创建 完整代码 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils,…

使用函数: System.IOUtils.TDirectory.GetCreationTime//获取创建时间 System.IOUtils.TDirectory.SetCreationTime//设置创建时间 注:UTC结尾的返回 <Coordinated Universal Time即协调世界时>. 示例: 代码 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Varia…

使用函数: System.IOUtils.TDirectory.GetAttributes//获取属性 System.IOUtils.TDirectory.SetAttributes//设置属性 注:次例未添加异常处理. 补充一句代码: CheckListBox1.CheckAll(vcl.StdCtrls.TCheckBoxState(0), False, False);//ListCheckBox取消所有选中 示例: 代码: unit Unit1; interface uses Winapi…

这是修正+取MD5的方法 function MD5FileTextPng(filename: AnsiString): AnsiString; var buf: ..MAX_PATH - ] of Char; path: AnsiString; stream: TFileStream; destStream: TMemoryStream; destfile, tmpText: string; I, len: Integer; endbuf: ..] of Byte; firstChar: Byt…

------------------------------------------------------- ◇删掉程序自己的exe文件 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var F:TextFile; begin AssignFile(F,'delself.bat'); Rewrite(F);{F为TextFile类型} WriteLn(F,'del '+ExtractFileName…

需要个类似资源管理器的东西, 首先试了下 TDriveComboBox.TDirectoryListBox.TFileListBox, 嘿! Win31 时代的东西, 不是一般地丑. 试了下 Vcl.Shell.ShellCtrls 下的 TShellComboBox.TShellTreeView.TShellListView, 非常满意! 并且 TShellComboBox 也可以免掉了. unit Unit1; interface uses Winapi.Windows, Winapi.Me…

DELPHI - How to use opendialog1 for choosing a folder? On Vista and up you can show a more modern looking dialog using TFileOpenDialog. var OpenDialog: TFileOpenDialog; SelectedFolder: string; ..... OpenDialog := TFileOpenDialog.Create(MainForm); try…

SelectDirectory使用方法 格式 Delphi syntax: On Windows: function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; On Linux: function SelectDirectory(const Caption: WideString; const Root: string; var Directory…

SelectDirectory 函数 通过显示一个对话框来让用户选择一个目录.注意:在使用前要在Uses 语句中添加包含FileCtrl 的说明.函数原型如下:function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options:…

SelectDirectory 函数通过显示一个对话框来让用户选择一个目录.注意:在使用前要在Uses 语句中添加包含FileCtrl 的说明.函数原型如下:function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options: T…

ExpressPDFViewer # BC3840:包含action标题和action提示的 Action classes 和 resource strings 重命名: class名称末尾中包含'Action'的都做了修改.比如TdxPDFViewerGoToPrevPageAction更名为TdxPDFViewerGoToPrevPage. Resource字符串加上前缀'sdxPDFViewerAction'.比如 sdxPDFViewerOpenDocumentActionCaption…

http://www.linuxso.com/linuxbiancheng/8889.html 其实只提供了 个 vsf 样式文件, 还有默认的 Windows 样式, 共 种. 在空白窗体上添加 ListBox1 等控件, 测试代码: uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: TObject); var dir, fileName, styleName: string; begin //V…

看本文时,可以同时参考:Delphi中线程类 TThread实现多线程编程(事件.临界区.Synchronize.WaitFor……) 先说一下RTL和VCL RTL(Run-Time library),运行时库,包括System.SysUtils.Math三个单元,提供的函数与语言.编译器.操作系统及进程有关 RTL提供类之间继承于 TObject 和 RTL内部的类 VCL(Visual Component Library),可视化组件库,包括Graphics.classes.Control…

varnish4.1 配置文件default.vcl # This .x VCL file vcl 4.0; backend default { .host = "127.0.0.1"; .port = "; .probe = { .url = "/ping"; .timeout = 1s; .interval = 10s; .window = ; .threshold = ; } .first_byte_timeout = 300s; # How lon…

TObject消息分派 procedure Dispatch(var Message); virtual; #负责分派消息到特定VCL组件的事件处理函数 procedure DefaultHandler(var Message); virtual; #消息分类:通过子类覆盖此方法,处理窗口命令消息,窗口标准消息,VCL自行触发消息,VCL通知消息,自定义 VCL封装类的方法种类 procedure WMButtonUp(var Message: TWMButtonUp); message WM_…

DevExpress VCL 13.1.4支持Delphi /C++Builder XE5 重大变化 ExpressLibrary dxHalfOfPi常数声明已经从cxGeometry单元移到了cxGridLayoutViewCarouselMode单元的执行部分,这样做的目的是为了避免C++Builder中的编译警告. 存在的问题 目前,IDE存在以下几个问题,DevExpress VCL会在以后的版本中进行修复: C++Builder XE3 or XE4 (64-bit) - 在某些De…

2016年第一个版本,继续修补. New Major Features in 15.2 What's New in VCL Products 15.2 Breaking Changes To learn about breaking changes in this version, please refer to the following page: Breaking Changes in 15.2.3 (VCL Product Line) Known Issues To learn abou…

增加了几个小玩意,与大版本变化根本无法匹配. 具体可以官网了解 https://www.devexpress.com/Subscriptions/New-2015.xml?product=vcl…

Visual Component Library的缩写(可视组件库)VCL是Visual Component Library的缩写,即可视组件库,它是Delphi,C++Builder等编程语言的基本类库. 它拥有封装纯粹,可扩展性强,操作方便等特点.如果是一个非常繁杂的Win32API,在经过VCL封装后,使用也是非常简便的.VCL支持类的嵌套,过程及函数的嵌套,如果你想在一个过程里声明一个类,或是声明另一个过程,那是完全可行的.过程内部的过程或是函数被称为局部过程或是局部函数. VCL对事件…

中午看到技术群里有人讨论, XE5一个空窗体程序就包含了3个线程, 赶忙打开XE5开了个空窗体一看, 果然如此 再打开D7和2010看了一下, 都是一个线程 这时看到有人说一个是输入法, 一个是GDI+, 没细想, 觉得这种说法还比较靠谱, 于是就继续吃饭了, 吃完了睡觉(猪一样的生活啊) 下午睡醒了, 突然又想起了中午看到呢那些, 发觉有些不对, 空窗体启动的时候输入法是关闭的, 哪来的线程, 所以仔细跟踪了一下, 发现和输入法以及GDI+都没关系, 吧相关的单元删除以后线程依旧 于是猜测应该…

还没正式发布.用力戳 http://crossvcl.com/ 消息来源:Delphi G+ Group.具体信息还没完全披露,但是可以肯定的是,不是通过FireMonkey,而是通过原生的MacOS API实现.换句话,是把VCL控件的功能重新用MacOS API实现.至于能够支持什么类型,支持多少的VCL控件,尚待观察,但是可以肯定的是和WIN API紧密捆绑的第三方VCL会比较呛. 据信CrossVCL背后团队的另一项目:http://www.turbococoa.com ;(也就是用De…

加上头文件#include <Vcl.Imaging.GIFImg.hpp> #include <Vcl.Imaging.pngimage.hpp> Image1->Picture->LoadFromFile("001.gif");((TGIFImage*) Image1->Picture->Graphic)->Animate = true;//开始播放((TGIFImage*) Image1->Picture->Gra…

内部控制是指,做了某些操作后产生某些效果,但是Windows系统本身不提供这样的消息,应此不得不自定义.比如父窗口改变了字体,那么所有子窗口也都应该改变字体,至少也得通知一下它们,让子控件自己决定是否响应以及怎么响应(替代了虚函数的作用,但是消息更加干净利落,愿不愿意以及怎么做完全由对方决定),但是Windows不提供这样的消息,于是自定义消息CM_PARENTFONTCHANGED闪亮登场.VCL当然也可以定义一个函数,然后直接去执行这个函数达到目的,但是参数的个数以及类型就成了问题,处理函数…

VCL设计方法概论 1. 把Delphi对象改造成一个Windows窗口,主要是要设置Handle和回调函数.在创建一个Windows窗口后,将其句柄赋值给Delphi对象的属性,这个并不难,相当于从此以后这个Delphi控件(或称内存对象)代表了这个Windows窗口,准确的说是包含了这个Windows窗口.需要指出的是,创建Windows窗口时的许多参数,就是由Delphi对象的属性提供的,所以创建Windows窗口这个动作,只是Delphi对象的一个中间过程而已,并不是必须的.2. 回调函…

之所以要用类函数代替API,是因为VCL对它做了一些包装,好在API起作用之前和之后做一些额外的事情:通知和判断等等.之所以类函数要包装一个CM_消息,是因为这样方便程序员(在调用类函数的基础上)截断和改写这个处理过程 举例: procedure TWinControl.Invalidate; begin // 注意,是简单执行函数,把消息当作参数,不是发送消息 Perform(CM_INVALIDATE, , ); // 注意,第二个参数即WParam是0,即要求API使自己失效,而不是仅仅做…

Understanding the Message-Handling System http://docwiki.embarcadero.com/RADStudio/XE7/en/Understanding_the_Message-Handling_System All VCL classes have a built-in mechanism for handling messages, called message-handling methods or message handlers.…

最近一段时间似乎流行源码分析:)我也来谈谈在过去一段时间里对VCL源码的分析方法方面的一点体会,本文将不探讨VCL类库的构架和设计模式方面的东本,只是以我们常见的控件属性/方法的实现过程作简单的说明,希望对初学者有所帮助. VCL分析方法例:TButton.Caption属性的由来(本文仅以此献给DELPHI初学者)用过一段时间DELPHI的朋友,都会对VCL源码感兴趣.本人也常常在各大论坛见到一些网友研究讨论过关于VCL源码的贴子.不过,很多网友很努力的想看懂,可最后还是半途而废,因为他们总是…

WTL都算不上什么Framework,就是利用泛型特性对Win API做了层封装,设计思路也没摆脱MFC的影响,实际上用泛型做UI Framework也只能算是一次行为艺术,这个思路下继续发展就会变得没法用了,比如 代码过于复杂,编译太慢,出错不好调试等问题难以解决.而且封装得也不完全,还是随处可见 HWND HDC之类的东西.用途主要是写一些很小的程序,或者作为其他UI框架的后端实现部分,比如我写过一个小框架用来做安装卸载程序,非常小,其中创建管理窗口部分是用WTL的. MFC是更高级点的Wi…