delphi 判断是否出现滚动条 if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) 0 then ShowMessage('Vertical scrollbar is visible!'); if (GetWindowl...
分类：
其他好文 时间：
2014-07-29 21:23:52
阅读次数：
337
字符串格式参数的日期比较函数我在NT Service里，使用delphi的CompareDate函数出错，我怀疑这个函数有bug，总是说我的参数多了''，所以没办法自己弄了一个！[delphi]view plaincopy{//功能：比较日期//参数：//a:比较的日期，格式(2013-07-23)...
分类：
其他好文 时间：
2014-07-29 21:18:02
阅读次数：
246
将窗体资源分装到DLL中并且调用用Delphi生成DLL并封装窗体的示例调用Dll里面的窗体
DLL文件 library Project2;{ Important note about DLL memory management: ...
将图片转换成字符 delphi的*.dfm文件
mht的文件 //------------------------------------------------------------------------------ //jpg转换为txt字符串 //JpegToText('C:\1.jpg'...
分类：
其他好文 时间：
2014-07-29 21:06:52
阅读次数：
245
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;//定义类型要与原函数一样function GetUserDefau...
分类：
其他好文 时间：
2014-07-29 21:04:32
阅读次数：
253
Borland Delphi 6.0 - 7.000509CB0 > $ 55 PUSH EBP00509CB1 . 8BEC MOV EBP,ESP00509CB3 . 83C4 EC ADD ESP,-1400509CB6 . 53 PUSH EBX00509CB7 . 56 PUSH ESI0...
分类：
其他好文 时间：
2014-07-29 20:59:02
阅读次数：
321
Dll的创建与调用 File ->New->Other->Dll Wizard
DLL的创建
//可以将本代码复制粘贴到项目中
library Project1; uses SysUtils, Classes, Windows, Forms; {$R *.res} function Min(x,y:...
分类：
其他好文 时间：
2014-07-29 20:58:32
阅读次数：
227
//Canvas 在Image控件中绘制文字procedure TForm1.Button1Click(Sender: TObject);beginimage1.Canvas.Font.Size:= 72; //设置文字大小image1.Canvas.TextOut(1,1,'Delphi'); /...
分类：
其他好文 时间：
2014-07-29 20:54:42
阅读次数：
187
TransparentColor:=true; TransparentColorValue:=clFuchsia; Color:= TransparentColorValue; BorderStyle:=bsNone;delphi 窗体透明http://hi.baidu.com/duduppp/it...
//Canvas.TextOut文字保存为图片//Delphi开发案例精选，使用TextOut在画布上画图procedure TForm1.Button1Click(Sender: TObject);varMy_Image:Timage;i:integer;begintryMy_Image:=Tim...
分类：
其他好文 时间：
2014-07-29 20:42:32
阅读次数：
227
