-
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如何清空TImage组件中的图片
本源码向大家演示Delphi如何清空TImage组件中的图片，如示例截图所示，TImage组件中已经装载了一张图片，单击“清空图片”按钮，将调用以下代码清空TImage组件中的图片数据：
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.picture.graphic := nil;
end;
这是一个比较初级的Delphi图像组件用法示例，Delphi新手可参考学习。
- 2022-03-18 08:56:24下载
- 积分：1
-
Delphi 获取拖动到窗体中的文件的路径
Delphi 获取拖动到窗体中的文件的路径，这实际上是一个拖放打开文件的例子，这只不是其中的一个步骤，拖放打开是把文件拖放到本窗口中，直接打开该文件，而拖放得到路径是把文件的路径显示在窗口中，和打开文件其实难易程序是一样的。拖放后获取文件路径，代码如下：
procedure TForm1.FileIsDropped(var Msg: TMessage);
var
NumFiles : longint;
i : longint;
FName : array[0..255] of char;
begin
SetForegroundWindow(Handle);
NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);
for i := 0 to (NumFiles - 1) do
begin
DragQueryFile(Msg.WParam,i,FName,sizeof(FName));
Memo1.Lines.Add(FName);
end;
end;
- 2022-09-25 15:45:03下载
- 积分：1
-
Delphi 隐藏或显示鼠标指针
Delphi 隐藏或显示鼠标指针，在编译后运行本程序生成的Exe程序，在窗口中单击鼠标左键，鼠标会消失，被隐藏了，再次单击后鼠标重现，很好的演示了在Delphi中如何显示或隐藏鼠标的操作。
- 2022-01-26 04:41:31下载
- 积分：1
-
Delphi POP3接收邮件-Email客户端例子
Delphi POP3接收邮件-Email源码实例，像是一个邮件客户端那样，设定好邮件服务器相关参数后，可连接到邮件服务器，接收邮件，本例子仅包括邮件接收功能，不能发送邮件哦。使用本程序需要设置的参数：邮件服务器POP3、端口、邮件帐户、密码，连接成功后，邮件列表会显示在“邮件”一栏中，单击任意一个邮件，详细信息会显示在“内容”栏中。
- 2022-12-15 05:00:03下载
- 积分：1
-
Delphi 计算1到10之间的奇数和【源码】
Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
j:=0;
For i := 1 to 10 do
begin
if i mod 2 =0 then
Continue;
j := j+i;
Edit1.text := IntToStr(j);
end;
end;
- 2023-02-23 03:45:04下载
- 积分：1
-
delphi 获取网页源码
delphi 获取网页源码
- 2023-01-22 10:05:04下载
- 积分：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 枚举线程的例子应该很多了，这一个比较简单的那种，可以为学习Delphi的新手朋友提供一些参考思路，运行界面效果如下图所示。源代码编译于Delphi7.0环境。
- 2022-08-16 10:03:07下载
- 积分：1
-
Delphi 让组件拖动窗体 按钮拖动窗口移动
Delphi 让组件拖动窗体 按钮拖动窗口移动，如图所示的窗口中，用户只需按住按钮，即可将整个窗口在屏幕上随意拖动，实现了如何用组件来移动窗体的功能。下面是相关代码：
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=MBLeft then
begin
releasecapture;
PerForm(WM_SYSCOMMAND,$F012,0);
end;
end;
- 2023-03-07 20:25:03下载
- 积分：1
