本文共 7851 字，大约阅读时间需要 26 分钟。

---

获取毫秒级的时间戳

// 时间是从1970年1月1日8点到当前的间隔[单位: ms]  MilliSecondsBetween(Now, EncodeDateTime(1970, 1, 1, 8, 0, 0, 0));

---

---

---

---

判断文件是否存在

if FileExists('D:\test.csv') then    Memo1.Lines.Add('文件存在');

---

---

---

内存泄漏提示：【在程序源码的地方添加】

• 方式一：
  ReportMemoryLeaksOnShutdown := True;
• 方式二：（这种只会在Debug模式下进行，但是会有警告：‘DebugHook’ 是针对平台的）
  ReportMemoryLeaksOnShutdown := DebugHook<>0;

---

---

---

---

---

---

---

Edit 控件关闭输入法：Edit1.imemode := imdisable;

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

---

未完

---

$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:编写声明或者补上函数

---

设置以下属性即可实现透明窗体显示文字：

设置窗体属性： 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);

---

**调用默认浏览器打开网页**

usesshellapiShellExecute(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.发email   v_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;

选择文件夹

var  Dir: string;begin  SelectDirectory( 标题名, 默认路径, Dir);    // 需要声明 FileCtrl  // 返回文件路径【 Dir 位文件路径】

---

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 字段)写入到一个缓冲区 }

---

未完

---

一点点笔记，以便以后翻阅。