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

控件使用技巧-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; ?

无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase 十款最新的JavaScript开发工具 JavaScript Promise启示录 百度携多位安全专家深入探讨安全人才快速培养机制 卡饭技术代表严佳:引入安全人才,企业应遵循S.L.E.E.P、S.T.A.R法则 百度资深研发工程师周晓波:平台+数据 百度培养安全人才的重要思路 代码审查是如何抹杀开发者积极性的? 事件分析平台EventHub开源 云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 中国气象局联手阿里云:海量气象数据变“活数据” 浪潮首度公布“I2I计划” 全面接盘IBM X业务 一周消息树:Surface Pro 3想替代笔记本太难,微软正逐渐迷失方向 就是要赚钱!NativeX推自定义原生广告交易 继智能手机后的下一个战场:智能家居 鏖战云端——亚马逊的生存法则 如何保住公司的人才:创造良好的学习氛围 主宰全球的10大算法 专访Google数据科学家彭晨:大数据成为潮流走近各行各业! 强横Metal技术来袭,能否取代OpenGL? Swift横空出世,Xcode 6 Beta有了哪些新变化? 《近匠》GameMei:简单易用、快速开发商用游戏 网页上的一些图片看不到 关于sql的问题? 我哪里错了呢? CITIZEN 的打印机 GSX-540S的驱动哪里有??急啊!! 我该如何处理这感情 #图书醒目#《vc++和uml》#图书醒目# 斑竹:请给matlab一个专区! 如何调用API使得子窗体全屏显示,且要屏蔽掉所有菜单及工具条? 每次用.net帮助的索引就会出错退出 奇怪的linux安装问题 用PB6.5开发单机版程序用什么数据库比较合适? 为什么我每次用UpdateUI刷新JTree时都有错? 本菜鸟想问一个怎么定义公用函数的问题!请各位大虾不吝赐教!不胜感激。 我这个人啊!!大家可能还不了解!! 网友六一见面,找个网友男朋友看海,找个网友男朋友看星星! 请教!! 求教SQL语句 神洲数码怎样? 请大家帮帮忙:如何将一个字符转换为unicode码形式(得到的是数字,而不是字符串)! msn怎么通不过http代理 求助:J2EE Container中deployed的servlet是否可以调用EJB local home? 有关时间限制 ie问题有没有碰到过 TADOTable+TDBGridEH+TDataSource中编辑一有关键字的表时,怎样做到避免在输入相同的关键字时的出错? IE经常自动关闭是什么原因 菜鸟请教 UlraEdit? 四舍五入的函数是什么?? 帮帮忙!!!我编译出这问题?? 请问:发现病毒:生成folder.htt,还有后缀都是htt的其他文件,用kv3000杀,提示kbs\kj,请问是什么病毒,怎么杀毒(急)? ie问题有没有碰到过 打开adsl的猫机器能自己启动为什么? 神洲数码怎样? linux中如何得到某个网络设备的ip地址? 请教ADO的Recordset对象的Delete的问题 请问jbuilder的参考书,哪本比较好?市面好像种类比较少 请问怎样获得临时表的记录? @@@@@@@@@@如何使我的折线图随着时间移动@@@@@@@@@@ 菜鸟问:各位大哥看c++ primer的时候是用什么编译器? 神洲数码怎样? jsp如何将web页面的String型转换为long型? 极容易的问题 ,先来先得! 大虾,救命啊!!!!!! jsp如何将web页面的String型转换为long型? ★★★帮忙翻译一句话!谢谢★★★ **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 倡议书:维护您的网络权益 [100分,两日内结]怎样在jsp中得到我的数据 两个菜鸟问题,送分拉 线程与消息??? c、odbc、嵌入式sql的关系? 平面上有10个点,如果每两个点可以连成一条直线(每三个点不在同一条直线上),那么这10个点最多可以连出多少直线答案可能是45,需要具体过程\xiexie!有没不是加法的计算过程 求一篇500字的作文 《校园生活之跑操》要跑操!跑操! 知道了液位和比重,如何计算他的体积啊?同题只知道液位和比重 平面内有10个点,有四个点成一条直线,其余任意三点不在一条直线,求:(1)连结两点能决定直线几条?(2)连结三点能决定三角形几个? 宇宙景象被我们观测到景象,同步时间是否已过万亿年?经常看到一些科学家称,观察到新的黑洞或超新星的,都知道要到达那裏按光的速度要走上数万或亿年,所以我们现在观察到的景象是否已 美国将开启太空旅游 每天发一班太空飞船上多少高空呢? 放射性射线导致生物体变异的机制是 为使氦氖激光器的相干长度达到1km,它的单色性应为多少?单色性用波长的变动范围对波长的比值来表示 什么褐色粉末加透明液体会爆炸?先冒烟 发出噼里啪啦的身音 生物体不断产生变异,而变异又是在一个细胞中的,那么这一个细胞产生变异,又怎么会产生那么大的效果呢?因为有很多DNA控制一份性状,而很多细胞都有这种DNA,怎么会只有这一个细胞影响了呢? 能否用马赫-曾得干涉仪测量激光器的相干长度 A深色液体 + 水 + C无色粉末 = 无色液体,求A,C两物质名.rt.A深色液体 + 水 + C无色或白色粉末 = 无色或白色液体 坚强的反义词是什么? 为了使氦氖激光器(632.8nm)的相干长度达到1km,它的单色性△λ/λ0应是多少?激光科学 为了测量半圆形玻璃砖的折射率、某同学在半径R=5cm 把金属放到微波炉里有什么后果?请注意…“后果”现象 西城的四页第三节三题和九题(ME没答案)对牛叫声和蚊子飞行时发出的声音,正确的描述是:牛叫声( )大,蚊子飞行时发出的声( )高不同的物体发出相同的音调的声音,人们依然可以分辨的出来,是 粒子的能量涨落来源于真空能吗? 绿叶为大树而生.春天的时候,下一句是什么 跑操时发生的事 作文 急 要有趣! 地球东西南北的划分是怎样的?划分的经线、纬线的位置是怎样的? 坚强的反义词 八年级下学探诊物理46页3\4\5题 为什么地球会有东西南北为什么中国就是东方 欧洲就是西方?地球不是圆的吗,东方的临界也可能就是西方 到底谁定义的~ 氢氧化铜是不是电解质? 反义词坚强 跑操比赛 作文高中生作文,要有感情的,复制的也行. 本领 的反义词 “坚强”的反义词是( )说恶搞点,这不会是你想的那个的..... 月亮是东升西落么? 氢氧化铜是什么类型的电解质 绿叶为大树而生.这段话主要写树叶什么特点 物理选修3-1该怎么学更好? 本领的反义词是什么?我只知道近义词—本事,我想这道题目肯定是乱出的 关于跑操的作文是那种提意见的 400字左右就够了 -4物体A的质量为m1,物体B质量m2,弹簧劲度系数为k,用外力F作用在物体A上,把弹簧压缩到一定程度,突然撤去外力F,物体B能离开地面,求要撤去F后物体B能离开地面,F至少为多大?图我没办法发.就是A 长方形的长相当于圆柱的底面周长还是底面周长的一半啊 关于课间跑操的场面描写作文 求北京西城区高二物理选修3-2的学探诊答案!所有章节的答案,注意是物理选修3-2的学探诊答案.急求!在线等! 长方形的宽一定等于圆柱的底面周长吗?为什么 跑操训练中的啟示为题作文怎样写 如何使用天平称粉末状物和有腐蚀性液体 长方形的长等于圆柱的(),宽等于圆柱的().当圆柱的底面周长相等时,把他的侧面展开长方形的长等于圆柱的(),宽等于圆柱的().当圆柱的底面周长相等时,把他的侧面展开会得到一个()形 元素的化合价为什么会随原子的核电核数递增呈现周期性的变化 正常水位、设计水位、校核水位的区别请通俗说出三者区别 苏田同学各取少量未知溶液于两支试管中,分别滴入稀硫酸,若有气体产生的为碳酸钠溶液.她想进一步测知碳酸钠溶液的质量分数,取出20克碳酸钠溶液于烧杯中,往烧杯中滴加10%的稀硫酸至没有 (六年级品德与社会作业)1.中国有很多企业到国外创业,享有很高的声誉,你能列举出一些企业吗?1.中国有很多企业到国外创业,享有很高的声誉,你能列举出一些企业吗?2世界各种联合科学组织为 极端高水位、极端低水位,校核高水位、校核低水位,设计高水位和设计低水位的定义是什么,怎么区别使用 将锌粒放入盛有蚁酸溶液的试管中,有气泡产生,该气体是什么 有一个已知序列的新基因,如何知道其生物学作用 等物质的量的氯气与乙烷在光照条件下反应,能否制得 氯乙烷 纯净物? CL2的溶液能导电但是它不是电解质,参考答案说错,可是我觉得对的不是会反应声成HCL,HCLO吗?怎么不会导电呢? 如图所示,在圆柱的下底面圆周A点处有一只蚂蚁,它要从圆柱体的侧面绕一圈爬到点A的正上方上底面圆周长的B点,你能帮助它找到一条最短的路线吗?画得很难看 ,不要建议 等物质的量的氯气与乙烷在光照条件下反应,能制取纯净的氯乙烷吗? 想知道:黑龙江省 新林塔河一线 在哪 如图,圆柱下底面圆周上的点A到上底面圆周上的B的最短路线为15cm,又底面圆半径为3cm,求BC的长.(π取3) 如图,B,c两点把线段AD分成2:3:4的三部分,点E是线段AD的中点,EC=2cm,求:(1)AD的长;(2)AB:BE 苏联成功发射第一个星际探测器月球1号? 如图,圆柱底面直径为6/π分米,高为4分米.如果一只蚂蚁从A点沿圆柱侧面爬到B点,它爬的最短距离是多少分米解释也要是一个圆柱,A在左下角,B在右上角 为什么等物质的量的氯气与乙烷在光照条件下反应不能制的纯净的氯乙烷 联合国副秘书长:巴以实地局势动态令人综述:就业数据黯淡或拖延美联储“退出模拟联大 :全球四百万学子峰会近日海外关键词(10月23日):老子乌兹别克斯坦艺术时尚周开幕德国现任政府正式卸任 “黑黄联盟”终韩国人战殁者遗属要求靖国神社取消合祀调查称希腊民众生活质量比经济危机前显以情报部长质疑伊朗谈判诚意 吁美制裁2047年:全球高温临界点?挪威称应联合国要求将协助销毁叙利亚化美专家:进口产品及食品易导致美国儿童俄空降兵部队摸黑赶路不慎引爆炸弹 致日本“无性症候群”涌现 恐陷“绝种”报告称美国600万年轻人无所事事 不安倍7小时长会后品尝软柿子 满足称“法国媒体再曝美国监听法国驻美和联合国安倍称日本拟限制外国人在国防设施附近伊朗死囚受绞刑后未死 司法部长称没必数据显示日韩航路日本乘客骤减 创历史美影院拟设“手机短信专用区”防手机光违反法律女子网购假行程单被拘西部大学生法援志愿者充电贪污挪用出纳用259万公款买彩票执法检查彭水整治不合格消防产品男子欠债不还躲进家中空棺材 老母拦住8月自然灾害致367人死亡违宪裁决令日民法修改可能性大增福建警方微博访谈问计于民赣州消防查封拆除液氨储罐两高有关负责人:法律不许有诽谤他人的打击非法网站要走出执法监管窠臼简政放权务必放准放实放到位泰州检察找瑕疵防冤假错案岛内治水预算之争再掀波澜质检总局公告防加纳疟疾海口酒行爆炸案原因查明战与不战:美举国激辩对叙动武贵铁警方启动路外宣传活动警方已成立爆炸专案组展开调查新疆33名专家加入法治宣讲教师收礼积少成多亦涉嫌受贿
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘