Delphi获取BMP图片指定点RGB值

Delphi实现RGB色环多次渐变，生成一个渐变的圆形，颜色渐变步长可自定义，在代码中，为了绘制出来的圆好看，分成四个部分进行绘制，此部分代码展示如下： 　　if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree

又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。 　　高手可在此基础上开发完善出功能更强大的图书管理系统。 　　本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。

Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录： 　　 NormalIcon,DisabledIcon:TIcon; 　　 //正常和失效两种情况下的图标 　　 Status:Boolean; 　　 //标志"允许使用"还是"禁止使用" 　　 procedure InstallIcon; 　　 procedure ChangeIcon(s:Boolean); 　　 procedure UnInstallIcon; 　　 procedure IconOnClick(var message:TMessage); message MI_ICONEVENT; 　　 //捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。

Delphi 获取网页源代码，这个程序首先是一个网页浏览器，可解析用户输入的网址，直接输出网页界面，然后通过操作主窗口区的Tab选项，查看该网页的源代码，也就是完成了两种功能：1、网页浏览器，2、查看源代码。运行界面如下图示。

Delphi 使用TreeView来显示数据库信息，从数据库中读取数据，然后生成树形交叉节点的菜单，这种菜单通俗的叫做“树形菜单”，也是大家平时比较常见的菜单形式之一。 　　function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode; 　　var 　　 ThisNode,Node: TTreeNode; 　　 i: integer; 　　begin 　　 Node := Nil; 　　 for i := 0 to ItemList.Count-1 do 　　 begin 　　 ThisNode := TreeFindItem(Sender,Node,ItemList[i]); 　　 if(ThisNodeNil) then Node := ThisNode 　　 else begin 　　 if I　　 then begin 　　 if I=0 then Node := Sender.items.Add(Node, Itemlist[i]) 　　 else Node := Sender.items.AddChild(Node, Itemlist[i]); 　　 end 　　 else begin 　　 if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark) 　　 else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark); 　　 end; 　　 Node.stateIndex := Node.level + 1; 　　 if Resort and (Node.parent nil) then Node.parent.alphasort; 　　 end; 　　 end; 　　 Result := Node; 　　end;

Delphi 不使用标题栏移动窗体，意思是说，平时大家拖动Windows窗口的时候，都是鼠标放在窗口的标题栏上，按住鼠标左键拖动窗体，但本源码实现的功能是，不以标题栏为操作目标，那是怎么实现的窗口拖动呢？请下载参见本源码。

Delphi 播放指定avi-mid-wav文件,这几种都是音频格式，因此这个可以说是播放音频文件的例子，控制面板中包括了常用的播放控制按钮，在此基础上，可写出一个Delphi音乐播放器，当然本源码比较早了，适合学习一些简单的Delphi音频编程技巧。 　　procedure TForm1.N2Click(Sender: TObject); 　　begin 　　 if OpenDialog1.Execute then 　　 begin 　　 with MediaPlayer1 do 　　 begin 　　 Filename := OpenDialog1.FileName ; 　　 Open; 　　 DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height ); 　　 Notify := true; 　　 end; 　　 end; 　　end;

Delphi 自定义播放窗口，指定视频显示窗口，本源码演示的重点主要是播放器窗口外观的设计，调用了外部的一张jpg图片做为播放器的主窗口，让窗口风格首先看上去具有播放器程序的风格，因此，在美化窗口时如何使用jpg格式的图片，是本例要表现的重点功能，希望对窗体设计感兴趣的Delphi初学者好好学习研究一番哦。 　　本播放器虽然重在演示窗口功能的实现，不过它真的可以播放视频文件，比如mpg格式的文件。

Delphi 单击StringGrid列进行排序，StringGrid行的任意列单击，就会重新排序一次，排序规则可以自己定义，这种排序功能可有效提升StringGrid显示数据的易用性，增强其功能，提升用户体验，本例子源代码相当简单，对学习者也有很好的帮助作用。参见以下代码： 　　begin 　　 if Button = mbRight then Exit; 　　 TStringGrid(Sender).MouseToCell(X, Y, vCol, vRow); 　　 if (vRow < 0) or (vRow >= TStringGrid(Sender).FixedRows) then Exit; 　　 StringGridRowSort(TStringGrid(Sender), vCol, vOldCol = vCol); 　　 if vOldCol = vCol then 　　 vOldCol := - vOldCol 　　 else 　　 vOldCol := vCol; 　　end;