C++爱好者 - Victor 串口控件自定义串口设置演示程序
欢迎访问编程爱好者网站
Victor 串口 VCL 控件──自定义串口设置演示程序(多语言版)
这是控件内部使用的对话框，代码没有做修改，在
1.3.3.4 以后版本的控件已经含有这个例子程序。
由于程序是多语言自动识别的，可能程序略显复杂一些。
这个程序里面使用了内码转换，虽然源程序都是GBK码的汉字，但能够根据运行平台或设置进行汉字内码转换(GBK&=&BIG5)
☆可以参照这个程序做串口设置程序，串口设置保存在与 .EXE 文件同名的 .CFG
☆可以参照这个程序做多语言自动识别程序，支持简体中文、繁体中文、英文。
①这个对话框里面使用了 TCommSerialPortInfo 类，使用了这个类的 PortList 属性。
PortList-&Count 是电脑里面安装的串口数 (以安装的驱动程序为准，例如一个内置调制解调器也是一个串口)
spi.PortList-&Strings[i] 字符串，第i个串口的串口号(i从0开始)，例如 &COM2&
②语言的设置，这个方法可控制整个 Victor 控件的语言，包括这个对话框和抛出的异常错误提示信息
控件是自动检测语言的，一般不需要设置。如果你想强行控制语言，可以用：
#include &yb_base.h& //在串口控件里面包含的一个头文件
AppLang.DetectType = TAppLang::dtA //自动检测语言(默认)
AppLang.LangType = TAppLang::ltG //使用GBK简体中文
AppLang.LangType = TAppLang::ltBig5; //使用BIG5繁体中文
AppLang.LangType = TAppLang::ltA //使用ANSI美国英语
执行这个代码之后，所有 Victor 的界面和提示都改成相应的语言了。
更详细的信息请参考这个演示程序的源程序。
(多语言版)，318,664 字节 (下载
1.3.3.4 以后版本的控件已经含有这个例子程序了, 不需要单独下载了。
编程爱好者 -- Victor Chen 的个人主页
本站永久域名:
本站可以互相交换相关内容网站的链接
本站控件技术支持请到留言
本站拒绝任何毫无相关的广告和链接在线程中创建自定义类的实例时报 abstract error
Tobj & = & class(Tobject) &
& private &
& fname: &
& procedure & &
& public &
& property & name & read & fname & write & setname & ; &
& tthreadprocess & = & class(tthread) &
& private &
& protected &
& procedure & execute & ; &
& procedure & tthreadprocess. &
& obj & := & Tobj.create &
& //这句报错 & &abstract & error & & &
Delphi教程:
Delphi控件:本帖最后由 huboy 于
21:27:18 编辑
控件功能：继承于TChart&，同时添加了sDateEdit,sButton&2个控件在面板上，现在的目的是Publish&一个事件&OnButtonClick,就是点击了Button的效果。相关代码如下：
&&TyHistoryLineChart&=&class(TChart)
&&&&FDataEdit:TsDateE
&&&&FButton:TB
&&&&FOnButtonClick:&&&TNotifyE
&&protected
&&&&constructor&Create(AOwner:TComponent);
&&&&destructor&D
&&published
&&&&property&OnButtonClick:&TNotifyEvent&&&read&&&FOnButtonClick&&&write&FOnButtonC
constructor&TyHistoryLineChart.Create(AOwner:TComponent);
&&&//&Create(AOwner);
&&View3D&:=&F
&&BevelOuter&:=&bvN
&&Title.Text.C
&&Title.Text.Add('1212121');
&&Title.Top&:=&30&;&
&&Title.Alignment&:=&taC
&&MarginUnits&:=&muPixels&;&
&&MarginTop&:=&60;&&&&
&&MarginRight&:=&10&;
&&Legend.Visible&:=&F
&&FDataEdit&:=&TsDateEdit.Create(nil);
&&FDataEdit.Parent&:=&
&&FDataEdit.Top&:=&3;
&&FDataEdit.Left&:=&3;
&&FDataEdit.Height&:=&25;
&&FDataEdit.Width&:=&90;
&&FDataEdit.Text&:=&FormatDateTime('yyyy-mm-dd',Now);
&&FButton&:=&TButton.Create(nil);
&&FButton.Parent&:=&
&&FButton.Top&:=&3;
&&FButton.Left&:=&3&+&90&+&3;
&&FButton.Height&:=&25;
&&FButton.Width&:=&65;
&&FButton.Caption&:=&'';
&&FButton.OnClick&:=&FOnButtonC
destructor&TyHistoryLineChart.D
&&FDataEdit.F
&&FButton.F
但是很显然，目的没成功。还有，如此自定义的某些属性无法设置比如Cursor等，不知道是否TChart的原因。
回复讨论(解决方案)
问题解决了。代码附上吧。代码未经整理，将就着看吧。
只能说一句：DELPHI本身的代码真实博大精深（以下代码完全抄袭自DBNavigator）。&&
楼下的继续来接分吧。
&&EBtnClick&=&procedure&(Sender:&TO&Button:&TButton)&of&
&&TyHistoryLineChart&=&class(TChart)
&&&&FDataEdit:TsDateE
&&&&FButton:TB
&&&&FOnBtnClick:&EBtnC
&&&&procedure&ClickHandler(Sender:&TObject);
&&protected
&&&&constructor&Create(AOwner:TComponent);
&&&&destructor&D
&&&&//procedure&&&P&&&
&&&&procedure&&&C&&&
&&&&procedure&BtnClick(Index:&TButton);&
&&published
&&&&property&OnClick:&EBtnClick&read&FOnBtnClick&write&FOnBtnC
constructor&TyHistoryLineChart.Create(AOwner:TComponent);
&&t:TLineS
&&&//&Create(AOwner);
&&FDataEdit&:=&TsDateEdit.Create(nil);
&&FDataEdit.Parent&:=&
&&FDataEdit.Top&:=&3;
&&FDataEdit.Left&:=&3;
&&FDataEdit.Height&:=&25;
&&FDataEdit.Width&:=&90;
&&FDataEdit.Text&:=&FormatDateTime('yyyy-mm-dd',Now);
&&FButton&:=&TButton.Create(nil);
&&FButton.Parent&:=&
&&FButton.Top&:=&3;
&&FButton.Left&:=&3&+&90&+&3;
&&FButton.Height&:=&25;
&&FButton.Width&:=&65;
&&FButton.OnClick&:=&ClickH
destructor&TyHistoryLineChart.D
&&FDataEdit.F
&&FButton.F
procedure&TyHistoryLineChart.ClickHandler(Sender:&TObject);
&&if&Sender.ClassName&=&'TButton'&then&BtnClick(TButton(Sender));&
procedure&TyHistoryLineChart.BtnClick(Index:&TButton);
&&if&not&(csDesigning&in&ComponentState)&and&Assigned(FOnBtnClick)&then
&&&&FOnBtnClick(Self,&Index);
不知道有没大侠在初始代码基础上完成，感觉应该是消息到事件的转换有问题，但是不知道如何弄，不胜感激。。
这分先接了再看
我不明白你这个是干嘛的,&向Chart里塞2个控件,&什么目的啊,&你把用途说出来,&我觉得这样做你的button都没干什么啊
事件不响应不是搞定了吗，还有啥问题...
有时候没头绪的时候，参考一下源码写法，基本就能写出来了
我不明白你这个是干嘛的,&向Chart里塞2个控件,&什么目的啊,&你把用途说出来,&我觉得这样做你的button都没干什么啊
目的就是将Button的Click事件Publish，，看我后面给的代码。
如果是这样的话,&你的功能不是已经实现了吗,&我指的是这样做有什么意义.&把几个控件合成一下?&但是几个控件我没看到他们之间有什么关联性VCL组件开发及应用
请教网页上打开自定义格式文件的控件原理
大家一定试过在直接在网页上打开pdf格式文件，进行阅读和操作。这个功能是&ActiveX&控件吗？
跪求大牛指点下&delphi&下开发类似pdf的&自定义格式文件的解析浏览功能，不甚感激！
如有类似代码参考就更好了！&分不够可以再加！
楼主留个邮箱吧。我这有例子，不知道是不是你要的。
看看再说吧
多谢~邮箱已发给你
引用&1&楼&lzg827&的回复:是Activex
楼主留个邮箱吧。我这有例子，不知道是不是你要的。
看看再说吧
我大致看了一下，lzg827兄发的好像是IE插件的demo，我要的是那种可以直接在页面里面浏览文件，
就比如pdf，当这个格式刚出来的时候，web浏览器肯定是无法识别的，只有装了adobe的软件之后，
才能在web页面里直接查看pdf文件。
我要的就是这个功能，可以查看自定义格式的文件。
自已自定义格式&
可参考delphi&自带的ini格式&ini文件的读写&&自已参考的开发个控件&
。。。任务语言都行，求思路
任何语言都行，求思路
求推荐&ActiveX&开发教程。。
换成别的语言就不一定是ACTIVEX控件了。需要另外处理。比如JAVA
要用ActiveX开发难度太，这方面资料确实少的可怜！
回复
即使是一小步也想与你分享