Delphi 渐变的RGB空心色环绘制源码演示

本源码演示Delphi如何用ESC键退出程序，为程序添加esc退出程序的功能，一般情况下，关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭，不过我们也可以为程序添加通过键盘按下ESC键来关闭程序，本源码就是演示了此种功能，当用户按下ESC时，窗口即关闭，程序退出。

Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码： 　　procedure TForm1.closecid; 　　var 　　 mycid:hkl; 　　begin 　　 mycid:=GetKeyBoardLayOut(0); 　　 if ImmIsIME(mycid) then 　　 //判断是否在中文状态,若是则关闭它 　　 immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　var 　　 j:integer; 　　begin 　　 for j:=0 to screen.imes.count-1 do 　　 begin 　　 //获取系统中已安装的中文输入法 　　 ComBoBox1.Items.Add(screen.Imes.strings[j]); 　　 end; 　　end;

一个包括了菜单的Delphi窗口设计范例程序，以一个销售管理系统的主窗口界面设计为例，演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素，比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握，在很多的Delphi应用程序中，都会有此需求，欢迎下载源码。

Delphi获取windows System目录路径，这个比较简单，觉得没啥用，只是可以练习一下GetSystemDirectory函数如何使用，下面分享出核心的代码，完整代码需要您下载哦： 　　begin 　　 GetMem(SysDir,255); 　　 GetSystemDirectory(SysDir,255); 　　 Edit1.Text := SysDir; 　　end;

Delphi渐变圆形的实现方法，RGB色环空心绘制演示源码： 　　oBmp := TBitmap.Create; //为了代码整齐就不写try了 　　oBmp.PixelFormat := ABitmap.PixelFormat; 　　oBmp.Width := ABitmap.Width; 　　oBmp.Height := ABitmap.Height; 　　BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图 　　oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域 　　SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域 　　ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载

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

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

这个Delphi例子我觉得值得看，用Java写了TCPIP通信的服务端，用Delphi写了客户端，两者在不同的语言环境下运行，并建立TCPIP通信，服务端的运行效果如示例截图所示。为了不发生消息乱码的现象，两者程序编码采用UTF8格式，用UTF-8格式发送出去，收到的UTF-8数据转成ANSI，这一部分的参考请参见util_utf8.pas文件，消息发送、服务器建立连接部分，请参见Unit1.pas文件。

Delphi 判断文件是否被占用，这个在删除的时候，可以添加上此功能，因为文件占用的话，用户删除时会出错，用本代码可以先判断一下文件是否被占用，用弹窗方式告诉用户是否可以删除，如果没有被占用，则程序进行下一步处理。下面简要了解一下判断的具体代码（局部）： 　　on E:EInOutError do 　　begin 　　 if e.ErrorCode=32 then//文件正在被使用 　　 begin 　　 result:=true; 　　 exit; 　　 end; 　　end; 　　更完整的可编译源码，请下载。

Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑，控制Canvas上的直线点跟随鼠标移动，其实这就是画线的基本方法，直线的一端确定后，另一端需要鼠标移动来指定端点，本程序的功能就是让线段的另一头跟随鼠标移动，以确定线段的最终位置。