Visual C# 调用声音控制对话框

一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。

(R)-Delphi+Interbase-Code-龙邦汽配进销存源码-源代码全-使用手册-钻石精品

Delphi控制电脑蜂鸣器或扬声器发声音，有些称之为喇叭，不过测试发现，这个是优先机箱蜂鸣器发出声音，或没装蜂鸣器，则会从音箱中发声音，实现的代码很简单，以下代码即可实现： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,j : integer; 　　begin 　　 for i := 1000 to 2000 do 　　 begin 　　 j := i; 　　 windows.Beep(1000,3000); 　　 end; 　　end;

Delphi 模拟制作Windows XP风格界面的下拉页，实际上就是XP资源管理器界面的右侧窗口，鼠标单击会向下展开，再次单击会重新合拢，像一个折叠展开的面板那样，这种形式的窗口在Windows中已经早有应用，这只是一个用Delphi代码仿写的效果，希望对大家的Delphi界面设计有所帮助。

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播放AVI文件，AVI是一种视频格式，其实在Windows系统中，有很多的AVI小视频，用于实现Windows窗口中的小动画效果，在很多时候，我们可以借助播放AVI视频来实现窗体上的一些动画效果，比如Loading进度条、Office助手等。

Delphi 实现窗体的全屏显示效果，单击按钮后即可全屏。

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

Delphi实现圆角的窗体效果，将矩形的窗口效果修饰为圆角的风格，如示例截图所示的效果，核心的几行代码如下： 　　begin 　　 hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数) 　　 setwindowrgn(handle,hr,true); //设置园角窗口 　　end;

Delphi 使同类的组件进行同样的操作的一个实例，类似于将WEB表单统一清空的功能，点击按钮后，所有文本框组件的内容被清空，作用在相同的组件实例上，代码： 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 Close; 　　end; 　　 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 ClearText : Integer; 　　begin 　　 For ClearText := 0 to Form1.ComponentCount -1 do 　　 begin 　　 //判断如果窗体中包含文本框组件，则将所有文本框组件的内容清空 　　 if Form1.Components[ClearText] is TEdit then 　　 begin 　　 TEdit(Components[ClearText]).Clear; 　　 end; 　　 end; 　　end;