Delphi 之【记得来康康我】

$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);


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

ShellExecute(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结束的字符串描述操作的执行。以下的操作字符串是有效的:
  行号 参数 含义
  1open” 函数打开由lpFile指定的文件。这个文件必须是可执行文件或者文档文件。文件夹必须是可打开的文件夹。
  2print” 函数打印由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应该为null5.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获取焦点


时间:2020年9月8日16:49

控件:scTreeView1 – 自动展开树形结构
scTreeView1.Items[0].Expanded := True;

Form窗体置前
SetWindowPos(Self.Handle, HWND_TOPMOST, Left, Top, Width, height, SWP_NOMOVE or SWP_NOSIZE);

获取当前目录
GetCurrentDir


时间:2020年9月9日17:07

Label修改内容为课换行
方法一:
在需要换行的地方添加【#10】其为换行符号

方法二:
修改label的两个属性:
autosize改为false wordwrap改为true
修改完后,再对Caption设置内容,当其超长的时候,会自动换行。如果英文一个单词过长,超过Label的宽这种情况不会换行

image 图像清空
image1.picture := nil;

选择文件夹

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

选择文件并添加到Image中


时间:2020年9月10日17:24

Dataset.****
open返回结果集也就是数据
exec是执行也就是插入,删除,更新使用

在字符串两侧加引号
QuotedStr(‘在我这段话两侧加引号’);


时间:2020年9月11日18:03

Delphi 方法属性参数新注释

------------------- 分割----------------------
ModalResult := mrok; // 用户单击确定按钮退出。【控件属性:ModalResult】

ModalResult 是指一个模式窗体(MyForm.showmodal)的返回值,一般用于相应窗体上按钮的ModalResult属性;显示完窗体(关闭)后,会返回此属性预设的值做为返回值。
包含 ModalResult 属性的按钮执行完毕之后,该按钮所在的窗体会自动关闭,不用在 OnClick 事件中添加诸如 Close 语句。
窗体的 ModalResult 属性又会自动传递给 showmodal 方法,作为该方法的返回值。

在自己设计的 Login 界面中,选择相应的按钮,设置按钮的 ModalResult 属性为 mrOK 、mrCancel 等。
这样的设置,当按下该按钮时,界面会自己关闭,同时会将该按钮的 ModalResult 属性传递给窗体,以便于调用的代码取得该值。
在调用界面,必须要用 ShowModal,不能用 show
注意:在 Login 界面中,按钮不要写 close 代码


时间:2020年9月14日17:42

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 之【Trim()、Application.MessageBox()、三层数据库修改】


时间:2020年9月15日18:03

未完

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

猜你喜欢

转载自blog.csdn.net/qq_44111597/article/details/108225187