delphi语言受众多程序员追捧,主要原因之一就是它有很多第三方的控件可供使用.很多资深的delphi程序员都把自己积累的函数.过程等设计成控件,以方便使用,提高开发效率. 本文通过一个只允许输入数字.并且可以设置输入值范围和小数点位数的编辑框控件的设计,详细介绍了控件的实现方法.该控件继承自edit控件,控件单元名称为numedit,控件类名称为tnumedit.控件的实现主要分为4个阶段: 1. 建立控件原型. 2. 设计控件功能代码. 3. 设计控件图标. 4. 安装发布控件. 下面对这四

http://www.alonely.com.cn/Delphi/20160814/8912.html 实例说明本例是个光标应用的简单技巧,希望通过这个例子的学习后能举一反三.Delphi中像这样简单而又实用的例子还有很多,只要平时多注意积累就能写出简洁.执行效率高的代码.编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值,即可获知此组件中光标所在的行号,向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号 实例说明 本例是个光标应用

Delphi编辑框Edit的用法 http://wenku.baidu.com/link?url=oKKm0VFBXexqiWt9ZNB8WxFGzwjJqRBM3ohrAy6GSMmOmwIzSWPwliX8KrILot1T-7M6T6tf3wuaWIkgwc3p4PoRn2FzGa-SLAtwtv4hMuS

问题描述:在开发数据库程序时,我们经常要使用很多的表格显示组件DBGrid.当DBGrid显示某表格的数据时,其字段标题默认的就是后台数据库中的表格的字段名称.而为了数据库开发方便,后台数据库中的表格的字段标题通常是用英文表示的,如用Employees表中的EmployeesID表示雇员编号.但是我们开发给用户的程序必须以汉字显示字段标题,即我们要以‘雇员编号’显示给用户.假设我们是用ADOQuery组件(此处为了说明清楚只使用ADOQuery组件,实际可以是其它数据库组件)query1来加载E

Edit     TEditCut     TEditCopy     TEditpaste     TEditSelectAll     TEditUndo     TEditDelete   编辑 剪切 复制 粘贴 全选 撤销 删除   关联在以下控件上功能有效 TMainMenu TPopMenu TToolBar     以下控件功能有效 TMemo TEdit TRichEdit 来自为知笔记(Wiz)

//垂直显示标签文本 Label1.Caption:='垂'+#13+'直'+#13+'显'+#13+'示';//使用相同的方法,我们也可以制作垂直显示的提示(Hint):button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示'; 来自为知笔记(Wiz)

edit 和memo都有undo功能, Undo:恢复到改动前. ClearUndo:撤销掉Undo缓冲区的内容,则将无法恢复到改动前的 从该文本框的撤销缓冲区中清除关于最近操作的信息,根据应用 程序的状态,可以使用此方法防止重复执行撤销操作.调用的一般格式如下: 文本框对象.ClearUndo()该方法无参数. 撤销编辑框所选内容删除写法: edt1.Undo; 彻底删除无法撤销的写法: edt1.ClearSelection;edt1.ClearUndo; 删除选择的内容: edt1.Cle

今天有人问我:“用shell打开文件(显示桌面.scf)的方式还是用模拟键盘(Win+D)显示桌面”这应该有更好的方法,就搜了搜,关键字定位“ToggleDesktop”因为显示桌面.scf的内容是:[Shell]Command=2IconFile=explorer.exe,3[Taskbar]Command=ToggleDesktop 找到了MSDN http://msdn.microsoft.com/en-us/library/bb774124(VS.85).aspx给出的是VB脚本和Jav

多行编辑框组件(TMemo)TMemo组件可以显示.编辑多行文本,是一个标准的Windows多行编辑组件.对一些比较多的文本内容可以利用TMemo组件来显示.编辑. 1．TMemo组件的典型用法 TMemo组件主要用于输入备注型的字符串,它不能进行文字格式的设置.利用TMemo组件Lines属性的LoadFromFile方法打开文本文件,对文本文件进行编辑.编辑完成后再利用Lines属性的SaveToFile方法将编辑后的文本进行保存.例如下面的代码,在拥有一个Memo1组件和两个Button组

设置窗体属性:BorderStyle 属性设置为 bsNoneColor 属性设置为 clWhite(白色:窗体背景色)TransparentColor 属性设置为 trueTransparentColorValue 属性设置为 clWhite(白色:透明颜色)//以上两颜色需一致才能使窗体透明 设置Label属性:Color 属性设置为 clWhite(白色:透明颜色)Font.Color 属性设置为 clRed(非透明颜色即可)Transparent 属性设置为 true

设置它的几个属性:BevelEdges    |_ beLeft = False;    |_ beTop   = False;    |_ beRight = False;    |_ beBottom=True;   //就是下面那根横线了 BevelInner=bvNone;BevelKind =bkSoft;BevelOuter=bvRaised;BorderStyle=bsNone;ParentColor=True;

重载 CreateParams 方法即可 声明: procedure CreateParams(var Params: TCreateParams);override; procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.WndParent := 0; end;

看到一篇介绍ClientDataSet和TDataSetProvider,非常精彩,特此保存. =========================================================================== TClientDataSet用法 第十一章 TClientDataSet 与TTable.TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的客户端.TClientDataSet最大的特点是它不依赖于

[背景] 公司做视频影像采集,平时采集图像的时候都需要打开采集窗口,然后需要开着采集窗口来进行图像采集.同事问我能不能做一个全局快捷键,哪怕我没有操作也可以采集图像.说干就干,一直想做全局快捷键了,网上找了一些代码,凑合了一下,达到了实现的效果,同事反应使用效果不错. [知识点] 本代码有如下Delphi知识可以参考学习: 1.Delphi ini文件的读取写入. 2.Delphi全局快捷键的检测和注册. 3.Delphi给指定窗体发送按键. 4.Delphi任务栏显示.隐藏自己的程序. 5.D

在delphi 7中(其他版本也可能碰到该问题),编译后,代码左边显示蓝色小点,表示哪句代 码是被编译了的,可今天我的一些代码不能显示那些蓝点了,这样也就不能在上面设断点了,而且用F8跟踪发现执行的顺序不对.同时,编译中发现有错误的行,也没有指到对应的行上,可能在错误行的下一行,甚至有时候会执行到注释行或者空行上.造成该问题的原因是Dos换行和Unix换行的差异造成的错误. Dos换行是2个字符,一个回车符+一个换行符. Unix换行只有一个自符,好像是换行符.这样在Delphi编辑器内显示时候

HTML的界面有以下特点:图文混排,格式灵活,可以包含Flash.声音和视频等,实现图文声像的多媒体界面,而且易于建立和维护.另外,HTML的显示环境一般机器上都具备,通常不需要安装额外的软件.当然,HTML界面也有它欠缺的方面,即:界面控制能力有限,代码调试不便----虽然DHTML提供了比较强的编程特性,但是比起Delphi的传统的开发语言和工具来,对界面的控制能力,尤其是和数据交互时的控制能力还是稍逊一筹. 了解了这些特点,我们就可以在实际应用开发中,适时地选择HTML技术.下面举个例子:

excel单元格设自定义格式, 条件:可以单元格内容判断后再设置格式.条件格式化只限于使用三个条件,其中两个条件是明确的,另个是“所有的其他”.条件要放到方括号中.必须进行简单的比较.例如这个条件:单元格数值大于零显示正数,等于0显示零,小于零显示负数 [>]]"零";"负数" excel 单元格0 不显示,如果引用的单元格是时间格式,就可以在前面加上[=0]""; [=]"";yyyy/m/d Excel查找多个字符串

SetSel(start,end)作用:定制EDIT的所选择内容.间接地可以用于定位光标位置. 使用例子:EXP1:设置光标CEdit*      pEdit=(CEdit*)GetDlgItem(IDC_EDIT1);  pEdit->SetSel(2,2);  pEdit->SetFocus(); EXP2:选择内容CEdit*      pEdit=(CEdit*)GetDlgItem(IDC_EDIT1);  pEdit->SetSel(0,2);//两个字符   说明:如果出现

//限制字数 #define MAX_LIMIT_NUMS 30 1 #pragma mark -- textview的代理事件 - (BOOL)textView:(UITextView *)textView shouldChangeTextInRange:(NSRange)range replacementText:(NSString *)text { UITextRange *selectedRange = [textView markedTextRange]; //获取高亮部分 UITex