Delphi在窗口中单击左键弹出菜单

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

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

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

Delphi 监测程序多久未被使用,以秒数来衡量使用了多久，打开一次然后再关闭，就可以显示使用了多长时间。

Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 LogBrush:TLogBrush; 　　begin 　　 LogBrush.lbStyle:=BS_HATCHED; 　　 LogBrush.lbColor:=clRed; 　　 LogBrush.lbHatch:=HS_DIAGCROSS; 　　 Canvas.Brush.Handle := CreateBrushIndirect(LogBrush); 　　 Canvas.FillRect(ClientRect); 　　end;

Delphi7.0将TDBGrid导入到Excel表中，测试程序先连接好SQLSERVER数据库，并将数据读取到TDBGrid中，然后再将数据从TDBGrid导入到Excel表中，为了测试方便，SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义，完整源码请下载： 　　//将TDBGrid表中的标题插入到Excel表中的首行 　　for I:=0 to DbName.Columns.Count-1 do 　　begin 　　 if DbName.Columns[i].Visible=False then 　　 Continue; 　　 Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption; 　　 Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体 　　end; 　　Inc(j); //Excel表中的下一行 　　First; //将指针返回到TDBGrid表中数据的首行 　　while not Eof do 　　begin 　　 for i:=0 to DbName.Columns.Count-1 do 　　 begin 　　 if DbName.Columns[i].Visible=False then 　　 Continue; 　　 //将指定行中每列的数据，添加到Excel表中 　　 Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring); 　　 end; 　　 Inc(j); //Excel表中的下一行 　　 Next; //TDBGrid表中的下一条记录 　　end;

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

这是一个Delphi色彩控制方面的示例，我看上去更像是Delphi分离出红绿颜色通道，从页形成的一种立体效果，复制和修改颜色模式来实现，相关代码可参考如下： 　　 //设置添充颜色的大小 　　 DBitmap.Width := LBitmap.Width; 　　 DBitmap.Height := LBitmap.Height; 　　 vRect := Rect(0, 0, DBitmap.Width, DBitmap.Height); //获取添充区域 　　 DBitmap.Canvas.Brush.Color := vGreen; //设置画笔颜色 　　 DBitmap.Canvas.FillRect(vRect); //添充颜色 　　 LBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR 　　 LBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制 　　 DBitmap.Canvas.Brush.Color := vRed; 　　 DBitmap.Canvas.FillRect(vRect); 　　 RBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR 　　 RBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制 　　 DBitmap.Canvas.CopyRect(vRect, LBitmap.Canvas, vRect); 　　 DBitmap.Canvas.CopyMode := cmSrcAnd; //将复制模式改为AND 　　 DBitmap.Canvas.CopyRect(vRect, RBitmap.Canvas, vRect); 　　 except 　　 Exit; 　　 end; 　　 Result := True; 　　end;

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演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码： 　　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;