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

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

【探秘ES6】系列专栏(六):解构赋值 《近匠》TestBird,专注的手游自动化云测试平台 【探秘ES6】系列专栏(八):JS的第七种基本类型Symbols 专访李林锋:我与Netty那些不得不说的事 手把手教学:巧用Core Data和RubyMotion开发iOS应用 《近匠》琥珀天气,精细化打磨征服Google Play 【CTO讲堂】人工智能到底能为我们带来什么? Linksys再度回归中国市场,主推智能路由 Windows 10:全平台战舰与移动化破冰——微软(中国)操作系统工程院院长谢育涛专访 专访友盟CEO叶谦:深挖海量终端用户数据的价值 七牛资深前端工程师马逸清:前端测试探索实践 实战iOS 9:开发者必须掌握的三种搜索API 腾讯Bugly干货分享:浅谈Swift在实际项目中的应用 【前端人生】ThoughtWorks黄峰达:利用横向扩展方式,快速学习前端新框架 这是前端最好的时代——论前端的“三化”建设 游戏引擎网络开发者的64做与不做(一):客户端方面 六问七牛CDN:打造融合CDN管理服务平台 《近匠》Wilddog野狗,跨平台的实时通信云服务 【CTO讲堂】招人不易留人更难——创业团队要闯哪些关? iOS UIView动画实践(四):过渡与伪3D动画 日程全公布|年度人工智能技术精英聚会 7月26-27相约北京 TypeScript 1.5发布,支持大量ES6新特性 快快快!27个提升效率的iOS开源库推荐 《近匠》Maxense,“云+传感”推动产业变革 【探秘ES6】系列专栏(九):使用Babel和Broccoli 2015年Postgres全球开发者大会参会总结 英特尔硬享公社启动“创意原型拍卖” 对接创意与商机 详解Swift 2.0(一):苹果做的25项改变 2015甲骨文数据库大会:回顾、感恩、展望,欲续写辉煌 Nokia进军VR领域:让人欢喜让人忧 2015中国人工智能大会在京成功召开 请问一个CString的问题 那个168查分台太可恶了 WIN98与WIN2000共享一个OFFICE??? 网络连接怎么检测 能把IE浏览器最大吗?俺指的是把右上最大按钮最大化? 怎么判断表单传送的整数中不能有字符,谢谢!!! 如何把我写好的说明书放到我VC++应用程序的帮助文件中? 求最容易理解,最容易上手的数据库书籍,各位老大请指教,谢谢!! 快!快快!!来拿分呀!!!!!!!!一个简单问题。 WIN98与WIN2000共享一个OFFICE 2000??? 在Servlet中如何使用JavaBean(调用其中的方法)?主要是格式!如果网上有这方面的资料也可以告诉我,我急用,不胜感激!40分送上!(只有这些了) 请问各位:怎样才能知道某一个进程所占用的cpu比例,mem大小? 请问在恢复sql 7.0一个数据库文件时,出现Error 3624:这是什么意思?? 关于程序员考试 哪位知道怎么一行一行地读取文本文件呀!!!! 谁知道的,来帮我一下——有关网页浏览计时的问题 如何将数字变为字符串格式化输出? Websphere下使用连接池的一些问题 TNMUDP问题:怎样才能知道RemoteHost连接失败 ? 算法请教,我要调整一副黑白数字图的浓度,我是用直方图的方法好呢,还是先转成HLS在转回来好?若都不对,应该怎么做? 如何 在ASP中用ping 一个小问题 请用javascript VC++6是98年才出来的,为什么没有最新的ADO原生驱动,而通过ODBC的话速度太慢; 多媒体 谁有MPEG-4的资料! 如何实现类似资源管理器的分隔条 我是菜鸟,请教各位GG,MM?????? 我的计算字段怎么老要计算,而且经常有死循环,到底该注意些什么,在哪里控制? 如何取消鼠标右键菜单和使shift功能键无效?(紧急) 一个非常非常简单的一个问题 如何安装Jbuilder 5.0 ? 多媒体技术 chr(176)有什么用? 如何将3DMAX图片在vb窗口中显示 各位大侠,怎样取得复合数据窗口里面的嵌套表的Label名。 一个关于访问数据库很菜的问题 请教小波分解与重构,模极大值算法。 哪儿能找到com.ms.xml.*包? 动态类型判别 是怎么实现的,谁有小型模拟代码? 让程序自启动都有哪几种方式呀!各位发表发表吧!!!! sqlserver恢复问题! 有关STL的文章! 很简单的问题,送份啦!!! 求一个字符在字符串中的位置!? ********DBGrid和ADO怎样连接********* 在JBuilder 5.0中,我打开一个单独的java文件,怎么编译和运行他?用命令行方式是可以的 简单问题,applet??? 都说抽象类不能实例化,可是请看下面例子:(请大虾们解释) 谁有Borland App Server 4.51 注册码? Oracle中的奇特问题 快告诉我,如何取本机的静态IP地址。 质量均为m的A,B两物块一起沿光滑的斜面下滑,则B对A的摩擦力 A.mgsinα B μmgcosα 已知 铁氧元素质量比为七比三 求这种物质化学式 思路) 质量是6t的汽车在地面上匀速行驶,汽车行驶时受到的阻力是汽车重力的0.01倍,求汽车牵引力?(g=10N/kg) 两个人要一直将质量m=1000kg的小车沿一较长的水平轨道推上长为L=5m,高h=1m的斜坡轨道顶端,小车在任何情况下所受的所有阻力恒为车重的0.12倍,两人的最大推力各为800N,两个人一直都用最大的 如题:少量在人体胃中帮助消化的物质的化学式是什么? 一辆4吨的汽车,在平直的公路上匀速行驶,受到的阻力为重力的0.02倍,求汽车的牵引力多大?如题 两个人要将质量M=1000kg的小车沿一小型铁轨推上长L=5m,高h=1m的斜坡顶端,如图所示.已知车在任何情况下所受的摩擦阻力恒为车重的0.12倍,两人能发挥的最大推力各为800N.在不允许使用别的工具 汽车在平直公路上行驶,在第1min内平均速度为5m/s,第2,3min内平均速度为6m/s,第4min内的平均速度为10m/s,第5min内的平均速度为13m/s,则汽车在这5min内的平均速度是__m/s ①、CaCO3+H2O+CO2→Ca(HCO3)2②、Ca(HCO3)2→CaCO3↓+H2O+CO2↑石钟乳、溶洞形成所对应的化学方程式到底哪个对应哪个啊?又分别是什么流水作用?一楼的亲,看下这个,我越看越糊涂了 两个人要将质量M=1000kg的一箱货物装进离地高1m的卡车车厢内,他们找到了一个长为5m的斜面,但是没有其他更多可借助的工具.假设货物在平地、斜面上所受的摩擦阻力恒为货物重力的0.12倍,两 沉思怎么造句?80字 溶洞里的钟乳石主要形成是靠什么力量 两个人要将质量M=1000KG的小车沿一小型铁轨推 化学式中各种组成部分是什么意思? 为什么在溶洞里石钟乳上和石笋上碳酸钙沉积而在地表是碳酸钙溶蚀呢?可是在石钟乳的下端和石笋的上端并没有水的堆积啊。 平衡摩擦力后,平衡摩擦力,小车在木板上的受力应有F+mgsinθ-μmgcosθ=ma,其中F为绳的拉力,θ为木板与水平面之间的倾角.能不能画图描述一下小车在木板上的受力分析,还有μmgcosθ是什么力 [化学]这些物质的化学式或组成成分是什么?明矾 胆矾 绿矾 碱石灰 天然气 漂白粉 铝热剂 大理石 小苏大 苏大 大苏大 石灰乳 生石灰 自然界的溶洞,钟乳石等的形成有关的方程式? 可是摩擦力不是F=uN么,车速为什么有和摩擦力有关了? 大便在人的身体什么位置 溶洞的钟乳石不断生长钟乳石是生物吗 天然气,液化气,与空气的最佳燃烧配比是多少,怎么计算的,是不是气压也会影响配比如果气压影响的话那在气压变化的情况下要怎么计算 大便的主要成分是什么?有人有做过专门性的研究吗? 什么是什么的伞造句小学一年级孩子的作业,实在想不出来了,要求造四句什么是什么的伞?先谢谢您了.要求造四句呢。最好是一种植物和一种动物,例:蘑菇是小白兔的伞。 天然气与空气如何配比使之爆炸 蛋鸡粪便有些什么主要成分 小学一年级,目光怎么造句? (两种方法解答)一辆质量为m=1000kg,速度为v0=10m/s,关闭发动机后在水平地面上滑行了距离L=5m后停了下来,试求汽车受到的阻力.两种方法. 婴儿大便如何来的?主要成分是哪些婴儿刚刚出生的时候,不吃饭却拉屎,那大便怎么这么多呢? 一架飞机五分之四小时飞行800千米,一辆小汽车三分之二行驶50千米,着两种交通工具每小时各种行驶多少千米 因参与人体新陈代谢而消耗的气体是_______(填化学式)谢谢了! 一辆汽车总质量为1150kg,以72km/h的速度匀速行驶10km,若汽车所受阻力为汽车重力的10%,每个轮胎与路面的接触面积为0.05m²(g取10N/kg)求汽车功率若该汽车热机的效率为25%,如果不考虑热机其 用:我最喜欢( ),这里( ),那里( ),真比( ).造句例:我最喜欢天上的星星,这里一颗,那里一颗,真比地上的花儿还多. 人体中含有的酸,要化学式 一辆质量为4吨的汽车在平直公路上匀速直线行驶,汽车所受阻力是汽车所受重力的0.03 倍求:汽车发动机的牵引力大小. 1.一辆小汽车5分之4小时行驶了60千米,求这辆小汽车的速度.2.某某班有男生31.一辆小汽车5分之4小时行驶了60千米,求这辆小汽车的速度.2.某某班有男生30人,是女生人数的2分之3.求这个班女生有 关于人体生长激素的化学式? 质量为2t的汽车,在平直公路上行驶时所受阻力为汽车重力的0.2倍.它先在水平公路上匀速行驶2km后,关闭发动机后又滑行50m才停下.求整段路程中动力对汽车所做的功 钟乳石和石笋有什么区别 能构成人体蛋白质的氨基酸化学式有八种,甲氨酸,缬氨酸,赖氨酸,异丙氨酸,本氨酸,亮氨酸,色氨酸,苏氨酸 求化学式…………! 屎的臭味是哪种物质,最好有化学式 钟乳石是啥? 用高耸,缓缓,沉思,造句 用“蓦然”造句 短一点最好不超过20字, 喀斯特地貌与钟乳石有什么区别 小学三年级造句 沉思 用 既……又…… 造句 短一点 钟乳石是怎么形成的 化学方程式:2Mg=O2=点燃=2MgO给我们提供了哪些信息 用thoughtful来造句,单词的意思是沉思的. 造句(短一点的)绚丽神奇……永无止境……争奇斗艳…… 化学方程式的读法为何要用份2H2+ O2 =(点燃)2H2O每4份质量的氢气跟32份质量的氧气反应生成36份质量的水我不理解其中份质量什么意思以及怎样得到 尼古丁的化学式为CxHyNz,其相对分子质量为162,其中氢约占8.7%,氮约占17.3%,则化学式中x=____,y=____乘出来不是小数吗? 用“仿佛”造句,要短一些! 制作一个小车,在30cm高,60cm长的斜坡上滑下,至少要能滑5m远跪求答案……手工制作……目前只有木板和木条…… 什么物质占人体质量的三分之二? 用如果.就造句,要短,急呀 一个工人用200N的推力沿斜面把汽油桶推到汽车车厢上,若斜面长为5m,高为1m,不计摩擦,则推力做的功是多少汽油桶的重力为多少 已知 在某物质中铁氧元素质量比为七比三 求这种物质化学式 思路) 一载重汽车的质量的5t,它在水平地面上匀速行驶时.受到的阻力是汽车重力的0.12倍,求汽车此时牵引力的大急用
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn