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

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

“热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! sqlserver+asp如何实现图像的存储和显示? Just plain stupid 关于main(int argc,char *argv[]) helpme 如何对vb源代码加密 讨论,关于Swing做的Applet! SUN前途堪忧! explorer007(KKcat):麻烦一下,请把你写的游戏TANK的源代码给我发一份(lyf545@263.net),谢谢!!!! sql server中删除一条记录不成功!? Bad Dream about a Coffin 我要用delphi作个学生管理系统,大家给点意见 有声卡,为何没有声音,具体操作如何?一定加分!!!! What a country ! 交流交流多线程程序的开发经验好吗? 谁有关于ejb方面的书或者资料推荐??一定给分 Women over 50 谁编个例程给我,这50分就是谁的了。题目不难,相信高手5分钟就能做完。 jdk1.3+jswdk1.0.1 的JAVAbeans .class文件要放哪啊????? God painted it 提问:猪真的很幸福吗?要求 wywq(幸福如猪) 回答。 哪位高手做过可视电话的? VB能不能实现“一个结构体类型的数组当参数传递 Forgotten Birthd Husbands Overheard Fine 有个在多线程中使用ADO的问题。请高手们帮忙。 Suede jacket 可能是installshield的Bug! 我想去北京找个工作,请大家帮帮忙,提供点信息! 装了“猫”为何还有630错误(电话线也接了)? excel 問題 各位:数据窗口有一检索变量,现在想retrieve出所有的记录,检索变量应该怎样赋值?谢谢! linux和windows是不是只能分别装在两个分区中 关于图像处理:如何使图像锐化与柔化? 帮帮我啦! 我在使用jdbc读取数据的时候,碰到了内存溢出的问题,怎么回事呀 哪里有餐饮系统的介绍?90不够的话,先欠着,多谢了! 在两个ASP程序之间怎么传递参数? ccl2000(不帅不酷的Goblin):其实你真的很酷很帅的。 大侠帮帮我啦(关于SQL语句的问题) 关于Vxd的编译问题 用VC编的程序,一运行就说“执行非法操作”,问题出在哪里?? SQL Server有病 一个关于api的简单问题 《易佳自定义报表》用后很失望 请教各位高手一个有关报表控件的问题? 小妹向大家请教!可不可以直接在本页的代码中改变该页面浏览时的属性? 家菲猫:惊悉你昨晚惨遭不幸,被窃大量钱物,今日一天无法和你联系上,估计手机和通信录已全部丢失,如果今晚无法来我处,明早8点以前请务必携猫 MM 赶到上海南站!!! MDI文档模板和应用程序调用问题请教,大侠请进! 一个c++问题???? 请问各位高手,sqlserver2k加密的存储过程是否能解密,看到它的实际的语句?可否能跟踪加密的存储过程? 我下载了一个formula one ,发现她的界面跟excel差不多,在pb中怎么用? 高分求XML 高级编程(足本)[01.pdf到10.pdf]!!!! 同一主族的元素,原子半径与单质的熔沸点成正比, 如何判断碱金属、碳族、卤素、氮族、氧族单质的熔沸点变化? 实验室用铜和稀硝酸制取NO,反应过程中有6.3gHNO3被还原,则参加反应的铜是多少 油箱长3.6米宽0.1米油的密度是0.85怎么去算油箱的容量和每0.1米油箱的容量 对于同一周期的主族元素,单质的熔沸点逐渐升高,请举例说明! 为什么氧族,卤素单质熔沸点逐渐升高?氧族,卤素单质的熔沸点是否与共价键强弱有关?有的话,随着原子半径的增大,共价键应该是逐渐减弱,溶沸点也是降低啊! 油罐着火在什么情况下会爆炸? 非金属的气态氢化物的热稳定性和熔、沸点分别与什么有关? 碱金属元素的熔沸点为什么卤单质是分子晶体熔沸点与分子量有关,相对分子质量越大熔沸点越高.碱金属是金属晶体熔沸点与原子半径有关原子半径越大熔沸点越高. 子弹内部是靠什么爆炸的不会是TNT吧,这种东西好象爆炸时没有烟,这种东西可以拿什么替换(可以通过合法渠道搞到的象汽油这种易燃易爆品)要成分状的 非金属氢化物的熔沸点越高,是不是可以说其越稳定?非金属氢化物的稳定性与什么有关? 短周期,同主族非金属单质熔沸点都是第三周期大于第二周期吗 弹药爆炎弹二次爆炸什么意思怪是不是会受到两次攻击比如打下去100点伤害,然后有爆炸又100点伤害{我说的是增加的那百分之65攻击}具体点, 氢化物沸点 稳定性与金属性 非金属性的关系 为什么同周期的非金属单质熔沸点随核电荷数增大而降低? 子弹撞击子弹会爆炸吗?我们都知道当两辆车的时速都很快的时候 撞击在一起 汽车便会产生惊人的爆炸力 但那里头毕竟有发动机 石油 这些易燃的东西 如果是两颗子弹相撞呢?是否也会爆炸 单质熔沸点的高低怎么比较?规律 非金属熔沸点问题..急不是说非金属性越强.熔沸点越高.可同主族从上向下熔沸点依次升高,而非金属性却依次降低.为啥?单质与元素不同?有啥不同? 子弹为什么可以爆炸啊? 元素周期表熔沸点的递变规律同一个主族是什么变化的?同一个周期是怎么变化的?我记得有一个主族熔沸点是先增大后减小,有吗?最好能给出图答的好可以再加分 碱金属和卤素熔沸点及密度变化规律只需简单的说一下就好 不要一大篇 说了半天看不懂的那种 就说碱金属和卤素熔沸点和密度随着质子数变化得规律就好啦^ω^ 子弹焚烧时会不会爆炸 怎么从元素周期表中看氧化物熔沸点的大小 如何通过熔沸点判断金属(非金属)性的强弱? 子弹的燃烧爆炸需要外界的氧气参与吗?1,子弹内部火药燃烧是与(氧气反应)还是和(氧化剂反应的)?2,这些氧气或氧化剂来自哪里或储存在哪里?因害怕摆渡不给显示分白扔, 求元素的,半径大小,还原性,氧化性,熔沸点在化学元素周期表规律如题 碱金属单质的熔沸点随着核电荷数增大而降低为什么是错的? 子弹爆炸我有两颗未爆炸的实弹,在什么情况下会爆炸?很怕有意外 物体的熔沸点在元素周期表的规律是什么?说的简单些,我是高一的,告诉我规律就行了,不用说那种很难懂的定理的 为什么碱金属的熔沸点低1)为什么碱金属的熔沸点很低?2)为什么随着核外电子数的增加,沸点越来越低3)沸点与金属键有什么直接的关系?沸点到底与半径有没有关系啊? “拆下轴承,浸在柴油或汽油中彻底清洗后,再用干净汽油清洗一遍,要注意哪些问题 元素氢化物的稳定性,沸点,还原性,酸碱性在元素周期表内呈现怎样的递变规律请帮我归纳下我还会加分 碱金属熔沸点问题碱金属周期表上从上到下,相对原子质量上升,即分子间作用力不断增大,熔沸点升高,但实际上熔沸点下降,为什么? 能用汽油洗轴承吗?我的悠悠球是天马神弓,正想洗洗轴承(因为睡眠时间才30秒)我一个朋友说可以用汽油来洗轴承的。我想知道的有以下几点。1、可以用汽油洗轴承吗?2、洗了以后会生 非金属氢化物稳定性与熔沸点有无关系 丙烯的化学式? 悠悠球可以用汽油洗轴承吗?怎么洗?雪鳞锋洗了有什么好处 比较两相邻元素的非金属性强弱可否用氢化物的沸点来判断?注意是相邻的两个元素 丙烯化学式:结构式? 汽油比柴油更容易着燃,为什么汽油机还需要点火? 为什么水的沸点即液态的沸点,比气态的沸点高?请回答, 烷烃,环烷烃,芳烃,炔烃,乙烯,丙烯,丁二烯,苯,甲苯,二甲苯,乙醇,的化学式怎么写?按顺序写, 柴油冻结是什么原因? 同主族氢化物熔沸点与氢化物稳定性的关系RT 不考虑氢键的N O F情况下 为什么从上至下氢化物稳定性降低而氢化物熔沸点升高 不应该是稳定性高的熔沸点也高么 乙烯的化学式为了方便回答者准确理解,请您对问题标题或内容进行补充. 怎么分辨柴油型号有没有什么测量仪器?请各位高手给予解答!万分着急 谢谢了 单质的熔沸点与元素周期律有什么关系? 如何利用乙烯,丙稀,乙炔,丁二烯等简单的有机物合成2-甲基-2-丁烯? 不同型号的柴油能不能混合使用 什么因素影响同组元素单质的熔、沸点如氧族单质熔沸点依次升高能不能从原子内部结构作答 实验室制取NO的反应离子方程式是______,检验NO的方法及现象是______. 在元素周期表里,怎么判断熔沸点高低. 第一主族和第七主族元素单质熔沸点变化趋势相反的原因 实验室制取NO必须用排水法,由此得出 -单选题a.NO难溶于水 b.NO的密度和空气接近 c.NO会与氧气反应 元素周期表中单质熔沸点变化规律氢化物熔沸点变化规律 碱金属熔沸点为什么递减?而卤素相反? 为什么实验室制取CO、N2、(NO)时只能用排水法收集? 元素周期表中元素单质熔沸点规律.说明白点. 为什么c族元素不像卤素和碱金属单质那样熔沸点有规律? 在实验室制取NO,和NO2气体时,分别用什么来收集
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn