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

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

微软赞黑客并称Windows RT越狱非安全漏洞所致 周报第46期:GitHub历史上最糟糕宕机事故回放及反省 著名计算机黑客Aaron Swartz自杀身亡 移动周报:移动互联网行业技术趋势前瞻 旁门左道:让移动游戏下载量暴涨的邪门功夫 可植入身体:“可穿戴计算”时代来临 Web服务器份额:Apache仍居首,Nginx将超IIS 防税务欺诈:挪威财政部将开源收银机代码 响应式设计实战:3人+1.5个月 IE10优化版cnBeta诞生记 不听乔布斯劝告:“不专心”的Google照样干得好 躲过一劫!苹果不锁杂志类APP介绍截图 Oracle发布软件更新修复Java漏洞 设计师将吞噬工程师吗? 开源产品系列:小巧灵活的Web框架web.py Windows Server 2012 VHDX格式揭秘 Rovio将赶超Zynga 成为全球最受欢迎游戏公司 Netflix基于AWS的大数据平台Hadoop架构解析 微软开始提供Windows Embedded测试版系统 Aaron Swartz自杀原因存疑 引发互联网连锁反应 重金吸引开发者 BlackBerry10应用36小时增1.5万 把数据中心搬入“空间站” Dell和Intel对OpenStack新兴公司Mirantis投资 快讯:马云自5月10日起不再担任CEO职务 Web工程师必备的43款可视化工具 中国电信天翼开放平台2012年度数据:API调用量破亿 iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 展望2013 jQuery核心团队成员谈其发展路线 读取SQL Server的numeric字段用什么函数? rzhou(海盗) 收分来 急救:“段落或字节不能超过64K”???在线等待 初级问题! rzhou(海盗) 收分来 大家好!!用java开发数据库!!请帮忙!! 排序问题! 1。对vcl库底层机制一些不明白的地方 可以写代码导入数据吗? 连接ORACLE数据库时候的错误提示 关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框 菜鸟提问,向高手请教一个VB中SQL中的问题, 怎样显示局域网内的所有计算机 请问谁有用VMware设置好的solaris文件啊?或是那里可以下载啊??谢谢了~~ 帮帮小弟呀!!散分 在本地机遇到数据无法提交或读取的事,动网论坛的数据也无法读取,什么原因啊 寻程序员,短期,欢迎加盟!!!!!-------熟悉j2me的!!!!面试合格,待遇为150/天 关于Form的构造函数和OnLoad方法...... 请教Web Services的分布式创建和引用的问题?急!!!!! 在c#的WinForm中如何显示cdr文件,CorelDraw图片哪怕是8.0也行 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 怎么样得到游标中的数据的多少记录。 求解1000的阶乘 请问大虾有关BootCode方面的一点问题??非常急! 高分请教:如何在安装程序时注册OCX控件? 请问:在TDbgrid控件的TitleClick事件里如何取得鼠标击键的坐标位置? netwell服务器有不断的响声,急急急................. ★★请教新闻发布系统的图文混排问题 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 这句SQL应该如何写? 怎样在VC里面开发手机上程序?需要装什么软件? 请教:这个onLoad事件怎么不起反应 关于web services,大哥麻烦帮助小妹吧! 我现在神思恍惚,无心工作,天天上网灌水打发时间,大家估计我多久会失业? 使能工具栏的某项 网络下载编程求助(紧急求助) 如何判断一个字符串中是否含有某一字符? 如何在网络断开的情况下判断,等网络恢复后再自动连接??? 如何在comboBox中添加icon--在线= 救人啦!!请教BootCode方面的问题,十万火急!! 一个关于 WISE installation 制作安装程序的问题 *.lwp的文件怎么打开亚?请大家帮帮忙!!! DataGrid为何不显示? CRegKey::QueryValue()读取数值数据时遇到的问题…… chmod命令后造成启动错误 请教大家一个关于webservice transaction的实例 菜鸟急救,注册表文件导入的问题? 填空题(急) 钱本草呢? 关于手机的问题 求救:GetFieldValue()函数出错. 《草原》的第2段主要写了什么? (另加40分!周三前给我甲、乙、丙、丁四地的相对方位是?分别处于东/西半球?满意者追加30--40分! 急求!快点儿~今天吃了两个猕猴桃,放了一个多月了.闻着没什么异味,吃着感觉有点儿樟脑球味(本人家里没有樟脑球,也从来没有买过).现在吃了两个多小时了,没什么感觉.请问有没有什么坏 这个初中的英语句子是不是应该把地点后置?原句:the train for guang zhou has already arrived把for guang zhou后置?the train has already arrived for guang zhou比较好? (另加40分!周4前给我中国第一个南极内陆科学考察站、第三个南极科考站昆仑站(80°25′S,77°06′E),于2009年1月27日在南极内陆冰盖的最高点(海拔4087米)冰穹A地区胜利建成.它是人类在南极 我不想写作业,怎么能让我快点儿写作业, 草原利用的主要制度有哪些? 哪个概念不符合温带沙漠环境特征?1.年降雨量少 2.日温差大 3.年温差小 城市和郊区相比,哪个昼夜温差大?请分析原因 首字母填空Lianyungang is a m________city.we all love her.The children aren't o_________10,they are free.请附上翻译, 墙角有一堆黄沙 底面A到B的长度为1.88米 且A和B到墙角的距离基本相等 高为0.8米 又知黄沙每立方米约重1.7试估算这堆沙的重量,保留2为小数 方法提示:这堆黄沙可以看成是堆成高为0.8米的圆 用英文介绍蛇 人体电阻一般有多大? 墙角有一堆如图所示的黄沙,底面A到B的长度为1.57米,且A和B到墙角的距离基本相等,高为0.8米 求体积急 请问什么频率的无线电对水的穿透性最好?想做一个无线电遥控水的下机器人.请问什么频率的无线电对水(淡水)的穿透性最好?请详细说明.对于超声波控制与普通的无线电比例遥控器的调解调 在三角形ABC中角A B C所对边分别为abc,BC边上的高AD=BC,求b/c+c/b的取值范围 墙角有一堆如图所示的黄沙,底面A到B的长度为1.57米,且A和B到墙角的距离基本相等,高为0.8米 求它的体积 城市和郊区昼夜形成不同风向会使这里风力变大吗?为什么?建立水库为什么会使当地年、日温差变小? 高压电箱上写着高压危险.如果高压电箱旁边抽烟,会爆炸话其他危险吗? 墙角有一堆圆锥形的黄沙A和B到墙角的距离基本相等长度为2米高为0.9m每立方米黄沙重1.7吨这对黄沙重多少吨 在一只底面半径为10厘米的圆柱形容器中,水深12厘米,要在容器里放入长和宽都是8厘米,高18厘米的一块方石1.如果把方石条横放在水中,水面上升几厘米?【得数保留一位小数】2.如果把方石 电很危险,为什么高压电还用裸线? 墙角堆放了一堆玉米.测得点A到点B之间的弧长为1.57M,且点A和点B到墙角的距离相等,玉米高为0.8M.已知每立方米玉米质量为540KG,求这堆玉米的总质量.(答案保留整数) 圆柱形容器a.b深度相等,底面半径分别为3厘米和4厘米把容起a倒入b容器水深比容器的3/4低12厘米求B高度 高压电有多危险 手机怎么有时反应很慢拜托各位大神 热岛效应会加大城市日温差吗? 元朝的商业大都会主要有哪些? 这是一条蛇读英语怎么说? 晏子使楚讲的是一件什么事?楚王是个什么样的人?晏子是个什么样的人? 元朝大都是世界上无与伦比的商业大都市吗 我电话反应慢怎么办? 装修时水管和电管交叉布置且距离很近我家装修的时候水电管在底下交叉了,且砖已经铺好.这种情况需要改进吗?会不会有露电的危险. 高一政治上学期重点总结 为什么手机现在上网反应慢了?为什么手机现在上网反应慢了? 晏子使楚讲的是一件什么事,表现了楚王是个什么样的人.表现了晏子是个什么样的人. brita水壶是买个marella还是aluna就可以了 蛇的英语是? 装修中规范的走水管电管应该怎么查看?我家在装修中,正在走水电,想了解怎么才算规范的安装?例如:一根20的管中走1.5方的电线,走几根才算正确呢?电线转弯的地方应该怎么走线呢? 谁知道高一人教版政治上学期重点?告一下 谢了 收音机入水怎么办?我用的是飞利浦aq4288,入水后开机就是在叫.也不是进很多水,我想只是面板湿了,怎样可以搞好,郁闷,现在没人会弄收音机 遥知兄弟登高处的作者是谁 高一上学期政治怎样学 深海如何通讯?无线电可以通过水吗? 我家里装修时,装饰队地面布水管电管时跟辐射样,没有沿墙走,请问这样可以么 问一个特别中二的问题,假如世界和人都是神创造的东西,那么他杀死人类或是收回自己制造的地球是对的吗虽然我自己都觉得这个问题有点中二,但是我觉得还是有考虑一下的价值的.人和神的 无线电在水里的速度距离 为什么电管让水管,水让风管管 高一政治重点是什么 如图,A,B,C,D,P是圆O上的五个点,且∠APB=∠CPD.AB弧与CD弧的大小有什么关系?为什么? 雨的各种奇特现象以及成因,谁知道,急用 雨滴的运动雨滴在空气中运动时,所受阻力与其速率的平方成正比,若有两个雨滴从高空中落下,其质量分别为m1 .m2,落至地面钱均做匀速直线运动,则此时雨滴的重力的功率之比为多少?一楼,正 一个球与一个正三棱柱的三个侧面和两个底面都相切,已知这个球的体积为3/32派,则三棱柱的外接球表面积为? 俺反应有时差,咋能反应快点儿? 英语的一些题不会, 蛇用英语怎么说?用音标怎么拼? 五年级上册的期末试题,英语啦,品德啦,科学啦,美术啦,多多益善!大家辛苦了,但注意:是苏教版语文.北师大版数学.PEP英语! 1、It's hard for me___ the work.Would you like ___me a hand?A.to do;to give B.do;give C.to do;giving D.do;to give2、Millie walks back____every day.A.to home B.for home C.home D.at home3、If you work ____enough,your dream will come _____sooner or l 求写雪的句子 快点儿求你们了, 金正恩成马来西亚高校荣誉博士 为表彰李娜两连胜好假期可期:两情绪交错既兴朝鲜举行第4次连长连政治指导员大会 女子洞房时发现丈夫并非意中人 认命婚一辆载着300万货物货车高速金华西出男子向已婚女子表白被拒 生气骑摩托车费德勒巴塞尔赛继续抢分 直接对手相继美国就土中军贸再搞“小动作”白宫网页万人请愿 辱华节目被删除日本明治乳业退出中国 竞争激化成本上杭城遭遇八面“霾”伏 PM2.5为中杭州诞生“黑白配”羊驼 被称羊驼中的打破行业“潜规则” 温岭取消抵押贷款宁波市财政每年新增资金3000万元扶少女被人勒昏剪掉双侧乳头 嫌疑人自称男子住宾馆强奸隔壁女子后回原房间睡觉十八届三中全会前瞻:三大焦点构建中国李雪主成为朝第一夫人 传因长得像金正监听丑闻引盟友提高“炮轰” 美国公信突尼斯举办中国电影节温州经济三季报让人眼前一亮 GDP同丽江发生森林大火国家森防指直升机救援海峡导报女记者驻京“开荒” 一年走坏海峡导报15岁 我们见证两岸发展历史失联客机牵动两会代表委员心 祈盼奇迹云南省副省长沈培平涉嫌严重违纪违法接云南省副省长沈培平涉嫌严重违纪违法接云南省副省长沈培平涉嫌严重违纪违法正云南省副省长沈培平涉嫌严重违纪违法正马航客机失联下落不明 老妇捶壁:儿子安志杰广州出席活动 自曝与家养三猫一失联航班家属:我们不需要道歉 我们要资料:3月2-3日沈培平在澜沧拉祜族广东新增3例H7N9病例“控烟条例”开罚首日37烟民吃罚单追踪癌症的代价云南省副省长沈培平涉嫌严重违纪违法接云南省副省长沈培平涉嫌严重违纪违法正天降铁罐 砸伤两岁男童头数据解析鲁能中超首战:铁闸戴琳12次给你好看口岸安保升级 武警荷抢巡查
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘