Delphi 图片颜色逐渐加深功能的实现

Delphi获取电脑CPU硬件型号名称，这个可能不准确，我是64位 I5 3470 CPU，获取出来的是统称，不是太准确，可能是我系统的问题。不过这个代码是前几年书中的代码，现在的硬件发展快，也有可能是代码的问题，运行效果如下。 　　本获取CPU名称是根据注册表的方法获取的。

Delphi7.0实现超级连接效果，在窗体上显示超级链接，这个似乎比较简单了，在网页上这是基本的功能，不过如何把一个超链接显示在窗口中，和网页上有些区别，通过这个例子你将学会如何在窗体上实现链接的显示，以及多种链接状态的自定义功能。

Delphi 把时间格式转换成字符串来显示，在运行的程序界面中，选择一个指定的日期后，可将此日期转换成字符串格式的，也就是不再具备时间的属性，但是自身已经变为字符串了。人可以识别，但机器不再识别为时间了。 　　procedure TForm1.FormShow(Sender: TObject); 　　begin 　　 DateTimePicker1.Date:=now(); 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 edit1.Text:=datetostr(DateTimePicker1.Date); 　　end;

Delphi 使用ESC键停止循环，示例演示程序，单击按钮开始循环，按下键盘ESC键，将停止循环。程序核心代码： 　　begin 　　 for i:= 0 to 9999999 do 　　 begin 　　 Edit1.Text := IntToStr(i); 　　 //允许应用程序在循环中可以处理消息 　　 Application.ProcessMessages; 　　 //用是 ESC 键放弁循环 　　 if GetKeyState(VK_ESCAPE) and 128 = 128 then 　　 Break; 　　 end; 　　end;

Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。

用Delphi生成图片水平交错的动态显示效果，是一个简单的图片动态显示效果，显示图片的时候，以水平左右交错的方式显示，可用于电子相册中，用于多张图片切换时的过渡动画效果。 　　本程序有个缺点：只支持BMP的图片，对JPG支持不好，其它格式也不行哦。

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。

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演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码： 　　Bitmap:=image1.Picture.Bitmap; 　　image1.Height:= Bitmap.Height; 　　image1.Width:= Bitmap.Width; 　　for i:=0 to 255 do 　　begin 　　 sleep(10); 　　 for y:=0 to Bitmap.Height-1 do 　　 begin 　　 pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色 　　 for x:=0 to ((Bitmap.Width*3)-1) do 　　 //递减颜色值，不同的递减值可改变不同的速度 　　 if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1); 　　 end; 　　 Image1.Canvas.Draw(0,0,Bitmap); 　　 Application.ProcessMessages; //让Application去处理消息队伍中的消息 　　end;

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