-
EI3.0(DELPHI源码)
EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试
- 2022-03-30 08:16:31下载
- 积分：1
-
一个包括了下拉菜单的Delphi窗口设计范例程序
一个包括了菜单的Delphi窗口设计范例程序，以一个销售管理系统的主窗口界面设计为例，演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素，比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握，在很多的Delphi应用程序中，都会有此需求，欢迎下载源码。
- 2022-12-24 17:00:02下载
- 积分：1
-
Delphi 变速齿轮# 让时间变快减慢
Delphi 变速齿轮# 让时间变快减慢，其实这个似乎是做不到的，只是模拟一下，代码及描述如下：
procedure Speed(count:word); stdcall;
const ExceptionUsed = $03; { 中断号也可以用其它的中断号}
var
IDT : array [0..5] of byte; { 保存中断描述符表}
lpOldGate : dword; {存放旧向量}
begin
asm
push ebx
sidt IDT {读入中断描述符表}
mov ebx, dword ptr [IDT+2]{IDT表基地址}
add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置}
cli {关中断}
mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 }
shl edx, 16d {左移16位}
mov dx, word ptr [ebx] {取1,2字节 }
mov [lpOldGate], edx {保存旧的中断门}
mov eax, offset @@Ring0Code {修改向量，指向Ring0级代码段}
mov word ptr [ebx], ax {低16位,保存到1,2字}
shr eax, 16d
mov word ptr [ebx+6], ax {高16位，保存到6,7位}
int ExceptionUsed {发生中断}
mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中}
add ebx, 8*ExceptionUsed
mov edx, [lpOldGate]
mov word ptr [ebx], dx
- 2023-02-13 04:55:03下载
- 积分：1
-
Delphi 使同类的组件进行同样的操作
Delphi 使同类的组件进行同样的操作的一个实例，类似于将WEB表单统一清空的功能，点击按钮后，所有文本框组件的内容被清空，作用在相同的组件实例上，代码：
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ClearText : Integer;
begin
For ClearText := 0 to Form1.ComponentCount -1 do
begin
//判断如果窗体中包含文本框组件，则将所有文本框组件的内容清空
if Form1.Components[ClearText] is TEdit then
begin
TEdit(Components[ClearText]).Clear;
end;
end;
end;
- 2022-05-23 05:25:03下载
- 积分：1
-
Delphi 使用tfilestream方式复制文件
Delphi 使用tfilestream方式复制文件，你可参考本源码，学习一下OpenDialog、Tfilestream.Create、showmessage、CopyFile的用法，本实例复制文件，是通过读取文件流，保存文件流的方式复制，并不是使用命令复制文件。
- 2022-01-21 03:12:02下载
- 积分：1
-
获取windows System目录路径-Delphi示例
Delphi获取windows System目录路径，这个比较简单，觉得没啥用，只是可以练习一下GetSystemDirectory函数如何使用，下面分享出核心的代码，完整代码需要您下载哦：
begin
GetMem(SysDir,255);
GetSystemDirectory(SysDir,255);
Edit1.Text := SysDir;
end;
- 2022-03-18 16:21:27下载
- 积分：1
-
Delphi SQLSERVER停车场收费管理系统
Delphi SQLSERVER停车场收费管理系统，本系统涉及有多个硬件，运行后需要初始化硬件，读取硬件的配置数据，包括控制器。需要联网读取数据，比较综合的一套系统。可对挡车器、停车场照明系统进行管理，可财务报帐、年终结算等功能，主窗口启动时，先连接数据库和用户登录。硬件参数需要重新启动该程序才能生效，设置照明灯自动开关时间，向数据库中写入记录，控制硬件打开挡车器，开始事务：fee_station-结帐次数加1，维护费用AMaintain=0 ,start_fee增加。。。
- 2023-06-03 04:50:05下载
- 积分：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 利用API绘制弧形
Delphi 利用API绘制弧形，
begin
ArcRect := ClientRect;
Canvas.Pen.Width:=2;
for i:=1 to 10 do
begin
Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,
ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,
ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);
InflateRect(ArcRect,-2,-2);
Canvas.Pen.Color := PaletteIndex(i+10);
end;
- 2022-03-21 03:44:09下载
- 积分：1
-
Delphi创建透明图像效果的窗体
Delphi创建透明图像效果的窗体，这个示例实际是演示调用透明图片并显示的效果，用此制作成一个无边框且透明的窗口，制作时需要把此窗口设为Desktop型的。图片最好是BMP或PNG透明格式的，这样当图片显示时，会显示为一个无边框的透明窗口，没有图像的部分会显示窗口下层的内容，演示了一种制作透明窗口的方法。
- 2022-02-25 21:57:42下载
- 积分：1
