自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(8)
  • 资源 (1)
  • 收藏
  • 关注

翻译 delphi动态创建的TMSComm串口控件不起作用!

我是用Create动态创建的TMSComm然后将Comport和OnComm事件赋值将句柄赋给一个var 变量打开串口都很成功,而且访问串口的属性也都没有问题就是串口输入的时候没有任何反应.如果我直接将控件拖放到主界面就没有问题郁闷,搞不明白!!!!!   lxz3000("It"业小虾米) ( ) 信誉:

2006-11-07 09:23:00 2947

原创 delphi word技术融合

procedure TExprmResultDlg.PreviewExprmReport;var    Template, NewTemplate,DocumentType,OleVisible:oleVariant;    strTitle_Prior,strText_Prior,strTitle_Last,strText_Last:String;begin    Try        Word

2006-06-24 13:56:00 1277

原创 IP地址输入框制作

unit IpInput;interfaceuses  Windows,Dialogs,SysUtils,Classes,Graphics,Forms,Controls,StdCtrls,Buttons,ExtCtrls,            ComCtrls,Commctrl;type  TInputIpFrm = class(TForm)    SpdBfdftnCancle:

2006-06-20 11:34:00 1660

翻译 UnicodeToGB 字符转换函数

function UnicodeToGB(const wsUnicode: WideString): string;var    iLen: Integer; //需要转换的字符数    sTmp: string;begin    //计算转换的字符数    iLen := WideCharToMultiByte (936, 0, PWideChar(wsUnicode), -1, nil, 0,

2006-06-20 11:30:00 1097

原创 Delphi 图形处理 技巧

1。得到输出字符串在 屏幕上的象素数。BOOL GetTextExtentPoint32(    HDC hdc, // handle of device context     LPCTSTR lpString, // address of text string    int cbString, // number of characters in string    LPSIZE lpS

2006-05-16 08:57:00 1384

转载 编译delphi库文件

你如果更改了源代码后,必须对源代码进行编译,才能进行下面的操作。比如你更改了TStringGrid控件,该控件所在的unit是 Grids.pas,如果你想使用更改后的TStringGrid的话,必须重新编译该文件(Grids.pas),并把编译的结果:Grids.dcu覆盖原来delphi的Grids.dcu。一般并不建议这么做。最好的办法是重新写一个控件,该控件从TCustomGrid继承,该

2006-04-30 08:44:00 1453

转载 #ifdef的用法

#ifdef的用法灵活使用#ifdef指示符,我们可以区隔一些与特定头文件、程序库和其他文件版本有关的代码。代码举例:新建define.cpp文件#include "iostream.h"int main(){#ifdef DEBUG       cout#endif       return 0;}运行结果为:Press any key to continue  改写代码如下

2006-04-17 17:19:00 2047

原创 delphi 在动态链接库中访问数据库

在动态链接库中访问数据库时一定要在数据模板中加入以下语句:Initialization    CoInitialize(nil);Finalization    CoUninitialize; 不过还要引用单元:Activex并且数据模板的生成要放在 导出函数里面,否则会产生错误;生成格式:TCustomerData1为数据模板类if  CustomerData1 =

2006-04-14 11:24:00 1269

ListViewSort

5 会自动排序的listview 并显示 排序 方向箭头 ^_^ 不用写 一行代码 可以直接使用的了 , 并代用源代码 vs2005,下 通过

2008-11-15

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除