游子日月长

VCL编写笔记整理

摘要： unit hzqEdit1; interface uses SysUtils, Classes, Controls, StdCtrls; type TEditDataType = (dtpString, dtpInteger, dtpFloat); ThzqEdit = class(TEdit) p 阅读全文

posted @ 2017-01-20 22:06 游子日月长阅读(188) 评论(0) 推荐(0) 编辑

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 游子日月长阅读(291) 评论(0) 推荐(0) 编辑

使用 ImageEnView 给图片加水印,及建缩略图

摘要：摘要: 使用 ImageEnView 给图片加水印,及建缩略图  {Power by hzqghost@21cn.com}unit CutWater;interfaceuses Math,imageenview, SysUtils, Classes, Graphics;proc 阅读全文

posted @ 2017-01-20 22:02 游子日月长阅读(483) 评论(0) 推荐(0) 编辑

Delphi下MSMQ（Mircosoft Message Queue）实例（私有队列）

摘要：网上关于消息队列技术原理说明的详细文档很多，但涉及到Delphi的具体实现很少，这是我从网上找了一上午的资料，自己整合和尝试的能运行的程序。打开控制面板->程序->添加组件，添加消息队列打开控制面板->计算机管理->服务与应用程序->消息队列，添加私有有消息Test. 在Delphi中添加MSM 阅读全文

posted @ 2017-01-20 21:57 游子日月长阅读(363) 评论(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 游子日月长阅读(191) 评论(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 游子日月长阅读(166) 评论(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 游子日月长阅读(223) 评论(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 游子日月长阅读(318) 评论(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 游子日月长阅读(300) 评论(0) 推荐(0) 编辑

摘要： 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 游子日月长阅读(525) 评论(0) 推荐(0) 编辑

导航

公告