下面我们就讨论一下在delphi中如何给窗口的标题栏上添加新的按钮。 一、实现起来要定义以下过程： 1、 定义DrawCaptButton过程，这个过程的功能是在指定的位置画出按钮。 在过程中要使用win32函数GetSystemMetrics得到窗口的大小和标题按钮的大小；使用delphi函数Bo ...
SendMessage基础知识 函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UI ...
procedure TForm1.FormCreate(Sender: TObject); var hr :thandle; begin hr:=createroundrectrgn(1,1,width-2,height-2,5,5); setwindowrgn(handle,hr,true); e ...
type TComplex = record Real : Single; Imag : Single; end; TKArray=array [1..2048,1..2048] of TComplex; varlcArr:TKArray;lcC:Integer; lcArr2:Array of A ...
分类：
编程语言 时间：
2019-09-02 11:53:41
阅读次数：
119
鼠标忙这段代码大概是用来演示鼠标的用法的。具体解释如下： 使鼠标指针为沙漏状。（以表示程序正忙）screen.Cursor:=crhourglass; 把（打开的）数据库关闭。adoQuery.close;（个人以为改成这样更好：if adoQuery.Active then adoAuery.cl ...
譬如上面的 record 可以这样声明: 还得有方法的实现(遗憾的是有些不能用 Ctrl+Shift+C 自动建立, 那就复制吧): Delphi for Win32 只支持 record 类型的运算符重载，而 Delphi .NET 还支持 class 类型的运算符重载下面是Delphi支持的可重 ...
在编程时候，尤其是在一个大的团队里面，遵守统一的编程规范是极其重要的。为所有的开发人员制定一个源代码书写标准，以及程序和文件的命名标准，使他们在编程时有一致的格式，这样，每个编程人员编写的代码能够被其他人理解，减少程序维护和移交的成本。 这里先只介绍关于Delphi语言的编程规范，暂时跳过文件、项目 ...
前言 基础知识讲了很多，但是并没有串联起来，所以我最近一直在准备个小项目，但是这个项目的要求不含有数据库部分，也就是数据持久存储的功能，此外不能含有网络功能，它只是对基础知识的一个总结，最后一点是这个项目可以后期进行扩展，加上网络和数据库部分，所以最终选择俄罗斯方块这个小游戏作为基础知识总结的结课项 ...
用一般的frxMEMOview 中文换行是瞎换,缺少数据,换成frxrichview 即可, frxrichview 使用注意点 1).Delphi中文很多时换行不正确 2).要在窗体上拖一个frxrichObject 3).绑定数据库控件跟frxMEMOview 一样,如[frxdbYingYe. ...
GetFileSize获取文件大小 封装成如下函数，可以直接使用： ...
