Delphi 创建Excel表格文件

Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码： 　　for i:=0 to self.Width-1 do 　　begin 　　c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1)); 　　c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1)); 　　c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1)); 　　Canvas.Brush.Color:=RGB(c1,c2,c3); 　　//每次画矩形的画刷颜色 　　Dct:=Rect(i,0,i+1,self.Height); 　　//每次刷绘的矩形区域 　　Canvas.FillRect(Dct); 　　//填充颜色 　　end;

Delphi 模拟Windows “显示桌面”功能，对于功能就不再详述了，单击后，会看到Windows桌面，具体的实现方法也挺简单的，下面几行代码就搞定了： 　　if IsWindowVisible(h) then 　　 PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); 　　h := GetNextWindow(h, GW_HWNDNEXT); 　　完整的可编译源码请你下载源码包吧。

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 显示彩色数据表格，对DBGrid数据表格进行美化，自定义任意行和任意列单元格显示不同的背景颜色，这样可实现特定数据显示不同的颜色，更利于报表的清淅直观。

Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。

Delphi 返回底数的任何次幂，本演示求2的4次幂、3的3次幂，求解过程如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit1.Text := FloatToStr(Power(2,4)); 　　 Edit2.Text := FloatToStr(Power(3,3)); 　　end; 　　以上代码定义在按钮事件中，当用户单击按钮后激活。

Delphi 通过时间服务器更新时间，包括了两个功能：1、获取服务器时间，2、更新本机时间。通过时间服务器，可一键自动更新日期时间，不过本实例连接的服务器已经失效了，程序不能连接，会假死，测试时候要注意。

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

本源码主要演示，Delphi如何拖动一个无标题栏的窗体，此前记得与大分享过不少VB类的相似源码，大部分情况下，我们习惯拖动窗口的标题栏来移动窗口，现在我们把窗口的标题栏去掉了，那么是如何实现窗口的拖动呢？其实我们可以拖动窗口的主窗口部位，同样可以拖动窗口，而且这样似乎更方便操作，关于代码的实现，请大家下载源码后，查看Unit1.pas文件。

Delphi在TListView中显示数据库，ListView控件的简单用法，在日常的编程开发中，这个比较常用 。 　　self.ListView1.ViewStyle:=vsReport; 　　for i:=0 to Query1.FieldCount-1 do 　　begin 　　 TempColumn:=self.ListView1.Columns.Add; 　　 TempColumn.Caption:=Query1.Fields[i].FieldName; 　　end; 　　Query1.First; 　　while not Query1.Eof do 　　begin 　　 TempItem:=self.ListView1.Items.Add; 　　 TempItem.Caption:=Query1.Fields[0].AsString; 　　 for i:=1 to Query1.FieldCount-1 do 　　 begin 　　 TempItem.SubItems.Add(Query1.Fields[i].AsString); 　　 end; 　　 Query1.Next; 　　end;