-
Delphi 显示彩色数据表格
Delphi 显示彩色数据表格，对DBGrid数据表格进行美化，自定义任意行和任意列单元格显示不同的背景颜色，这样可实现特定数据显示不同的颜色，更利于报表的清淅直观。
- 2022-03-15 16:49:57下载
- 积分：1
-
Delphi 绘制艺术图案
Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。
self.ClientHeight:=200;
self.ClientWidth:=200;
r:=self.ClientWidth/2;
Sect:=20;
for i:=0 to Sect-1 do
begin
x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);
y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);
end;
- 2022-01-28 10:36:40下载
- 积分：1
-
又一款基于数据库的Delphi图书管理系统
又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。
高手可在此基础上开发完善出功能更强大的图书管理系统。
本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。
- 2023-06-04 01:55:03下载
- 积分：1
-
在输入时按回车移动光标到一下文本框-Delphi示例
Delphi实现回车移动焦点的功能，当用户在输入时按回车键，将移动光标到一下文本框，这个功能我觉得可很好的提升软件的操作体验，为实现快捷输入近了一步。具体代码请参考如下：
begin
if Key = 13 then
begin
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起
end;
end;
- 2022-08-21 20:36:32下载
- 积分：1
-
Delphi 简单获取Windows时间的例子
简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码：
procedure TForm1.Button1Click(Sender: TObject);
var
Dtimer : TSystemTime;
hh,Ghh : Integer;
begin
hh := StrToInt(Trim(Edit4.Text));
if hh < 8 then
Ghh := 16 + hh
else
Ghh := hh - 8;
with Dtimer do
begin
wYear:=StrToInt(Edit1.Text);
wMonth:=StrToInt(Edit2.Text);
wDay:=StrToInt(Edit3.Text);
wHour:=Ghh;
wMinute:=StrToInt(Edit5.Text);
wSecond:=StrToInt(Edit6.Text);
end;
SetSystemTime(Dtimer);
end;
- 2022-07-09 18:55:23下载
- 积分：1
-
Delphi添加图层蒙版
Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedure TForm1.FormCreate(Sender: TObject);
var
bTrans: Byte;
OldStyle: Integer;
begin
form1.Color := clGradientActiveCaption;
WindowState := wsMaximized;
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
OldStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, OldStyle or WS_EX_LAYERED Or WS_EX_TRANSPARENT);
bTrans := 128;
SetLayeredWindowAttributes(Handle, 0, bTrans, LWA_ALPHA);
end;
- 2022-02-06 10:25:25下载
- 积分：1
-
在Delphi中进行 YCrCb RGB 颜色值转换
在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。
- 2022-05-23 08:16:07下载
- 积分：1
-
Delphi在TListView中显示数据库
Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。
self.ListView1.ViewStyle:=vsReport;
for i:=0 to Query1.FieldCount-1 do
begin
TempColumn:=self.ListView1.Columns.Add;
TempColumn.Caption:=Query1.Fields[i].FieldName;
end;
Query1.First;
while not Query1.Eof do
begin
TempItem:=self.ListView1.Items.Add;
TempItem.Caption:=Query1.Fields[0].AsString;
for i:=1 to Query1.FieldCount-1 do
begin
TempItem.SubItems.Add(Query1.Fields[i].AsString);
end;
Query1.Next;
end;
- 2023-06-25 00:05:04下载
- 积分：1
-
取消窗体标题栏的关闭按钮-Delphi代码
Delphi 取消窗体标题栏的关闭按钮，也就是单击窗口右上角的关闭按钮，窗体并不会关闭，让关闭按钮失去了作用，用户可通过单击窗口中的自定义按钮来关闭窗口，这样就相当于取消了窗体标题栏中的关闭按钮。
- 2022-07-04 03:53:29下载
- 积分：1
-
Delphi 7.0 使用Quotedstr函数返回字符串的引证串
Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。
- 2023-03-07 09:55:03下载
- 积分：1
