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

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

Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware Cortana与Siri、Google Now的较量:支持功能更多 代码面试最常用的10大算法 “颠覆医疗” 时云医疗推三款硬件产品 华为章宇:如何学习开源项目及Ceph的浅析 EMC:大数据时代中对于数据保护的重新定义 Google Glass于4月15日在美对外开放购买,售价为1500美元 电脑上的网址怎么样复制到手机 创客天下——《Make》及Maker Faire创办人、O&amp;#039;Reilly Media创始人Dale Dougherty专访 《近匠》aGlass团队:透析眼控技术的价值 一周消息树:超级充电器来袭,30秒可为手机充满电 北森CTO张庆化:利用Spark实现数据驱动价值 大公网冯咀志:站内搜索系统的PowerLinux迁移实践 2014移动开发者必备的十大应用测试工具 前《连线》主编Chris Anderson:创客就要DIT UC多屏战略 推出电脑版和电视版浏览器 “全国云计算大数据创新项目评选”征集活动正式启动 【走近院士】李伯虎:云制造技术的应用及发展 一周热点: Twitter的下一代分布式数据库Manhattan 专访微软陆奇:大转型中最难的是文化的改变 【CTO俱乐部走进腾讯】问题征集进行中 颠覆移动营销世界的女王Yunha Kim为女性CEO正名 Google揭露“仙女座”虚拟网络,及分散和集中架构之辩 DHTMLX Touch:开源的HTML5和JavaScript框架 Supercell下一城:《海岛奇兵》续写芬兰手游传奇 开发者盛宴 2014 Unity亚洲开发者大会盛大开幕 微软全球中国云业务总经理:云落地中国的最大难题 PTVS 2.1 Beta版发布 Visual Studio的Python工具 【走近院士】李兰娟:云计算与大数据将成为医疗改革利器 誰有Java的在線网絡游戲,就象263,yahoo上那樣的. error C2664是怎么回事?十万火急!!! 我的编译器总出 LINK : fatal error LNK1104: cannot open file "Debug/Typer.exe" 是什么原因? 送分喽 vb中的问题!!!急 请问:fastreport的自定义变量如何与delphi变量进行互相传递!!! 请问各位高手关于局域网共享上网的设置问题。 basic 的数据结构问题 asp与xml 百分求维护经验 初级问题 求救:如何用fileup组件将一个文件同时存到两台机子的硬盘上! 有关netmeeting、AVPhone或其它做视频会议相关控件的使用方法。 a question about String Type!Please help me! 关于%include的问题。高分 vb如何访问sql-server。 有用SDK编写的象“我的电脑”那样的程序吗? 请教:如何绘制成绩分析的正态分布曲线? bean里删除文件? 请问关于响应事件的问题?? 请问怎样用在Active DLL中调用ASP的response对象? 请介绍几本关于vb的书,不是入门的书,有没有向<delphi5开发人员指南》这样的书???? dos下编程,如何获得文件创建时间? 如何判断存储过程执行成功结束?(50分相送) 谁行行好吧,小弟谢过了!(sql的cd key) 请教现在是应该学习VB6还是VB.NET? 关于在mfc中自定义类的一个问题 请教现在是应该学习VB6还是VB.NET? 谁有在VB中开发DirectX的教程,请推荐下载地址. zrong(zr) TommyTong(童童) GreenWaterBlueSky(我的家在碧水蓝天) 进来看一看可以吗? 谁行行好吧,小弟谢过了!(sql的cd key) 这里是个关于Iczelion的win32的汇编教程中的一个问题,请各位指点! 请问如何让VB。NET编译的。EXE文件在没有装有。NET架构的系统上运行? 大白鲨:计算机软件专业到低学那些课程 窗口的最小化和最大化事件是什么? 怎样实现在主窗体显示后,出现登录窗口?? 三层结构系统的问题! 存储过程问题 如何从Select的结果中再查询数据? 求助:此书<<windows me程序设计手册>>附带光盘的源代码---作者台湾,位元文化 大白鲨:程序员的爱情问题 form1.WebBrowser1.Navigate('www.zz.ha.cn');showmessage('下载完成');总错误 提问:关于报时程序 如何用图像来显示一个灰度值矩阵? 终于下载完了77M的,高兴,爽! 树型控件中,我在itmexpanding 事件中写了代码,第一次展开树正常,但以后每展开一次,数据内容就会在原内容基础上增加,书上说必须清除 tab控件中的按钮怎样关闭对话框? 大白鲨:数据库查询进度 啥是message map 在哪儿啊?〉 请帮我解决用dreamweaver来做网页时令我头痛的一个问题?谢谢! 续:关于报时程序 最后一头战象 父与子阅读题答案 英语六级华研听力1000题的难度怎么样,比六级真题难还是简单 孟子和荀子都是战国人物,为什么他们会有不同的观点?孟子处于战国早期,荀子处于战国末期,他们的时代环境是相似的,但孟子提出了人性本善的政治观点,荀子提出了人性本恶的观点,这是为什 小海马为什么是父亲生?小海马为什么是父亲生的①温暖的海底,尤其是浅海区域,分外光明灿烂.那里有胜过陆地森林草原的海底植物,有嬉游其间形形色色的动物.生长在海底的红、白珊瑚,像庭 在哪能看到 英语六级答案? 荀子、孟子和孔子的思想有何异同?请各用一个名句来概括他们的突出特点. 孔子、孟子 、荀子、黄宗羲的民本思想是什么,董仲舒的民本思想主要体现在? 在政治经济学中,G表示金全,W表示商品,P是指什么呢,是利润,还是价格? 孔子和孟子 荀子 有什么不同? “性恶论”最早是由( )提出的 A.孟子 B.孔子 C.董仲舒 D.荀子 男生长得美是啥意思?长得像女生的男生被人说可爱是啥意思? 用‘my father past life'写一篇初一的英语作文 穷则独善其身,达则兼济天下的含义? Mygirl的中文意思是什么? my father is day 英语作文 中国古代“自然人”假设的提出人是( ) A.孔子和孟子 B.老子和庄子 C.荀子和墨子 D.世硕和董仲舒 如果有男生说你长得可爱,是什么意思啊?我同桌在有天上语文课的时候就问我:有没有男生说你长得可爱?我说没有(其实有一个),结果他却说:没有?那我来说,你长得很可爱!(谁能告诉我, 六级财富值是多少? “穷则独善其身,达则兼济天下. 鲁迅生平简介稍微短一点, 一道初三英语题,希望有讲解谢谢,急在线等As we all know, wood and stones ______ bridges in the past.A) used to build B) used to building C) were used to build D) were used to building 需要多少财富值才能升到六级. 达则廉济天下,穷则独善其身的意思 Jim found nobody in the classroom —— A.did heB.did Jim 我知道选A,但我想知道为什么不选B.这种从句不是应该看主句吗? 财富值是多少时是六级 My father 初一水平英语作文70词左右、越简单越好、快!!! 《最后一头战象》里的战象,在死做了什么事《最后一头战象》里的战象,在它死之前,做了什么事,请问下,3Q 百度知道六级财富值是多少? 求解数学题,快19:00前某车间缺勤人数是出勤人数的十分之一,后来又有2人因事请假,这时缺勤人数是出勤人数的八分之一,全车间有多少人?长方形砖的长为40厘米,宽为26厘米,用这种砖铺成一块 《最后一头战象》 嘎羧死前做了那些事 在现代市场经济体制中,政府越来越多的运用税收,利率等经济杠杆调节经济运行,经济杠杆能起到调节作用原因答案是直接关系着市场主体利益, 一条数学题(最好在今天早上7:00之前回答)用一副三角尺可以拼成的角是多少度?(本人不明白这道题的意思最好说说这题的意思!)(1)100度(2)105度(3)110度 最后一头战象讲了一件什么事? 利率是一国政府调控宏观经济的重要杠杆.变动利率对经济的影响的一般规律( )a.提高利率,储蓄减少.b.降低利率,投资会减少.c.提高利率,会抑制通货膨胀.d.降低利率,消费会减少.我选C.Ps:请 62页答案,别让我自己做,谁给我我给100财富币 请问《最后一头战象》中的象死前有何感想?作文 兼济天下和独善其身的意思不要达则兼济天下,穷则独善其身的解释.单独的解释, 有回答者必给财富! 最后一头战象嘎羧死前看到了什么?想到了什么? 兼济天下、独善其身的意思兼济天下、独善其身两个词语的含义,最好是自己的理解,只要词语的意思!不要什么“穷则”,“达则”,而且要是褒义 请问政治经济学中G-W-G'是什么意思 利率是如何作用的作用?请从宏观角度回答 独善其身 在经济学中G-G'什么意思?谢谢 杠杆的作用是什么? 百度知道财富值多少才升到五级?六级?七级?八级?九级?最高到什么境界? 政治经济学中,G-W-G'中的意思?G是资本,W是商品,分别是哪些英文单词呢? 作者写《最后一头战象》当时的时代背景 有一列数,这样排列;1,22,333,4444,55555,666666,7777777······第二百个数是什么?讲得清楚点说错了,是1,3······ 政治经济生活中的W-G W-GW 最后一头战象表达了作者怎样的感情请勿说一大堆。 在足球比赛中前11场比赛中,某队仅负一场,共积22分.按比赛规则,胜利一场得3分,平一场得1分,负一场得0分,则该队共胜了几场? 你回答的真多!我才1000多财富. 最后一头战象作者所表达的情感?急. 兼济天下,独善其身是什么意思?五年级下册的苏教版语文练习册上的单元测试3中的一题. 有人说~爱情一千个人有一千个答案~我想知道这一千个答案都是什么~ 最后一头战象的简介 谁能解释以下句子的完整意思呀:穷则独善其身.达则兼善天下 穷则兼济天下,达则独善其身 英语6级答案哪里有
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘