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

控件使用技巧-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
控件使用技巧-Delphi资料

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

你可以通过设置一组相应控件的TAG属性来实现这一功能。首先在窗体中放置3个BUTTON控件,然后分别设置这三个控件的TAG属性为1、2、3。接下来双击任意一个按钮,

在其代码部分输入如下代码:

procedureTForm1.Button1Click(Sender:TObject);

varcap:string;

begin

caseTButton(sender).Tagof

1:ShowMessage(′1stButtonPressed′);

2:ShowMessage(′2ndButtonPressed′);

3:ShowMessage(′3rdButtonPressed′);

end;

end;

最后在其他两个按钮的ONCLICK事件中选择已经编好的代码。这样一来就可以实现以上功能了。

在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; ?

2013年Q4全球PC出货量同比下滑6.9% 已连续下滑七个季度 一周消息树:2013年十大产品、图书、公司盘点 专访Wunderlist主设计师Jan Martin:永远不要盲目跟风流行趋势 研发周报:超实用的JavaScript技巧及最佳实践 2013最吃香的技能:Java称霸、Android势头正猛 移动周报:最火原型设计工具盘点 “京东电商云”起航,零售企业及品牌商是重点 教育乃立国之本:教育类开源项目大汇集 Hugo Barra首度谈离开谷歌后在中国工作的感受 对中国赞不绝口 母婴行业最早试水者 优谈宝宝借助轻应用全面布局移动产品线 腾讯云平台部总经理纪顺友:微云将彻底迈过文件传输的门槛 豌豆“荚”油!B轮融资1.2亿美元的豌豆荚 2013年终盘点:10款最精巧的硬件开发板 SquareWear:可替代Lilypad Arduino的开发板 开放数据:2014年最热门的竞争领域 IE11虚拟机免费面向广大开发者 九城搭建的一个以Hadoop为基础的大数据平台 Windows 8复杂性的代价到底有多大? 在发布前,第一代iPhone其实并不完善 市场占有率调查:iOS 7秒杀Android 4.4 AWS会赢、OpenStack会消亡、Connected Cars可防僵尸攻击 谷歌以32亿美金收购iPod之父的创业公司Nest 物联网时代来临 微软2014,有你期待的吗? 映趣科技发布inWatch Z/inWatch X 后者采用全彩透明柔性屏 程序员没有天才:暴风影音首席架构师鲍金龙访谈 开放式创新改变世界——OpenStack生态系统将重新洗牌 Java 8最终发布日期敲定,即使有bug也要发布 Meteor PK Django,谁更适合开发实时Web应用? 学编程就像选家具:去宜家还是从种树开始? 前车之鉴 十二个年度最差设计网站汇集 冷暖交替,2014年编程兴衰趋势预测 怎样把Image中的图像存入剪切板?在线等! 菜鸟散分,chart问题,UP有分 用ASP如何在access中删除和添加数据(在线等待) 从一个表里进行查询,查询结果有多条记录,如何我只想要其中的某一条,请问如何取出。 请问:怎样编程来来虚拟网卡? .net目前是什么版本?在哪可以下载到新的安装盘?回答有效100分! 各位,一个重要的问题关于doc.send(false)问题(急!!) 请问:怎样编程来来虚拟网卡? WAP中如何读取手机号码?高分相送!马上给分! 有什么办法可以知道我的共享盘是什么时候创立的,并且知道人家访问过我的共享盘中的哪些文件 答题,大家帮我看看怎么让这个session的改变在页面上显示出来~~~~~~~~~~~~~~~~~~(开始写错了~~) 请教各位DX:关于iframe中显示图片的问题 xp的桌面问题 急!!注册数据库的问题 IBM软件清库存(大优惠) linux 9.0 安装后无法启动,请帮助 请问delphi怎么读取xml文件中的内容? IBM软件清库存(大优惠) 〉〉〉〉〉〉〉〉求一份对旧系统进行分析、整合、优化的文档 又是闪烁,头大! 简单问题,请紧急指导.(在线) help help : fortran + dll = ? 奇怪的现象:判断不了SQL sum()查询结果!!! 2003高考试题 设置访问表命令:“access-list 2 permit 10.0.0.0 0.0.0.255”中10.0.0.0 和 0.0.0.255分别指什么? 请问谁知道这是什么缘故啊? 如何计算cpu和memory的一般的使用上限 在delphi中使用什么报表控件打印的报表效果较好 谁知道db或dbf头文件的格式? 急急 NMFtp中我想从ftp服务器下载指定文件扩展名的文件,该怎么办? 初始化页面的时候,如何使TextMode="Password"的asp:textbox有默认值显示? IBM软件清库存(大优惠) 又是可恶的乱码问题 struts与数据库!在线等待! 如何开发asp.net程序(基于vb) vc++的链接错误 如何用程序动态的获得activex控件的方法属性事件信息 请教:使用web.xml做资源约束时如何由自己的程序来做用户验证 请问:怎样编程来来虚拟网卡? 急!创建LOOKUP的问题 如何计算cpu和memory的一般的使用上限 新问题请教! 老问题:从Excel文件里把数据导入导数据库中 有汇编玩的非常牛的人吗??? 字符串操作的简单问题 学习J2EE需要装什么软件? >>有关记录的问题??<< 请高手指教:出现“ORA12663:服务器未提供客户机要求的服务”问题,怎么解决? 大侠救我! 动态sql问题请教,谢谢 填充combobox的问题 Green Light(Radio Edit)歌词谁有阿.我没钱了加不了悬赏了.麻烦好心人告诉下哈. 纸上得来终觉浅,绝知此事要躬行的意思快 《童年》中精彩片段精彩片段中要有外祖父 最好有外祖父的性格特点外祖父要在这个精彩片段中,要有人物描写,人物性格特点有没有染坊失火这个片段还有娜塔莉亚舅母难产死了这个片段的 If your watch is a quartz or a sel-fwinding one,there will be no such trable. 翻译 纸上得来终觉浅,绝知此事要躬行是什么意思? 英文单词S开头的Forever S_____ You 都可以填什么?要所有的.最好是正面的词不要贬义词 I'm going to ( )the radio station.yon must ( )the red light.A.closes down B.look out for C.look out of D.take you around E.the end of F.would like to 填空并翻译 《纸上来得终觉浅,绝知此事要躬行》的意思 童年 的精彩片段400字的 均值和方差全都是大于等于0的吗 如何翻译这句英文?用比较正式的语气 “Such activity will be billable to you.”Such activity will be billable to you.关键这个billable在这里是什么意思?是可以开账单?还是需要收费? 纸上得来终觉浅,绝知此事要躬行的含义是什么? avis租车怎么样 什么是激素耐药? “卫鞅”指的是 Amon avis怎么读啊?我不会说英语,这个是一个衣服的牌子来的~如果有人知道怎么读能用汉字帮我写出来读法和Amon avis这个英语一样读法的吗? 高一语文必修1《劝学》《师说》《赤壁赋》中重要的名句,考试经常考的句子, 纸上得来终觉浅后一句 宜 和 怡 读起潮汕音 一样吗 下列句子用了什么修辞方法(借喻、倒喻、博喻) 花好比人的脸庞, 树好比人的姿态我这辈子只是在生活的道上盲目的前冲,一时踹了一个泥潭,一时踏折一枝草花,只是这无目的的奔驰. 纸上得来终觉浅,下一句 pour A l'origine,je n'étais pas un enfant heureux什么意思 纸上得来终觉浅.下一句是? when your love back .feeling as a romantic story是什么意思,? Chaque jour est un jour calme et heureux 如题 纸上得来终觉浅的下一句? 姓王的“王”用英语怎么写? 就是拼音的wang么?如题、 英语翻译L'amour profond n'est pas facile.Soyez heureux. 纸上得来终觉浅下一句是什么? 怡的第四笔怎么念?快 La vie est comme un drame,mais je n'est pas le protagoniste de ce drame的意思是什么? 英语翻译我是在销售进口葡萄酒的,最近在一款法国葡萄酒瓶上看到d'après Yslaire Victor Hugo 我知道是雨果,但是这样接起来又是什么意思呢?Victor Hugo d'après Yslaire 我叫WANG MIAO,女生,想取一个和它读音相近的俏皮可爱的英文名字, 纸上得来终觉浅 绝知此事要躬行的意思 "纸上得来终觉浅,绝知此事要躬行"的意思纸上得来终觉浅,绝知此事要躬行问渠哪得清如许,为有源头活水来.世事洞明皆学问,人情练达即文章.千淘万漉虽辛苦,吹尽狂沙始到金.落红不是无情物 帮起一个英文名读音是 wang(2声)rui(3声) S开头的词和意思关于医生 有一道法语题目,是用tout,toute,tous,toutes改写句子,但有个句子,意思都看不明白,就不知道怎么改了Est-ce que vos amis sont venus? 有没有包含“明”和“轩”这两个字的诗词,最好是古文, 卫鞅变法成功的原因之一 用一个四字短语概括 滑轮比赛的分类,及中国的滑轮运动员介绍,还有自由式轮滑穿的鞋是什么样的? 高一语文诗说,劝学,赤壁赋三篇背诵部分是哪 执行下述两条指令后:Move BL,7FH ADD BL,58H OF=?,CF=?,ZF=?作为有符号数,运算结果是否正确?作为无符号数,运算结果是否正确?为什么? 求教一道法语题 Avant nous, aucun etranger ne s'etait aventure dans ce coin. 这句话什么意思啊Avant nous, aucun etranger ne s'etait aventure dans ce coin.A Personne n'etait jamais venu ici avant nousB Un seul etranger etait venu dans le 加里曼丹岛多火山的原因?为什么火山那么多?还有盛产咖啡的原因 2次函数1.已知二次函数y=-x*2+2x+3 1)自变量x在什么范围内,y随x的增大而增大?何时y随x的增大而减小?并求出函数的最大值和最小值.2)当x为何值时,y>0?何时y 1.在图10所示的装置中,A、B是动滑轮,C是定滑轮,D是轮轴,D的轮半径R=10厘米,轴半径r=5厘米,物重G=500牛顿,每个动滑轮重P=50牛顿.如果不计绳重和摩擦,各段绳的方向保持相平行,那么:(1)为把重物 辩论It's good for high school students to write books英文中文均可最好英文正方反方均可 初三2次函数社区内要建一片绿地,因地形所限,其形状为直角梯形,两边借用夹角为135度的两面墙,另外两边总长为60m的铁条花边.(1)求梯形的面积S和高x之间的函数关系式.(2)求梯形的高x的 修改病句(用修改符号在原句上修改) 1 当奥运圣火在中国大地传递时,让我们看到了无数感人的场面.2 在学校春游筹备会上,各相关部门交换了广泛的意见.3 家长不能过分溺爱自己的孩子,这 马来西亚有大约一半的领土位于加里曼丹岛上,那么马来西亚是岛国还是大陆国 初三2次函数 8m的篮球运动员在距蓝板4m处跳起投篮,球在运动员头上方0.25m处出手,球运行路线可以用y=-0.2x*x+3.5来描述,那么1)球能达到的最大高度是多少?2)球出手时,运动员跳离地面的高度是多 当奥运圣火在杭州传递时,让我们看到了无数感人的画面修改病句 write good paper 是什么意思 初三2次函数题已知抛物线y=x^2-(2k-1)x+4k-6与x轴交于原点异侧两点A(x1,0),B(x2,0),它的对称轴与X轴交于点N(x3,0),若 A,B两点键的距离小于6.⑴求K的取值范围⑵试判断,是否存在K值,使过点A和N能作圆 '学雷锋活动在中华大地实施'这句的病句修改 1945年加里曼丹岛有多少人口 纸上得来终觉浅,绝知此事要躬行. a bag of wind 世界首条横跨欧亚的海底隧道启用匈牙利央行下调基准利率至历史新低德媒:北京、上海、成都被美国列入监听港报:尼运河项目代表团悄悄访华澳大利亚国防部引发林火后愿“将功赎罪日刊:秘密外交或可助中日关系破冰由木荣司:安倍若得逞,受苦的是日本百阿联酋能源年会呼吁能源多元化日本投靠美国,难获对抗中国资本美众院听证窃听事件 国安局长称系分享欧洲多国遭风暴袭击 死亡人数已升至1以色列将在东耶路撒冷新建1500个犹美称法国西班牙自行实施电子窃听行动 日中学教师上课期间刻录色情片DVD向一架卡-52飞机在莫斯科坠毁 或为技调查:美国幼童使用移动设备已成为普遍美国有意叫停窃听盟国元首 部门“内讧欧洲风暴肆虐 高校推风暴命名项目收费韩外长:日本错误历史认知阻碍韩日关系日知名主播之子因盗窃被解雇 检方暂不奥巴马提名两名竞选支持者为美国驻外大嘉译|君不见,邓肯之“神”天上来,奔法国警方确认尼斯袭击事件卡车驾驶者身做重大决策前,一定要先经过这9步暴雨蓝色预警:江西安徽湖南等地有暴雨“以房养老”客户寥寥遭质疑 保监会:证监会发布上市公司股权激励管理办法证监会发布上市公司股权激励管理办法银川客运段“丝路驿站”系列品牌列车将证监会发布私募资管业务运作管理规定南通“问题眼用气体”受害患者共同状告证监会修订《期货投资者保障基金暂行办证监会落实“三证合一”登记制度改革工证监会下调中信、海通等7券商评级 方涉县举行京津冀蒙晋青少年“未来之星”“环太平洋-2016”演习:衡水舰对恐袭为何又“找上”法国?上半年拥堵水平北京排第五 全国最拥堵检方对周世锋等人提起公诉网曝京密引水渠野钓男子掌掴巡河小哥北京铁路局增开北京南至哈尔滨方向旅客央视确认百度4.37亿美元收购AC米
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘