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

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

给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便 如何使用Show方法来显示一个模态窗口-Delphi资料 如何旋转字体-Delphi资料 如何隐藏和显示Windows的任务条-Delphi资料 如何在DELPHI界面上运行可执行文件 设计Form时的快捷键-Delphi资料 生成非矩形窗口-Delphi资料 时隐时现的鼠标-Delphi资料 无标题窗口的移动-Delphi资料 应用程序敏感键的实现-Delphi资料 用Delphi 4.0 设 计 新 型 界 面 用Delphi 实 现 自定 义 颜 色 对 话 框 及 其 构 件 用Delphi 实现自定义颜色对话框及其构件 用Delphi4实现风Word97风格的工具栏 用Delphi 开 发windows 屏 幕 保 护 预 览 程 序 有关dll导出符号的问题。 麻烦大家帮忙转告一声! 救命求助,分给完了,谁能帮上忙,重谢 深入浅出这本书过时吗? 急急急急急急急!但很简单! 深入浅出过时了吗? 关于浏览器的紧急求救 懂串口编程的哥们帮帮忙?? 如果数据窗口显示有数据,如何用代码实现数据窗口不显示数据? 怎样使JSP和Servlet共用一个Bean?急急急 如何才能获取运行时指定一表的字段信息和索引信息 请问如何定义任意组合的热键?请给例子 怎样让工具条缺省是漂浮着的啊?(先答先给分,50分全送) 3000-5000元寻求软件开发合作! 怎么把图片设为桌面? 3000-5000元寻求软件开发合作!!! tfilesteam怎么才能显示出文本 pb中如何执行sp_who并得到结果 3000-5000元寻求软件开发合作!! 怎么用IHTMLDocument2接口查询IHTMLElement接口 3000-5000元寻求软件开发合作!!!!! 日期数据类型的问题;MDI子窗口的问题。 top851 用VC打开SQL数据库问题! QR怎樣讓報表分列 诚征工程外包 我的AOUTOCAD总装不上? 如何实现在asp页面上操作,备份数据库? PB中发送HTML邮件问题 各位仁兄。我要在内存位图上作画。怎么搞。help.255' 刷新另一个页面的问题 ■■BCB没有PTR函数?DELPHI中的PTR对应BCB中的函数是什么?请高手指教■■ 我加不起分,怎么回事? 求一个位运算的算试 《深入浅出MFC》中一个小问题不明白! 关于键盘消息的问题 谁有《Linux内核源代码分析》.发给我或告诉我连接都给分 在SESSION STARTZ()中是不是不能用ASP脚本程序? 问一个菜鸟级的问题。答者有分。 为何我用CDialogBar生成的停靠栏上Button都是灰色的? Help!!help!!请教如何在vc程序将我的信息发到别人的手机中?? tapi播放语音 关于变量传递问题,请高手帮忙! 有谁在OnDraw()中用过MessageBox()?为什么不是死循环?怎么解释发生的现象? 关于播放flash的问题 把0显示成0.00怎么弄? 简单问题,怎样得到ListView一单元格中的内容,如用GetItemText请问里面的参数怎样添? 全新安装的redhat 7.2为什么启动kde后不能打开Konqueroer浏览器和主目录 研究生在毕业时真的比本科生有优势吗? 请教:谁知道自动控制原理根轨迹乃试图。。,的算法? 我的AOUTOCAD总装不上??? 常温常压下,48g氧气和臭氧的混合气体中,含有氧原子数为3NA,为什么, 某氧气和二氧化硫的混合气体中,含氧元素的质量分数为60%,则该混合气体中氧气和二氧化硫的质量比为多少写出具体过程 100mg/kg是什么意思? 常温常压下,氧气与臭氧的混合物16g中约含有6.02×1023个氧原子为什么是对的 等质量的二氧化硫和氧气混合,混合气体中,硫元素与氧元素的质量比是?为什么 “100mg/kg/天”是什么意思? 花布的长度比白布多四分之一,()×1/4=() ()×{1+1/4}=()这个月用电量比上个月结约1/10.()×1/10=() 圆的半径由5厘米变成3厘米,其面积减少( )平方厘米(1)4π (2)16π (3)16 《求一个数的几分之几是多少》 白布长12米花布比白布少3分之1花布长多少米 0.221028mg/kg=_ mg/100g 一个数的几分之几是多少 想知道Pb、Cr、Cd、Cu、Zn、Ni、Mn在潮州的土壤背景值是多少? meq/kg 换成g/100g 比例是多少? O.1mol/L的NH3.H2O与O.2mol/L的Hcl等体积混合后溶液中的离子浓度大小关系? 配置的是Cr Cu Ni Zn Cd Pb 重金属混合溶液 加入2%的硝酸便于储存 用的时候需要调回中性吗? 100g/dm3换成kg/m3求大神帮我换算下 10ml 0.1mol/l HCL 和10mol 0.1mol/l NaCL能组成缓冲溶液吗? 急求国家土壤环境二级标准,具体只要As,Cd ,Cr ,Cu ,Hg ,Ni ,Pb ,Zn 使溶质质量为100g,如何换算为kg 下列说法错误的是 A .0.1mol/L的HCl与0.1mol/L的NH3.H2O等体积混合,溶液中的c(NH4A:0.1mol/L的HCl与0.1mol/L的NH3.H2O等体积混合,溶液中的c(NH4+)>c(Cl-)B:PH=3的HCl与PH=11的氨水等体积混合,溶液中的c( 重金属元素 As、 Cd、 Cr 、Cu 、Hg、 Ni、Pb 和Zn 怎样传播 气体和氧气反应生成二氧化碳和二氧化硫,分子质量为60,问该气体是? 某商店库存的花布比白布的2倍多20米,如果每天卖出30米白布和40米花布,几天后白布全部卖完而花布还剩140米,原来库存这两种不共多少米?用一元一次方程解 金属的酸碱性?重金属As Cd Cr Cu Hg Ni Pb Zn的酸碱性 某含有O2 SO2的混合气体,其氧元素的质量分数为60%,则该气体中氧气与二氧化硫的质量比为多少?请写出具体步骤!最好说说做题心得 某商店里库存的花布是白布的2倍,如果每天卖30米白布和30米花布,几天后,白布全部卖完,而花布还剩下120米,原来库存花布多少米?请列式解答. 一个数乘分数和整数乘法的意义不同,是错的还是对的?最好今天回答,今天期末考试第一道题,老师说是对的,我们班同学大部分说是错的,意义不完全相同.原因是意义不完全相同 一个数乘分数的意义与整数乘法的意义相不相同? 某商店库存的花布是白布的2倍,如果每天卖出30米白布,40米花布,几天后白布卖完,花布还剩120米,原来库存的两种布各是多少米? 一个数乘分数就是求这个分数的几倍是多少?为什么? 要使100ml 0.1mol/l的Hcl溶液PH值增至7.0时,需加入固体NaoH多少克 某商店里花布是白布的2倍,如果每天卖30米白布和40米花布.几天后,白布全部买卖完,而花布还剩下120米,原来 库存花布多少米? 怎样计算一个数乘分数 若H2CO3.HCl.NH3.NaOH.KCl溶液浓度均为0.1mol每L,其按PH值递增的顺序是 某商店库存的花布比白布的2倍,如果每天卖出30米白布和40米花布,几天后,白布全还剩20米,而花布还剩180米.问原来库存花布有多少米?求详细过程,要算式,不要方程,谢谢! 一个数乘分数的意义与分数乘整数的意义完全相同. 有花布495米,白布有330米.白布是花布的几分之几? 用一块花布和一块黑布,花布长3.5米,黑布长2.7米,妈妈用它们给小明分别做了一套大小相同的衣服.剩下的花布是黑布的3倍,做一套衣服多少米? mmol/kg到底是个什么单位(请帮我换算一个小例子吧,柠檬酸的分子量192.14,苹果酸的分子量134.09那么:2.5 mmol/kg 苹果酸+7.5 mmol/kg 柠檬酸,相当于在1KG的溶液中加入苹果酸与柠檬酸各多少克呢? 鸡比鸭多5分之1,则鸡比鸭少几分之几,鸭是鸡的几分之几,鸡是鸭的几分之几 将AgCl分别放入0.1mol/L的CaCl2溶液和0.1mol/L NaCl溶液中 AgCl在哪种溶液中的溶解度大? 请问(KOH)mg/g转换为 mmol/kg,如何 转换言? 鸡比鸭多7分之2,鸭与鸡的比是( ),鸭占鸡鸭总数的几分之几,鸭比鸡少几分之几 7.30mL 1mol/L NaCl溶液和40mL 0.5mol/L CaCl2溶液混合后,混合液中Cl-浓度为( )A.0.5mol/L B.0.6mol/L C.1.00mol/L D.2mol/L 请问mg/g的单位转换为mmol/kg,如何转换, 将一个半径5厘米的圆形铁片,裁剪成半径为4厘米的圆形铁片零件.铁片的面积还剩下多少平方厘米? 30mL 1mol/L NaCl溶液和40mL 0.5mol/L CaCl2溶液混合后,混合液中Cl-浓度为 答案是1mol/L我的疑问是,为什么混合液的体积能相加呢,不是说体积不能相加么.望高手解答体积相加的规则T-T mmol/L:带表什么?kg/h:代表什么?kg/次:代表什么?kg/s:代表什么?g/mol:代表什么?Pa:代表什 一个圆形铁片零件.外圆半径为30厘米,内圆半径为12厘米.这个贴片零件的面积是多少? 色拉油50g等于多少ml 面粉70g等于多少ml 现有CO、CO2、O3(臭氧)三种气体,它们分别都含有1mol氧原子,则三种气体的物质的量之比为? 花布长42米,比白布多3\4,白布长多少米?请大家讲讲 向含有等物质的量的HCl和AlCl3的混合溶液中滴入NaOH溶液至过量沉淀质量和n(NaOH)关系图象是怎样的? 32g氧气和臭氧的混合气体中含有氧原子总数为多少? 有某氧气和二氧化硫的混合气体,氧元素的质量分数为百分之60,则该混合物中氧气和二氧化硫的质量比为多少? “赤霉素浓度100mg/kg”是不是100mg开1kg的水呢? 在32g氧气和臭氧的混合气体中,氧原子数目为2mol.为什么是对的? 由氧和二氧化硫组成的混合气体,其氧元素的质量分数为60%,则该混合气体中氧和二氧化硫的质量比为______. 在0.1mol/L的NaOH溶液160mL与0.15mol/L的HCL溶液100mL混合后的溶液里,NaCL的物质的量浓度是多少?总体积似乎不能把160+100吧
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn