- 浏览: 147758 次
- 性别:
- 来自: 洛阳
最新评论
-
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));
直觉告诉我应该在此处下个断点,下了之 ...