在Delphi中进行 YCrCb RGB 颜色值转换

这个程序演示了使用Word作为自动化服务器，Delphi地自动化控制器是如何将一个查询结果插入到word文档中，返回应用参数.这个调用在英文和法文版的 Word中相同。对德文版的Word，这个过程名是翻译后的。如果这个过程不存在，存在一个不同的Word翻译版本，还可以插入中文Word，运行效果如图所示。

Delphi 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下： 　　NextformHwnd:HWND;//观察链中下一个窗口句柄 　　procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD; 　　//处理WM_DRAWCLIPBOARD消息过程 　　 { Public declarations } 　　//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口 　　SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); 　　//查询剪贴板中特定格式的数据内容 　　if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then 　　begin 　　 //处理剪贴板中内容 　　 memo1.Lines.Clear; 　　 memo1.Lines.Add(Clipboard.asText); 　　end;

用delphi编写的rfid读卡器程序，支持epcc1-g2和18000-6b，囊括了所有操作，对于进行rfid开发的人，应该有很大的帮助

Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。

Delphi 为组件制作立体效果，实现组件的阴影、投影效果，这种阴影效果不是很细腻，不过大致也说得过去，必竟实现方法简单，原生Delphi方法实现，不依靠三方控件，最终效果请参见测试截图所示。

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

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 使用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 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。 　　ShadowWidth:integer; //用于确定阴影的宽度或高度 　　RightShadow:TForm; //主窗口的右边产生一个阴影窗口 　　BottomShadow:TForm; //主窗口的下部产生一个阴影窗口 　　procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;

Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考： 　　vh := Hour/12.0*2*Pi; 　　vm := Min/60.0*2*Pi; 　　vs := Sec/60.0*2*Pi; 　　with Canvas do 　　begin 　　 Pen.Width:=4; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh))); 　　 Pen.Width:=2; 　　 Pen.Color := clBlack; 　　 MoveTo(60,60); 　　 LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm))); 　　 Pen.Width:=1; 　　 Pen.Color := clRed; 　　 MoveTo(60,60); 　　 LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs))); 　　end; 　　窗体方面：这个圆盘窗口要是能移动就好了，不支持右键菜单，也不能关闭，关闭窗口需要按键盘上的ALT+F4。