-
Delphi 文件拖放获取路径实例
Delphi 文件拖放获取路径实例，用文件拖放的方式打开文件，本实例中虽然没有打开文件，但是获取到了文件路径，因此你就可以依此功能扩展成打开文件的功能。
实现方法使用了shellAPI,将Form1注册为文件拖放接收控件，说请请下载该源码。
- 2022-09-12 19:45:03下载
- 积分：1
-
Delphi 从剪贴板中读取图片
Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Clipboard().Assign(Image1.Picture.Bitmap);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Clipboard().HasFormat(CF_BITMAP) then
Image2.Picture.Bitmap.Assign(Clipboard());
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Image2.picture := nil;
end;
end.
- 2022-06-13 13:08:12下载
- 积分：1
-
一个相当不错的Delphi TreeView树控菜单
一个Delphi编写的相当不错的TreeView树控菜单，类似于Windows资源管理器中的树状菜单。
ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口
Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表
HasExpanded: Boolean; // 节点是否展开
通过这个树形菜单制作实例，你可以学习到几个对项目标识符进行操作的函数，同时还有将二进制表示的项目标识符列表转换成有可识的项目名，获得每个文件夹在系统中的图标，获得系统的图标列表，生成文件夹管理树等。
- 2022-02-01 01:44:12下载
- 积分：1
-
Delphi 修改网络设置DNS地址
Delphi 修改网络设置DNS地址，这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息，由用户指定待修改的新DNS地址，输入地址框，单击“修改”按钮即可完成修改。因此通过本程序，你可以了解许多注册表方面的操作技巧，以及网络设置相关知识。
- 2022-02-14 09:59:16下载
- 积分：1
-
Delphi 使播放的Flash随窗口大小改变
Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。
- 2022-05-31 21:57:49下载
- 积分：1
-
Delphi时间换算 换算秒数为时间格式
Delphi时间换算 换算秒数为时间格式，其实这种换算还是挺简单的吧，TimeToStr(I/86400);就可以算出。在运行的程序窗口中，输入任意秒数（必需输入数字）后，点击确定按钮，即可显示出时间格式的秒数了。具体的代码这里不帖了，需要的请下载完整源码吧，运行效果图如截图所示。
- 2022-07-17 19:50:24下载
- 积分：1
-
Delphi 将TDBGrid导入到Excel表中附数据库
Delphi7.0将TDBGrid导入到Excel表中，测试程序先连接好SQLSERVER数据库，并将数据读取到TDBGrid中，然后再将数据从TDBGrid导入到Excel表中，为了测试方便，SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义，完整源码请下载：
//将TDBGrid表中的标题插入到Excel表中的首行
for I:=0 to DbName.Columns.Count-1 do
begin
if DbName.Columns[i].Visible=False then
Continue;
Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption;
Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体
end;
Inc(j); //Excel表中的下一行
First; //将指针返回到TDBGrid表中数据的首行
while not Eof do
begin
for i:=0 to DbName.Columns.Count-1 do
begin
if DbName.Columns[i].Visible=False then
Continue;
//将指定行中每列的数据，添加到Excel表中
Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring);
end;
Inc(j); //Excel表中的下一行
Next; //TDBGrid表中的下一条记录
end;
- 2022-06-29 23:05:07下载
- 积分：1
-
Delphi 格式化DataGrid表格中的数据
Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。
- 2022-01-25 15:23:01下载
- 积分：1
-
Delphi 实现图像热点功能
Delphi 实现图像热点功能，实现一张图片上不同形状区域的热点，定义椭圆形、四边形、三角形的区域变量的热点，相关代码如下：
var
thepoint:array [1..8] of tpoint;//存储多边形顶点坐标
count:integer;
pointnum:array [1..2] of integer;
begin
//四边形顶点坐标，首末点封闭
thepoint[1]:=point(135,99);
thepoint[2]:=point(105,183);
thepoint[3]:=point(129,201);
thepoint[4]:=point(188,92);
thepoint[5]:=point(135,99);
count:=5;//四边形顶点数目，首末点为一点
fourE_rgn:=CreatePolygonRgn(thepoint,count,WINDING);//生成四边形区域
elli_rgn:=CreateEllipticRgn(64,221,231,263);// 生成椭圆形区域
//第一个三角形顶点坐标
thepoint[1]:=point(118,67);
thepoint[2]:=point(32,28);
thepoint[3]:=point(17,90);
thepoint[4]:=point(118,67);
//第二个三角形顶点坐标
thepoint[5]:=point(155,44);
thepoint[6]:=point(202,91);
thepoint[7]:=point(277,44);
thepoint[8]:=point(155,44);
pointnum[1]:=4;//第一个三角形顶点数目
pointnum[2]:=4;//第二个三角形顶点数目
count:=2;//三角形数目
//生成由两个三角形构成的三角形区域
tri_rgn:=CreatePolyPolygonRgn(thepoint,pointnum,count,WINDING);
end;
- 2022-01-26 08:02:50下载
- 积分：1
-
Delphi 浏览性能数据库
Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。
- 2023-01-12 15:25:04下载
- 积分：1
