Delphi实现流程图绘制程序附有源码

Delphi 将字符串中的任意字符转换成大写，可将给定一串字符中指定的字符转换成大写，如示例运行效果所示，将字符串中的所有l字符变成大写的L。

Delphi 打印图形，把图片打印出来，通过这个例子，你可以学习到： 　　 strect:Trect;//定义打印输出矩形框的大小 　　 temhi,temwd:integer; 　　begin 　　 if DIGPrint.execute then 　　 begin 　　 temhi:=imgpic.picture.height; 　　 temwd:=imgpic.picture.width; 　　 while (temhi = printer.pageheight div 2)and 　　 //将图形放大到打印页面的1/2大小 　　 (temwd = printer.pagewidth div 2) do 　　 begin 　　 temhi:=temhi+temhi; 　　 temwd:=temwd+temwd; 　　 end; 　　 with strect do //定义图形在页面上的中心位置输出 　　 begin 　　 left := (printer.pagewidth -temwd) div 2; 　　 top := (printer.pageheight-temhi) div 2; 　　 right := left+temwd; 　　 bottom := top+temhi; 　　 end; 　　 with printer do 　　 begin 　　 begindoc; 　　 canvas.stretchdraw(strect,imgpic.picture.graphic); 　　 enddoc; 　　 end; 　　 end;

Delphi 7.0 改变菜单中的字体样式，本程序其实实现了两种功能，1、枚举系统中所有已安装的字体，并加载到Listbox列表中供选择，2，改变字体样式，选中列表中的任意字体样式，单击即可改变菜单中的文字样式，为窗口中其它区域的文字设置字体样式的时候也可参考。 　　begin 　　 ListBox1.Items:=Screen.Fonts;字体样式 　　 self.MainMenu1.AutoHotkeys:=maManual; 　　 self.MainMenu1.AutoLineReduction:=maManual; 　　 Screen.MenuFont.Size:=12;字号 　　end;

Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。 　　//淡入效果 　　//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE); 　　//从中心扩散 　　//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE); 　　//水平从左到右 　　//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE); 　　//水平从右到左 　　//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE); 　　//垂直从上到下 　　//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE); 　　//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE); 　　//垂直从下到上

Delphi 取消窗体标题栏的关闭按钮，也就是单击窗口右上角的关闭按钮，窗体并不会关闭，让关闭按钮失去了作用，用户可通过单击窗口中的自定义按钮来关闭窗口，这样就相当于取消了窗体标题栏中的关闭按钮。

在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。

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;

“欢迎连接到简单TCP服务器”，这是本代码编译成功，运行程序后连接成功后的第一个提示。Delphi编写设计一个基本的CS结构的TCP服务器，客户端代码同样完整，指定主机IP、端口后，就可连接该服务器，客户端和服务端代码都要编译才能运行，先运行服务端并设置好，再启动客户端，然后进行消息发送和接收。

Delphi实现RGB色环的绘制源码 XE10.2+WIN764，鼠标移动时提取颜色RGB的值,可以设置中心圆是否是透明的，RGB色环的代码绘制，传入图片的大小,扣出中心的黑色圆,输入图片与中心圆的半径。这个色环的颜色十分精细，过渡十分自然，本例子代码的参考价值还是挺大的。

Delphi 控制键盘指示灯，控制键盘灯打开或关闭。就像大小写切换时候，小键盘上面的灯会亮起、关闭，比较简单的一个小功能，适合入门学者参考学习。