VCL编写笔记整理
摘要：
unit hzqEdit1; interface uses SysUtils, Classes, Controls, StdCtrls; type TEditDataType = (dtpString, dtpInteger, dtpFloat); ThzqEdit = class(TEdit) p 阅读全文
posted @ 2017-01-20 22:06 游子日月长 阅读(191) 评论(0) 推荐(0)
2017年1月20日 #
Delphi操作Excel(Use Oel)
摘要：
Use ComObj: procedure TorderMore1.BitBtn2Click(Sender: TObject);var xlsFile:WideString; var ExcelApp: Variant;begin SaveDialog1.FileName:= MyQuery3.Fi 阅读全文
posted @ 2017-01-20 22:04 游子日月长 阅读(298) 评论(0) 推荐(0)
使用 ImageEnView 给图片加水印,及建缩略图
摘要：
摘要: 使用 ImageEnView 给图片加水印,及建缩略图 <!-- 正文 --> {Power by hzqghost@21cn.com}unit CutWater;interfaceuses Math,imageenview, SysUtils, Classes, Graphics;proc 阅读全文
posted @ 2017-01-20 22:02 游子日月长 阅读(497) 评论(0) 推荐(0)
Delphi下MSMQ（Mircosoft Message Queue）实例（私有队列）
摘要：
网上关于消息队列技术原理说明的详细文档很多，但涉及到Delphi的具体实现很少，这是我从网上找了一上午的资料，自己整合和尝试的能运行的程序。 打开控制面板->程序->添加组件，添加消息队列 打开控制面板->计算机管理->服务与应用程序->消息队列，添加私有有消息Test. 在Delphi中添加MSM 阅读全文
posted @ 2017-01-20 21:57 游子日月长 阅读(374) 评论(0) 推荐(0)
从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）
摘要：
function GetNBytesChar(s: Ansistring; n: Integer): string;var aStr: AnsiString; bStr: WideString;begin aStr := Copy(s, 1, n); bStr := aStr; if aStr = 阅读全文
posted @ 2017-01-20 21:56 游子日月长 阅读(198) 评论(0) 推荐(0)
tbytes 转 十六进制 string
摘要：
function Bytes2HexStr(buf: TBytes; len: Integer): AnsiString; begin SetLength(Result, len*2); BinToHex(@buf[0], PAnsiChar(Result), len); end; procedur 阅读全文
posted @ 2017-01-20 21:55 游子日月长 阅读(175) 评论(0) 推荐(0)
Delphi中拖动的方式来移动TPageControl的Tab
摘要：
procedure TMainForm.PageControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ; begin PageControl1.BeginDrag(Fal 阅读全文
posted @ 2017-01-20 21:53 游子日月长 阅读(242) 评论(0) 推荐(0)
Imageen 图像切割 （JpegLosslessTrans）
摘要：
procedure CutAFile(FileName: string; qry: TQuery);var i: Cardinal; FromStream, ToStream: TMemoryStream; SubFileName, Path, fName, MainName, ExtName: s 阅读全文
posted @ 2017-01-20 21:52 游子日月长 阅读(331) 评论(0) 推荐(0)
delphi TEdit透明
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ed 阅读全文
posted @ 2017-01-20 21:50 游子日月长 阅读(312) 评论(0) 推荐(0)
delphi 颜色转换函数总结
摘要：
unit UColor; interface uses windows, sysutils, classes, graphics; function HexToInt(Hexa: String): LongWord; function ColorToString(color: TColor): String; function WebColorToDelphiTColor(webco... 阅读全文
posted @ 2017-01-20 10:20 游子日月长 阅读(560) 评论(0) 推荐(0)
浙公网安备 33010602011771号