Delphi 获得汉字区位码的源码

Delphi 返回指定数值的绝对值，计算正负数绝对值的例子，FloatToStr(Abs)函数用法代码，示例中计算了小数、整数两种数据类型的绝对值，单击对应的箭头，即可查看计算结果，对应的三种计算方法，请参见以下代码： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 Edit2.Text := FloatToStr(Abs(-1.5)); 　　end; 　　procedure TForm1.SpeedButton2Click(Sender: TObject); 　　begin 　　 Edit4.Text := FloatToStr(Abs(-200)); 　　end; 　　procedure TForm1.SpeedButton3Click(Sender: TObject); 　　begin 　　 Edit6.Text := FloatToStr(Abs(-1.80)); 　　end;

图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码： 　　newbmp:= TBitmap.Create; 　　newbmp.Width:=image1.Width; 　　newbmp.Height:=image1.Height; 　　bmpheight:=image1.Height; 　　bmpwidth:=image1.Width; 　　i:=0; 　　while i0 do 　　 begin 　　 newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j)); 　　 newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1)); 　　 j:=j-2; 　　 Application.ProcessMessages; 　　 end; 　　 form1.Canvas.Draw(0,0,newbmp); 　　 i:=i+2; 　　end; 　　newbmp.free;

Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。

这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键： 　　procedure TForm1.Timer1Timer(Sender: TObject); 　　begin 　　 flashwindow(Handle,true); 　　end; 　　procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP); 　　begin 　　 if Message.Active then 　　 form1.Timer1.Enabled := false 　　 else 　　 form1.Timer1.Enabled := true; 　　end; 　　完整源码请下载。

delphi获取图片指定点RGB颜色值，载入一张BMP图像，鼠标单击图像任意处，将获取该处的RGB颜色分量图。任何一种颜色都是由RGB分量值构成，获取这些分量值，就可以改变这些值，从而改变颜色，为程序的进一步处理提供基础保障，获取RGB颜色分量，相关代码如下： 　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenPictureDialog1.Execute then 　　 begin 　　 image1.Picture.LoadFromFile(OpenPicturedialog1.FileName); 　　 Form1.Canvas.Draw(0,0,image1.Picture.Bitmap); 　　 end; 　　end;

delphi windows远程桌面链接源码，带代理功能，支持win2012 原创代码

Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。 　　操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。

Delphi 获取并显示当前Windows时间的例子，这个例子比较简单了，程序就完成一项功能，打开窗口后，点击按钮，即可获取当前的系统时间，并显示在窗体上，如效果图所示。

Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。 　　在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。

本源码向大家演示Delphi如何清空TImage组件中的图片，如示例截图所示，TImage组件中已经装载了一张图片，单击“清空图片”按钮，将调用以下代码清空TImage组件中的图片数据： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 image1.picture.graphic := nil; 　　end; 　　这是一个比较初级的Delphi图像组件用法示例，Delphi新手可参考学习。