Delphi 之【记得来康康我】
Delphi 高精度计时
Delphi 插入排序与希尔排序的比较
Delphi 插入排序
Delphi 希尔排序
Delphi TStringList 存取数据
Delphi 通过字符串查找指定控件
Delphi 判断文件是否为UTF-8-BOM的文件
raise Exception.CreateFmt('抛异常！！！');
// HourOfTheDay 今天的第多少个小时 24小时制ShowMessage('现在是 ' + IntToStr(HourOfTheDay(Now)) + ' 点');
Delphi 之 FileAge【文件最新的修改时间】
位移运算【左移、右移】
Delphi 工厂模式
Delphi 观察者模式
Delphi ClientDataSet.Filter 模糊查询
Delphi 获取计算机名
Delphi 将方法以参数的形式传递
Delphi 当前时间添加指定秒后的时间
Delphi 写XML文件
Delphi 读XML文件
Delphi 金额转大写
Delphi 文件操作 AssignFile()
Delphi 字符串转十六进制
// #0 表示结尾，但是不是内容的一部分
ByteArr[Lenght(ByteArr) - 1] := Byte(#0)
Delphi 日期时间相关函数和方法
Delphi 解析JSON[superobject.pas]
Delphi 线程类模板
Delphi ClientDataSet + DataSource在 DBGrid 中展示数据
Delphi 自定义时间与当前时间间隔天数
Delphi 建立JSON 数据之 TJSONObject
Delphi 绘图相关Demo
Delphi 简单的编译指令
Application.Restore; // 恢复窗体Application.BringToFront; // 提到前面显示
控件Label内容自动换行
Label.AutoSize := False;
Label.WordWrap := True; // 自动换行
我是手动设置的这两个参数，然后再自己调整宽度就可以了
Delphi 雪花ID
获取毫秒级的时间戳
// uses DateUtils;
// 时间是从1970年1月1日8点到当前的间隔[单位: ms]MilliSecondsBetween(Now, EncodeDateTime(1970, 1, 1, 8, 0, 0, 0));
Delphi 获取GUID + 字符串替换函数 StringReplace()
Delphi 读取CSV配置文件 多态
Delphi 哈希 THashedStringList
判断文件是否存在
if FileExists('D:\test.csv') thenMemo1.Lines.Add('文件存在');
Delphi 类引用 class of
Delphi TStringList.Find()
内存泄漏提示：【在程序源码的地方添加】
- 方式一：
ReportMemoryLeaksOnShutdown := True;- 方式二：（这种只会在Debug模式下进行，但是会有警告：‘DebugHook’ 是针对平台的）
ReportMemoryLeaksOnShutdown := DebugHook<>0;
Delphi Assert() 断言
Delphi 线程相关Demo
Delphi TStringList 常用功能
Delphi MD5加密
Delphi 判断是否是数字
Edit 控件关闭输入法：Edit1.imemode := imdisable;
Delphi 位图bmp存为jpg +文件转Base64
Delphi 线程TThread中的Synchronize()方法
Delphi USB摄像头
Delphi 判断文件夹是否存在+创建文件夹
Delphi 全局热键注册+使用
Delphi 操作ini文件
Delphi 截取字符串+详细注释
Delphi 获取ComboBox.Items下的值所在位置的索引值
Delphi WebBroker【Web服务器应用程序】+简单接口
Delphi 获取程序根目录
Delphi 打印英文单引号
Delphi keybd_event 按键的按下和抬起
Delphi 保存Linux时间戳至剪切板案
Delphi 获取屏幕宽和高
Delphi 保证程序只运行一个实例
Delphi 获取当前时间并且设置格式
Delphi 线程的开始、暂停、继续、停止
Delphi 窗体居中显示
Delphi 之【Trim()、Application.MessageBox()、三层数据库修改】
Delphi 方法属性参数新注释
Delphi 选择文件之OpenDialog【并添加至Image】
Delphi Image之圆形头像
Delphi 定时器之Timer1【淡出淡进效果】
Delphi 生成二维码【PaintBox】并保存为本地文件添加至【Image】控件中
Delphi ADO连接SQLServer数据库
Delphi 学习了解FireDac【缓存更新、记录的状态之UpdateStatus】
Delphi Style组件之毛玻璃半透明显示窗体特效
Delphi FireDAC连接MySQL数据库
Delphi StyleControls之功能按钮设计
Delphi StyleControls之渐变色标题栏
Delphi StyleControls之标题栏Tabs
Delphi StyleControls之标题栏按钮
Delphi 控制程序在任务栏显示与隐藏
Delphi 解析JSON
Delphi 写入txt文件
Delphi 读取txt文件
未完
$30是什么意思？
$30 16进制 就是10进制的48
Normal---------------失去焦点时
Focused--------------获取焦点时
Hot------------------鼠标移上时
Pressed--------------鼠标按下时
FrameFocised---------获取焦点时的边框
Alpha----------------不透明度
anchors--------------可以设置控件随窗口提改变而改变
Constraints----------可以设置窗体大小的最大值和最小值
【控件：scStyledForm1】 可以给无边框窗体加上一圈阴影
DWMClientShadow 设置窗体为无边框窗体
【控件：scLabel1、scPanel1、scGPPanel1】
DragForm 设置窗体是否可拖动
【控件：Panel】
procedure TForm2.Panel1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin//当鼠标按下时窗体随鼠标移动而移动ReleaseCapture;Perform(WM_SYSCOMMAND, $F012, 0);
end;
【控件：scGPPanel】
FrameColor 设置边框颜色
FrameColorAlpha 设置边框的不透明度
FrameRadius 设置边框的角弧度【圆角】
FrameSides 设置边框四边是否显示（四条边单独设置）
FrameWidth 设置边框宽度（为0代表无边框）
FillColor 颜色1
FillColor2 颜色2
FillColorAlpha 仅使用颜色1的时候不透明度的设置
FillGradientAngle 设置渐变角【从上到下渐变或者左到右或者某个角度】
FllGradientBeginAlpha 颜色1的不透明度
FillGradientBeginColorOffset 颜色1的亮度
FillGradientEndAlpha 颜色2的不透明度
FillGradientEndC olorOffset 颜色2的亮度
FillStyle 设置这个属性后才可以这是渐变，默认是不可以渐变的
【控件：cxGrid1】
DataController->DataSource—【设置数据源】
OptionsView->GroupByBox------设为False【去掉标题栏】
【快捷键】
CTRL+ SHIFT + C:编写声明或者补上函数
CTRL+ SHIFT + U:选中代码整体缩退
CTRL+ SHIFT + I:选中代码整体缩进
设置以下属性即可实现透明窗体显示文字：
设置窗体属性：
BorderStyle 属性设置为 bsNone
Color 属性设置为 clWhite（白色：窗体背景色）
TransparentColor 属性设置为 true
TransparentColorValue 属性设置为 clWhite（白色：透明颜色）
------以上两颜色需一致才能使窗体透明-------------------
设置Label属性：
Color 属性设置为 clWhite（白色：透明颜色）
Font.Color 属性设置为 clRed（非透明颜色即可）
Transparent 属性设置为 true
设置图片透明
Image 控件 Transparent 属性设为true
但如果图片本身就是有白色部分，那就没办法了
【控件：scStyledForm1】
DWMClientShadow--------------DWM客户端阴影
Image使用ImageList中的图片
DataModule1.ImageList1.GetBitmap(7, Image3.Picture.Bitmap);
**调用默认浏览器打开网页**
uses
shellapiShellExecute(handle,nil,pchar('http://www.baidu.com'),nil,nil,SW_shownormal);
ShellExecute 的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等等），并对外部程序有一定的控制。
ShellExecute常用方法
1.开始一个新的应用程序ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW);2.打开记事本，并打开一个文件(系统能识别记事本应用程序的路径，因此我们不必使用绝对路径）ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\test\readme.txt'), nil, SW_SHOW);3.打印一个文档ShellExecute(Handle, 'print', PChar('c:\test\test.doc'), nil, nil, SW_SHOW);注意：可能你会看到word暂时的被打开，但它会自动关闭。4.打开一个HTML页面ShellExecute(Handle, 'open', PChar('http://www.festra.com/'), nil, nil, SW_SHOW);5.你能通过一个已经注册的文件类型来打开应用程序ShellExecute(Handle, 'open', PChar('c:\test\readme.txt'), nil, nil, SW_SHOW);6.用windows Explorer 打开一个目录ShellExecute(Handle, 'explore', PChar('c:\windows)', nil, nil, SW_SHOW);7.调用资源管理器ShellExecute(0,'explore',0,filename,0,1); //此处的FILENAME为驱动器，如C:\ 8.运行一个DOS命令并立即返回ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c copy file1.txt file2.txt'), nil, SW_SHOW);9.运行一个DOS命令并保持DOS窗口存在ShellExecute(Handle, 'open', PChar('command.com'), PChar('/k dir'), nil, SW_SHOW);10.发emailv_mailto:='mailto:'+filename; //filename为EMAIL地址 v_mailto:=v_mailto+'?subject='+docname; // docname为标题 shellexecute(0,'open',v_mailto,0,0,1);
ShellExecute详解
ShellExecute函数用于打开或者打印一个指定的文件。指定的文件必须是可执行文件或者文档文件。
HINSTANCE ShellExecute(HWND hwnd, // handle to parent window 【父窗口的句柄】LPCTSTR lpOperation, // pointer to string that specifies operation to perform 【指向指定执行操作的字符串的指针】LPCTSTR lpFile, // pointer to filename or folder name string 【指向文件名或文件夹名称字符串的指针】LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters 【指向指定可执行文件参数的字符串的指针 】LPCTSTR lpDirectory, // pointer to string that specifies default directory 【指向指定默认目录的字符串的指针】INT nShowCmd // whether file is shown when opened 【打开时是否显示文件】)
******************************************************************************
* Params（参数解释）
1.Hwnd指定父窗口句柄。这个窗口接收工程产生的所有消息。例如：一个工程可以通过消息框报告错误。2.lpOperation以一个以null结束的字符串描述操作的执行。以下的操作字符串是有效的：行号 参数 含义1 “open” 函数打开由lpFile指定的文件。这个文件必须是可执行文件或者文档文件。文件夹必须是可打开的文件夹。2 “print” 函数打印由lpFile指定的文件。这个文件应该是文档文件。如果指定的文件是可执行文件，函数将以open的方式打开这个文件。3 “explore” 函数将搜索由lpFile指定的文件夹。4 lpOperation 参数如果为null，函数将以open的方式打开由lpFile指定的文件。3.lpFile以一个null结束的字符串描述打开或者打印指定的文件，或者打开或者搜索指定的
文件夹。函数可以打开一个指定的文件或者文件夹，也可以打印一个文档文件。4.lpParameters如果lpFile指定的是一个可执行文件，lpParameters以一个以null结束的字符串指定该执行文件传给应用软件的参数。
行号 参数 含义
1 SW_HIDE 隐藏这个窗体，并激活其他窗体。
2 SW_MAXIMIZE 最大化指定的窗体。
3 SW_MINIMIZE 最小化指定的窗体，并按顺序激活最上层的窗体。
4 SW_RESTORE 激活并显示窗体。如果窗体为最小化或者最大化，窗体恢复到原始大小和位置。应用程序当恢复一个最小化的窗体时将指定标记。
5 SW_SHOW 以当前的大小和位置激活并显示窗体。
6 SW_SHOWDEFAULT
7 SW_SHOWMAXIMIZED 激活并最大化显示窗体。
8 SW_SHOWMINIMIZED 激活并最小化现实窗体。
9 SW_SHOWMINNOACTIVE 最小化窗体，保持其激活状态。
10 SW_SHOWNA 以当前状态显示窗体，保持其激活状态。
11 SW_SHOWNOACTIVATE 以当前的大小和位置显示窗体，并保持其激活状态。
12 SW_SHOWNORMAL 激活并显示一个窗体。如果窗体为最大化或者最小化，窗体恢复到原始的大小和位置。当窗体第一次显示的时候，应用程序记录标记。
如果lpField指定的是一个文档文件，lpParameters应该为null。5.lpDirectory以一个以null结束的字符串指定文件开始运行的默认目录。6.nShowCmd如果lpField指定了一个可执行文件，nShowCmd指定这个文件在被打开时如何显示。这个参数可以是以下值中的任何一个：
如果lpField指定的是文档文件，nShowCmd应该为0。
******************************************************************************
* return Values（返回值）如果函数执行成功，返回值是已经运行的工程的实例句柄，或者动态数据交换服务器应用程序的句柄。
（具体返回值列表从略，请参考Delphi在线帮助）* Remarks（注释）被lpFile参数指定的文件必须是一个可执行文件或者文档文件。如果文件是一个文档文件，ShellExecute函数将根据lpOperation参数决定打开或者打印这个文件。如果是可执行文件，ShellExecute函数将打开它，即使lpOperation参数被指定为printing。你可以使用ShellExecute打开活着搜索一个文件夹。可以使用以下任意一种方式打开一个文件夹：
ShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL);
或者
ShellExecute(handle, "open", path_to_folder, NULL, NULL, SW_SHOWNORMAL);使用下面的调用搜索文件夹：ShellExecute(handle, "explore", path_to_folder, NULL, NULL, SW_SHOWNORMAL)
如果lpOperation参数为null，函数将打开由lpFile指定的文件。如果lpOperation参数为”open”或者”explore”，函数将强制打开窗体或者资源管理器。注：在新窗口打开网页的办法ShellExecute(self.Handle, PChar('open'), PChar('explorer'), PChar(URL), nil, SW_MAXIMIZE);
scGPEdit2.SetFocus;--------------scGPEdit2获取焦点
控件：scTreeView1 – 自动展开树形结构
scTreeView1.Items[0].Expanded := True;
Form窗体置前
SetWindowPos(Self.Handle, HWND_TOPMOST, Left, Top, Width, height, SWP_NOMOVE or SWP_NOSIZE);
获取当前目录
GetCurrentDir
Label修改内容为课换行
方法一：
在需要换行的地方添加【#10】其为换行符号
方法二：
修改label的两个属性：
autosize改为false wordwrap改为true
修改完后，再对Caption设置内容，当其超长的时候，会自动换行。如果英文一个单词过长，超过Label的宽这种情况不会换行
image 图像清空
image1.picture := nil;
选择文件夹
varDir: string;
beginSelectDirectory( 标题名, 默认路径, Dir); // 需要声明 FileCtrl// 返回文件路径【 Dir 位文件路径】
选择文件并添加到Image中
Dataset.****
open返回结果集也就是数据
exec是执行也就是插入，删除，更新使用
在字符串两侧加引号
QuotedStr(‘在我这段话两侧加引号’);
ModalResult := mrok; // 用户单击确定按钮退出。【控件属性：ModalResult】
ModalResult 是指一个模式窗体（MyForm.showmodal）的返回值，一般用于相应窗体上按钮的ModalResult属性；显示完窗体（关闭）后，会返回此属性预设的值做为返回值。
包含 ModalResult 属性的按钮执行完毕之后，该按钮所在的窗体会自动关闭，不用在 OnClick 事件中添加诸如 Close 语句。
窗体的 ModalResult 属性又会自动传递给 showmodal 方法，作为该方法的返回值。
在自己设计的 Login 界面中，选择相应的按钮，设置按钮的 ModalResult 属性为 mrOK 、mrCancel 等。
这样的设置，当按下该按钮时，界面会自己关闭，同时会将该按钮的 ModalResult 属性传递给窗体，以便于调用的代码取得该值。
在调用界面，必须要用 ShowModal，不能用 show
注意：在 Login 界面中，按钮不要写 close 代码
TClientDataSet.Fields[]; { 字段集合; 它比 FieldList 有更多功能, 如可获取嵌套字段 }
TClientDataSet.FieldList[]; { 字段列表; 它比 Fields 轻便, 如果只是取值用它快一些 }
TClientDataSet.FieldByName(); { 根据字段名称获取字段对象; 获取一个字段对象时它比上两个快 }
TClientDataSet.FindField(); { 根据字段名称查找字段对象 }
TClientDataSet.FieldValues[]; { 根据字段名称获取字段值; 如果仅是获取字段值, 这个最快 }
TClientDataSet.First; { 到第一个记录 }
TClientDataSet.Next; { 到下一个记录 }
TClientDataSet.Last; { 到最后一个记录 }
TClientDataSet.Prior; { 到上一个记录 }
TClientDataSet.RecNo; { 设置或读取当前记录的位置 }
TClientDataSet.Bof; { 当前位置是否是第一个记录 }
TClientDataSet.Eof; { 当前位置是否是最后一个记录 }
TClientDataSet.RecordSize; { 一个记录的大小; 所谓一个记录就是当前行的所有字段 }
TClientDataSet.RecordCount; { 记录总数; 也就是总行数 }
TClientDataSet.GetFieldList(); { 根据指定的几个字段名获取字段对象的列表 }
TClientDataSet.GetFieldData(); { 把指定字段的值写入一个缓冲区 }
TClientDataSet.GetCurrentRecord(); { 把当前记录(不包括 Bolb 字段)写入到一个缓冲区 }
未完
一点点笔记，以便以后翻阅。
Delphi 之【记得来康康我】相关推荐
- Delphi 组件开发教程指南（4）组件生成过程（针对TWinControl继承而来的组件）
还记得在第二章的时候,我用到了procedure CreateParams(var Params: TCreateParams);这个函数的吧!为什么我会使用这个函数来实现那个对齐的问题呢!现在就来追 ...
- Delphi 的消息机制浅探三
再看一段: WM_MOUSEFIRST..WM_MOUSELAST: if IsControlMouseMsg(TWMMouse(Message)) then begi ...
- Delphi下使用指针的简单总结
由于最近公司太忙,好久没有更新我的BLOG了.原来想着写写关于HOOK驱动的文章,可是最后想想好久已经没有做驱动的东西了,怕写出来有错误,于是作罢.开发游戏也有一段时间了,发现使用DELPHI来开发网 ...
- 利用Delphi的File Of Type创建并管理属于你自己的数据库
http://www.360doc.com/content/16/1128/19/28222077_610249962.shtml 利用Delphi的File Of Type创建并管理属于你自己的数据 ...
- 垂死挣扎还是涅槃重生 -- Delphi XE5 公布会归来感想
Delphi 是一个基本上被我遗忘的工具, 要不是在使用RapidSql , 我是收不到Embarcadero 公司发出的邀请来參加Delphi XE5的公布会的. 有人可能要问为什么是Embarca ...
- 在Delphi程序中应用IE浏览器控件
---- 大概大家还记得Delphi的范例程序中的那个浏览器的例子吧.在那个例子中,利用控件THttp的属性和方法制作了一个浏览器.该例子用于理解THttp控件的使用方法,确实不错.但很少有人会用它作 ...
- Delphi动态事件
Delphi动态事件深入分析 核心提示:本实验证明了在类中方法的调用时候,所有的方法都隐含了一个Self参数,并且该参数作为对象方法的第一个参数传递... 首先做一个空窗体,放入一Button. 在i ...
- 以Delphi Package架构多人开发应用程序环境
以Delphi Package架构多人开发应用程序环境 ■印象中的Package 在一般的AP开发时,我们知道在Delphi7.0整合环境中将Project->Options->选到Pac ...
- 用DELPHI的RTTI实现数据集的简单对象化
用DELPHI的RTTI实现数据集的简单对象化 CND8学院 Delphi教程 发布日期:2008年07月09日 将本文收藏到:| 收藏到本地| 复制本文地址 在<强大的DELPHI RTTI ...
最新文章
- mybatis 操作动态表+动态字段+存储过程
- 【Network Security！】NTFS安全权限(看不懂你来打我)
- HDU 2072 单词数
- ajax跨域问题(php)
- restful web_泽西岛的RESTful Web服务
- 适用于微服务架构的Apache Camel
- Kafka消费者的使用和原理
- 使用php-fpm状态页观察当前的php-fpm状态
- 十一、Oracle学习笔记：高级关联查询
- Azure China (4) 管理Azure China Storage Account
- Linux BT下载(8)-种子解析模块设计与实现2
- SVN 回退到某一个版本
- EPLAN电气设计入门学习笔记
- Django部署服务器
- 试题 基础练习 数的读法
- heaps 和 priority queue堆和优先队列的定义和数据结构表示
- Vue路由懒加载报错问题解决
- 马云：我们唯一拥有的就是相信梦想，Never give up！
- 3 个月前被裁员了，心情跌落谷底，直到我看到了这本神书…
- 软件测试学习中的一些有用网站