-
Delphi API笔刷制作源码
Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
LogBrush:TLogBrush;
begin
LogBrush.lbStyle:=BS_HATCHED;
LogBrush.lbColor:=clRed;
LogBrush.lbHatch:=HS_DIAGCROSS;
Canvas.Brush.Handle := CreateBrushIndirect(LogBrush);
Canvas.FillRect(ClientRect);
end;
- 2022-03-30 01:57:49下载
- 积分：1
-
Delphi实现窗体失去焦点时标题栏闪动特效
这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
flashwindow(Handle,true);
end;
procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);
begin
if Message.Active then
form1.Timer1.Enabled := false
else
form1.Timer1.Enabled := true;
end;
完整源码请下载。
- 2022-07-08 18:47:20下载
- 积分：1
-
Delphi GetCurrentDirectory得到系统当前目录
得到系统当前目录，Delphi 得到系统当前目录，这里使用了内置的GetCurrentDirectory函数来实现，比较方便，也比较简单。获取到系统目录后，是通过窗口的标题栏显示目录路径信息，在演示截图上请看窗口的标题栏，显示有程序当前所在的路径。关于GetCurrentDirectory用法，请参见以下两行代码：
GetCurrentDirectory(255,dir);//获得当前目录
form1.Caption:=dir;
- 2022-07-07 13:11:54下载
- 积分：1
-
Delphi 创建Excel表格文件
Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。
- 2022-02-15 04:17:26下载
- 积分：1
-
Delphi IntToHex函数用法举例
关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。
procedure TForm1.Button1Click(Sender: TObject);
var
S:integer;
begin
S:=2147483647;
showmessage(inttoHex(s,8));
showmessage(inttoHex(s,10));
showmessage(inttoHex(s,16));
showmessage(inttoHex(s,32));
end;
- 2022-09-07 01:20:03下载
- 积分：1
-
Delphi版智能图片放大器
Delphi版智能图片放大器，用滑块改变放大倍率，向左滑，则放大位数变大，反之则变校打开程序后，鼠标在图片区域移动，即可把鼠标悬停区域的图像放大显示N倍，放大位数就是刚才提到的，滑块来调整的放大位数，部分代码可参考如下：
Const //定义放大的区域
dSide=50;//区域大小
var
sSide: Integer;//放大比例[1至100]，1为最大100为缩小
msHide: Boolean;
OldX,OldY,NewX,NewY: integer;
Dest,Source: TRect;
{$R *.DFM}
Procedure TForm1.ImageFD(x,y,Side: Integer);//定义放大区域及放大过程
begin
sSide:=30; //初始化放大比例
msHide:=True;
//Canvas.CopyMode:=cmSrcCopy;
image1.Picture.Assign(image2.Picture);
end;
详细情况请下载源码后查看Unit1.pas文件。
- 2023-04-17 17:00:04下载
- 积分：1
-
delphi 获取网页源码
delphi 获取网页源码
- 2023-01-22 10:05:04下载
- 积分：1
-
Delphi 将数字转换成字符串
Delphi 将数字转换成字符串，请参见以下的转换代码，转换成功后将以 showmessage的形式返回结果，核心转换功能代码实现：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
i:=1234567;
s:=inttostr(i);
showmessage(s);
end;
- 2022-09-05 21:20:03下载
- 积分：1
-
Delphi 如何使程序不出现在任务栏上
Delphi 如何使程序不出现在任务栏上，常规情况下，运行的程序都会在任务栏有一个图标窗口，方便用户操作，不出现在任务栏上也可以，不过不太符合常规，有点隐藏程序的嫌疑，以下代码是实现此功能的：
procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do
SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;
- 2023-03-26 04:55:03下载
- 积分：1
-
用Delphi编写锁定电脑的程序
Delphi锁定计算机，锁定电脑，不允许别人可以操作，类似Windows自带的锁定程序，其实锁定是非常简单的，不几行代码就能实现：
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
LockWorkStation;
end;
若需要完整的源码，请下载本源码包。
- 2022-04-28 20:57:54下载
- 积分：1
