ylilike
- 浏览: 147591 次
- 性别:
- 来自: 洛阳
-
最新评论
-
zenmshuo：
很详细，要是包含FlexChart的用法就更好了
Delphi中Chart组件，Chart控件用法 -
Draps：
输入 00123 判定为数字输入 100.123判定为非数字 ...
Delphi 判断一个字符串是否为数字 -
ylilike：
GDGZWQZ 写道下列办法可实现对话框自动定时关闭：在程序中 ...
delphi中SendMessage使用说明 -
GDGZWQZ：
下列办法可实现对话框自动定时关闭：在程序中插入一个定时器，设置 ...
delphi中SendMessage使用说明 -
think3t：
写的很详细~
delphi中SendMessage使用说明
文章列表
开始 运行 输入
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer" /v "link" /d 00000000 /t REG_binary /f
确定
然后 开始运行 输入
cmd /c taskkill /f /im explorer.exe&&explorer.exe
确定
Delphi基本图像处理代码//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;
//前面要加几个pas单元 uses Registry,ShellApi, WinInet,ShlObj,ComObj; procedure DelRegCache; var reg:TRegistry; begin reg:=Tregistry.create; reg.RootKey:=HKEY_CURRENT_USER; reg.DeleteKey(’Software\Microsoft\Internet Explorer\TypedURLs’); reg.Free; end; function GetCookies ...
一、DateTime,Date,Time存储方式本质上也是以double来存储的。用整数部分表示日期，小数部分表示时间。可看我另外一篇“access 中“日期/时间”存储方式 ”
TDateTimePicker有上面三种属性。
二、TDateTimePicker的kind属性设置为dtkDate用 ...
webbrowser二次点击webb可以实现二次点击但是二次点击的来路为空。这里先说明一下为什么是没有来路的。二次点击的代码本质是2个内置浏览器webbrowser，webb1点击的网页的时候把新打开的网页地址赋值给webb2去打开。就相当于webb是从新打开了一个新的地址，来路当然是空的。下面的代码附上解决的办法。代码比较长 我把关键的地方标注一下var curUrl:string;///定义的地址变量implementation{$R *.dfm}procedure TForm1.EmbeddedWB1NewWindow3(ASender: TObject; var ppDisp: ID ...
//机内码 -> 汉字Function MacCode2Chinese(AiUniCode : Integer) : String;Varch, cl : Integer;Begin ch := AiUniCode Div 256; cl := AiUniCode Mod 256; Result := Chr(ch) + Chr(cl);end;//汉字 -> 机内码Function Chinese2MacCode(AiChinese : String) : Integer;Varch, cl : Integer;Begin ch := Ord(AiChinese[1]); ...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
proce ...
unit ChineseCharactersConvert;interfaceuses Classes, Windows;type TGBBIG5Convert = class(TObject) public class function BIG5ToGB(BIG5Str : String): AnsiString; class function GBToBIG5(GBStr : String): AnsiString; class function GBChs2Cht(GBStr: String): AnsiString; class function GBCht ...
var clp: TClipboard;begin clp := TClipboard.Create; try clp.AsText := '模拟键盘输入的值'; PostMessage(GetFocus,WM_PASTE,0,0); finally clp.Free; end;
procedure TForm1.FormCreate(Sender: TObject);
var
hCalc, h1: Cardinal;
begin
WinExec('calc', SW_SHOWNORMAL);//运行计算器
hCalc := Find ...
经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：
1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil
2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。
3。局部变量释放资源时，可以考虑用freeandnil()释放资源，这样效率会高些，能提高内存的利用率
4。
在对窗体操作时，单纯通过assigned(form1)判断窗体是否已经创建是不够的，因为如果窗体通过free
/release进 ...
用delphi2010调试一个以前的程序，因为以前的程序是delphi7下编写的，大家都知道delphi7下的用的是indy9，后面的主流版本都是用indy10啦。 所以以前用的Temp1 := UTF8Decode(Temp);
Temp1 := Utf8ToAnsi(Temp);
Temp1 := UTF8Decode(Temp);
Temp1 := UTF8Encode(Temp);
这类函数在2010下是不推荐使用的，而且不能把uft8转成decode. 得到的中文字符全是？？。
看来indy10的uft8处理有点麻烦。在这边我是用数据流的办法解决的：var
idht ...
var
wDoc:IHTMLDocument2;
wc:IHTMLWindow2;
Dispatch:IDispatch;
begin
//遍历emWb:TEmbeddedWB的Frames
if emWb <> nil then
begin
wDoc := ((emWb.Document as IHTMLDocument2));
if Assigned(wDoc) then
begin
for i=0 to wDoc.frams.length -1 do //遍历
...
前两年写“(POS打印机LPT1口)卡密打印工具”，现在还有人用，真是慰啊！有网友邮件反馈问题BUG，今天上来更新一下，加了字号调整功能。
打印核心代码：
程序界面如下：
功能介绍：
主要用于售点卡处，用POS机打印充值卡帐号密码。
增加批量复制功能：
如：
卡号 密码
K12332131,1212121
K12332132,7233129
K12332133,8263158
K12332134,9294124
像这种，你可以一次全部复制，点击程序卡号文本框右侧的“<-”按钮，一次性即可粘贴。
另外： ...
//函 数 名: IsDigit
//返 回 值: boolean
//日 期：2011-03-01
//参 数: String
//功 能: 判断一个字符串是否为数字
//作 者：liubin
//***************************************************************************
function IsDigit(S:String):Boolean; //变量S为要判断的字符串,返回true则正确
var
i,j:integer;
begin
Res ...
使用EmbeddedWB控件的时候，发现有一些错误完全无法用try..except去接，这些错误的提示并非是通过Raize抛出的，而是通过Windows消息传递而来，因此要解决此问题，必须从消息下手。
在EmbeddedWB.pas中，找到重写消息的方法，即TEmbeddedWB.FormWndProc()，其中的代码即是消息的接收，而看其他码，它正是处理了WM_ACTIVATE消息，即有对话框弹出时触发的消息。
即然出错信息也是对话框，那么从此消息跟入就不会有错，继续往下读代码，发现有一句
SetWindowText(Wnd, PChar(S));
直觉告诉我应该在此处下个断点，下了之 ...