说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中实现类似VB中的控件数组。

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中实现类似VB中的控件数组。

在Delphi中实现不同风格的SPEEDBUTTON。

在许多常用的软件(如WORD)中经常会遇到这样的快捷按钮(SPEEDBUTTON):若干个按钮做为一组来工作,同一时刻只能有一个按钮处于按下状态,比如WORD中的四个段落排版按钮。在Delphi中实现这样的功能只需要简单的一个步骤:设置若干个SPEEDBUTTON按钮的GROUPINDEX属性设置为同一个大于0的整数。

还有另外一种快捷按钮,我们称之为开关按钮,比如WORD中的“粗体”按钮,这种按钮每按一次状态就改变一次。在Delphi中实现这种按钮只需要两步设置:首先设置按钮的GROUPINDEX属性为一个大于0的整数,第二步设置ALLOWALLUP属性为TRUE。这样就完成了开关按钮的建立。

通过调用API确定MEMO控件中的当前行和列。

你可以调用WINDOWSAPI中的EM—LINEFROMCHAR和EM—LINEINDEX函数来确定MEMO控件中的当前行和列,具体调用的过程见下面的过程。

varLineNum:longint;

CharsBeforeLine:longint;

begin

LineNumΚSendMessage(Memo1.Handle,EM—LINEFROMCHAR,Memo1.SelStart,0);

CharsBeforeLine:=SendMessage(Memo1.Handle,EM—LINEINDEX,LineNum,0);

Label1.Caption:=′Line′+IntToStr(LineNum+1)

Lab

el2.Caption:=′Position′+IntToStr((Memo1.SelStart-CharsBeforeLine)+1);

end;

动态产生构件并相应事件

方法:

var

MyBu : TBUTTON;

begin

MyBu:=TBUTTON.Create(Form1);

MyBu.Parent:=Form1;

MyBu.Left:=10;

MyBu.Top:=10;

MyBu.OnClick:=MyOnClick;

MyBu.Show;

end;

注:MyOnClick为响应的事件过程.

几个构件共用一段代码

方法:

(Sender as TStringGrid).Width:=5;

注:这样将发送消息的构件强制类型转换成TStringGrid类

并改变它的属性.

回车替Tab下移控件

需要用回车键代替TAB键下移一个控件时,把KeyPress设为True,加入下列代码拦截击键:

Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);

Begin

if key=#13 then { 判断是按执行键}

if not (ActiveControl is TDbgrid) Then

Begin { 不是在TDbgrid控件内}

key:=#0;

perform(WM_NEXTDLGCTL

0

0);{移动到下一个控件}

end else

if (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}

begin

With TDbgrid(ActiveControl) Do

if Selectedindex<(fieldcount-1) then

Selectedindex:=Selectedindex+1{ 移动到下一字段}

else Selectedindex:=0;

end;

End;

分行提示

无论你什么时候要分行显示的时候,只需要在字符串中间加入“#13”就可以了,但在属性框里却不能这么干,以下就几种控件加以说明:

begin

Label1.caption :='垂'+#13+'直'+#13+'显'+#13+'示';

Edit1.Hint :='输入框说明:'+#13+'文本的输入';

end;

运行时生成控件

㈠、运行时生成可视控件:以下以TEdit 控件为例

1.在Form的Public中定义TEdit控件

Edit1:TEdit;

2.在需要生成的地方加入以下代码:

Edit1:=TEdit.Create(Self);

Edit1.Parent:=Form1;

Edit1.Left ?:=20;

Edit1.Top :=20;

Edit1.Text :='Edit1 Text';

3.使用完毕后,释放分配的资源

if? Assigned(Edit1) then Edit1.Free; ?

㈡、运行时生成非可视控件:以下以 TTimer控件为例

1.在Form的Public中定义TTimert控件

Timer1:TTimber;

2.在需要生成的地方加入以下代码:

Timer1:=TTimer.Create(Self);

Timer1.OnTimer:=YourAction;

YourAction是自己定义的OnTimer事件,使用

procedure TForm1.YourAction(Sender:TObject); 完成

3.使用完毕后,释放分配的资源

if? Assigned(Timer1) then Timer1.Free; ?

集聚MDCC 2015 免费展位第二波正式放出 【深入浅出Koa】入门知识,带你以现代化开发方式构建Web应用 升级到Node V4的七个理由 支持大量ES6特性 像写SQL一样编写Java数据应用 Swift 2.0实战:如何实现从非零下标遍历数组? 手把手教学:在iOS 8中使用Cocoapods 交互技术前沿与应用实战:MDCC虚拟现实专场议程揭晓 解密“攻城狮使用手册” 技术专家齐聚!MDCC 2015精彩日程全曝光 基于ActiveMQ的消息中间件系统 OneMM逻辑与物理架构设计详解 John Carmack大神亲操刀,为Oculus开发Netflix应用 React Native实战(二):Android的打包 独立游戏的成功秘诀:好设计才是王道 Swift 2.1的新变化 Apple TV实战:用TVML开发第一款tvOS应用 【SDCC讲师专访】阿里王晶昱:云时代的分布式数据库DRDS 硬件研发、嵌入式技术演进:MDCC IoT峰会日程揭晓 专访百度知道iOS团队负责人孙源:代码强迫症的死实践派 TIOBE 2015年10月编程语言排行榜:Ruby取代Objective-C进前十 【SDCC讲师专访】PingCAP联合创始人兼CEO刘奇:好的产品应开源,不闭门造车 【深入浅出Koa】常用工具分享 帮你降低编程难度 Relay: 全新的React数据获取框架 探索游戏开发面临的技术挑战——MDCC 2015游戏开发专场议程曝光 【SDCC讲师专访】易开发创始人潘俊勇:这些年我遇到的那些坑 【CTO讲堂】OpenStack行业实践和发展趋势探讨 万物互联,移动为先:MDCC 2015移动开发者大会盛大开幕! 【MDCC 2015】微软开发体验与平台事业合作部大中华区DX部门总经理Srikanth Raju:物联之上云+端 英雄会晚宴,Top开发者共聚“华山之巅” 【MDCC 2015】产品与设计专场(上):百度研究院、印象笔记等专家齐聚,以实例探讨如何打造好产品 【MDCC 2015】产品与设计专场(下):网易云音乐、在行、三节课、去哪儿网、野兽骑行大咖的产品之路 友盟:把数据用活 让开发者享受大数据红利 what????this is redhat6.0 如何看分析解释语句,,谢谢,,100分。 搜索的问题 vb中文件保存的原代码是怎样的? 请教各位高手以及愿意帮助我的各位前辈们! 请问报表设计器是怎么用的? 请教!delphi4 是否可在windows xp 环境下安装? 创建EJB Test Client 的问题》???怪啊 用CSS可以改变table中的字体颜色吗? 在delphi中怎样注册一个ocx控件,用代码如何实现!!! 如何找到文件? 請問怎樣知道SQLServer里IMAGE字段是否為空 救命啊!开发gis系统需不需要后台数据库 散装赛扬III配的原装Intel风扇的问题 急!!!百分求解window api中CHOOSEFONT与LOGFONT关系。 问一个vc中CRecordset定义问题 怎么通过程序改变REMOTEDATACTL的属性? 请问如何在JSP中实现邮件的收发?(涉及到密码验证的问题)我已经郁闷很久了! 如何得到另一个进程中的线程正在使用的tcp/ip端口? **好像有一个网址可以自由上传30M以下的软件,请问有谁知道这个网址?????** Unicode的问题???? db 库文件被破坏,请教高手? 本人刚接触vc,紧急求助! 请问,如何将简体字的网页,转换为繁体字的网页? 请教vb3秒精确定时问题? 哪位大侠能在今天内急救!!关于asp.net的数据验证和数组传送问题 lihonggen0(李洪根,用VB,标准答案来了) 密码被人盗用 在Delphi中用ADO怎样连接Excel表 x++等的问题。 当一个数据库数据更新后如何通知所有连接到此数据库的用户来更新自己? 一个有趣的问题 奉献100, 现在手头有个程序,关于附件上传! 如何判断A字符串中是否包含B字串? 做个类似的邮件发送程序 快快就我 怎样同时新增主从两张表的数据? vb.Net中的几种类型集合中,那种适合于用Index和Key来索引?我怎么觉得.Net的CollectionBase还没有vb6的Collection好使? 为亚洲雪耻,为中国队加油!! 紧急求助:在那儿可以找到关于字体文件的文件格式!!! 测试adoconnection是否已关闭 请教各位大侠! 关于表设了密码的问题 开始了吗?开始了吗?北京的高程考试报名开始了吗? 如何自定义数据类型? 图片显示不了了 java 线程,对当前线程(非主线程)调用sleep,为什么主线程(窗口)也没反应了 各位大虾帮忙呀,哪位把下面的文字翻译成准确的英文,200分相赠!!!决不食言!!! 请教:PHP下的事件处理方法 如何通过ASCII码区分全角与半角字符?急! 触发器???:(拜托各位大哥大姐,大叔大伯! 字符串替换函数是什么? 蒸馏时为什么要弃去开始馏出的部分液体? 为什么正循环从高温热源吸取热量(热学问题) 求大气压强的实验求一个可以证明大气压存在的实验,马德堡半球.托里拆利不要,要教科书上没有的前两个老师早讲过了,在新颖点的,链接也不要紧 制取蒸馏水后,为什么要先移走酒精灯,在制取前,为什么要先弃去刚开始蒸馏出的部分液体? 滁菊作文怎么写 卡诺循环怎么对外界做功了? 液压系统中工进什么意思 吸附器属于什么品种的压力容器?设计压力2.2,设计温度60,壳程介质H2等. 卡诺循环,定温如何吸热和放热工质吸热和放热不是要有温差吗?卡诺循环定温时,说它吸热就是吸热,放热就放热,没有温差,哪来动力?要是需要定温时,需要吸热的时候,系统内外温度相同,它没反 什么叫做中工?我在一些理发店外面的招聘启示上写着招聘中工,到底什么是中工- - 海藻中有丰富的碘,2NaI+Cl2═2NaCl+I2是实验室从海藻中提取碘单质的反应方程式.还原剂是我觉得是氯气,但是化合价变高的才是还原剂啊,我纠结了。 等温吸热 是什么意思?体积怎么变? 铜耐酸碱么,表冷器的铜管,通过弱酸水,腐蚀掉了.请问, Cl2与I2能反应吗?(碘溶液中通入氯气)注:氧化性 Cl2> IO3->I2 为什么这样反应:5 Cl2+I2+6H2O=12H+ +2 IO3-+10Cl- 卡诺循环每个步骤的能量转化是什么样的,一,等温膨胀是不是温度不变,内能不变啊 请问汽车制动液会腐蚀铜管吗 我只知道对刹车系统的金属和非金属材料没有腐蚀性,但刹车系统的金属不是铜,到底汽车制动液会不会腐蚀铜? 海藻中含有丰富的碘,"2NaI+Cl2═2NaCl+I2"是实验室从海藻中提取碘单质的反应方程式,海藻中有丰富的碘,2NaI+Cl2═2NaCl+I2是实验室从海藻中提取碘单质的反应方程式.还原剂是 当合成氨的反应达到化学平衡时,为什么氮气的转化率达到最大值? 防止铜管腐蚀的方法有哪些? 氦气检漏仪的工作原理真空镀膜检测腔体漏气 等温等容,合成氨反应达平衡后,向体系中加入氨气,则氮气的转化率如何变化?请化学平衡常数来解答. 请问能不能把化学化工物性数据手册发给我?无机跟有机的都要.. 直径2米气球需要多少氦气/氦气才可以升空?1.假设球的重量为5KG,2.球体的体积公式?3.氦气/氦气的密度?4.另外球体表面积公式?5.要多少氦气,氢气? 铜离子和碘离子反应为什么生成CUI不生成CU2I铜离子和碘离子反应为什么生成CUI不生成CUI2 有让二价铜离子和碘离子反应的方程式 我写的是生成碘化铜的~不对 答案是CUI 为什么生成CUI不生成CUI 亚硫酸钠会腐蚀铜管? 数控车床车圆弧时要保证圆弧的精度,但是刀具的刀尖有R角,其中涉及到对刀和半径补偿的问题,求高手帮我. “丑菊” 这篇文章你懂得了什么? 制取蒸馏水时,为什么要弃去开始馏出的部分液体 什么是单位质量内内能相同?详细些.我才初三,不是很懂,但我看见有蛮多题都有提到,到底是什么意思 我爱菊花的作文,模仿“丑菊” 实验室制取蒸馏水为什么弃去开始的部分液体实验室制取蒸馏水时,加热烧杯,弃去开始流出的部分液体,再用锥形瓶收集,这是为什么?为什么开始收集的不纯?其中混有什么? 谁能帮我写一篇作文叫《如菊的-----》 文章是从哪几个方面来描写丑菊的? 0.5NA个氯气分子的物质的量的多少?11.2L 02所含的原子数目为NA这句话对吗?0.5MOL H20含有的原子数目为1.5NA对吗?18GH20含有的水分子数目为NA对吗? 一篇赏菊的作文开头怎么写? 丑菊这篇短文概括起来说作者从哪三个方面来写丑菊 实验室里洗净烧瓶之后为什么要用蒸馏水润洗?不洗有什么影响? 卡诺循环必须是先等温后绝热的吗? 什么是逆卡诺循环?拜托各位大神 波程差的定义是什么? 丑菊这篇短文不仅写了,更使“我”懂得了什么 单级蒸汽压缩制冷机由__、__、__、__四个基本组成部分组成. 管程的定义 卡诺循环和绝热过程的选择题图片:有图的,但百度可能没显示出来那么快.要稍微等等,理想气体卡诺循环过程的两条绝热线下的面积大小(图中两条蓝线和横轴和图像围城的那个面积,注意这 汉语学:“鲜花儿”有几个语素 几个音节?“zhuang”的音素有几个?轻声 huar 算是一个音节吗 还是 分开hua er 算两个?自己有答案但不确定 希望得到专业解答 阀门安装前的试验强度试验和严密性试验的压力和持续时间是怎么规定的? 碘化钠和氯气离子方程式 请举例分析语素、词、音节、字四者的关系.请用实例分析,比如谁 是一个字一个语素一个词一个音节,这样子 这是我期末题目 阀门强度试验和严密性试验先做哪个? 氯气通入碘化钠中什么现象?现象好像是溶液颜色无色→黄色→棕红色→紫黑色→无色,但不知道每步为什么,谢 举例说明语素、词、汉字、音节的关系 阀门强度和严密试验先强度或是严密? 批发,零售机油,润滑油,防冻液怎样? 铝制水箱和铜质水箱焊接采用什么方法? 谁有化学化工物性数据手册请发给我呢,谢谢哦!~~mmtt0249@sina.com 防冻液是机油吗?我不知道防冻液是不是机油,有人给我回答一下呗 想弄个用来装含铁比较多的地下水的铁制水箱 如何使铁水箱不易生锈铁的表面已经涂上防锈漆最好能用阴极保护法来解决 具体的操作办法是什么 离子反应式 将1mol氯气通入溶有1mol溴化亚铁的溶液中:⑵向NaHSO4溶液中逐滴加入Ba(OH)2溶液至中性,在以上中性溶液中,继续滴加Ba(OH)2溶液,⑶向Ba(OH)2 溶液中逐滴加入NaHSO4溶液至恰好不再生成沉 若一个卡诺制冷机,从低热源吸收5840J,将像高温热源放出多少热量,外界做功多少 铝制的水箱破了一个小洞、用什么能补上呀?知道的帮帮忙
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘