在Delphi中进行 YCrCb RGB 颜色值转换

Delphi实现圆角的窗体效果，将矩形的窗口效果修饰为圆角的风格，如示例截图所示的效果，核心的几行代码如下： 　　begin 　　 hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数) 　　 setwindowrgn(handle,hr,true); //设置园角窗口 　　end;

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

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

关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 S:integer; 　　begin 　　 S:=2147483647; 　　 showmessage(inttoHex(s,8)); 　　 showmessage(inttoHex(s,10)); 　　 showmessage(inttoHex(s,16)); 　　 showmessage(inttoHex(s,32)); 　　end;

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

又一款基于数据库的Delphi图书管理系统，源代码完整供参考学习Delphi的数据库编程。 　　高手可在此基础上开发完善出功能更强大的图书管理系统。 　　本系统目前具备的功能模块有：基本信息设置、图上登记、注销及管理、读者管理、借阅管理、综合信息查询、图书登记等。

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

Delphi 读写物理扇区——实模式， asm //以下汇编代码中，只有第一参数、第二参数、pFunc的值是需要改变的，其余都是固定的写法 　　 pushad 　　 push ebp //#2，保存ebp 　　 sub esp,$2c //#1，预留2c字节的栈空间 　　 push Int13Reg16 //第一参数，如果没有参数，则不用push 　　 //第二参数，如果没有参数，则不用push 　　 mov edx, pFunc //函数地址 　　 mov ebp,esp // 　　 add ebp,$2c //ebp校正，是作者分析QT_Thunk时发现的 　　 call QT_Thunk 　　 add esp,$2c //#1，释放上面预留的2c字节的栈空间 　　 pop ebp //#2，恢复ebp 　　 mov byte ptr @result,al 　　 popad 　　 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 数列的排列组合一例，演示0~N位数的任意组合，组合的数字在0~5之间，需要输入1~6整数，排列结果会显示在文本框组件中。要点代码如下： 　　ssList := TStringList.Create; 　　try 　　 if (nBase < 1) then 　　 begin 　　 end 　　 else 　　 begin 　　 if (sList.Count = 0) then 　　 begin 　　 for nIdx := 0 to num-1 do 　　 ssList.Add(a[nIdx]); 　　 end 　　 else 　　 begin 　　 for nIdx := 0 to num-1 do 　　 for nSidx := 0 to sList.Count-1 do 　　 if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then 　　 ssList.Add(a[nIdx]+sList.Strings[nSidx]); 　　 end; 　　 Combine(nBase-1, ssList); 　　 end; 　　 if ssList.Count > 0 then 　　 begin 　　 sList.Clear; 　　 sList.Text := ssList.Text;sslist.Count 　　 end; 　　finally 　　 ssList.Free; 　　end;