首页 相关文章 Delphi控件制作技巧[一]

Delphi控件制作技巧[一]

  unit USWLMSelectDa;

  {$S-,W-,R-}
  {$C PRELOAD}

  interface

  uses
   Windows,Messages,SysUtils, Types, Classes, Graphics, Controls,StdCtrls,Forms,
   StrUtils,...[ 查看全文 ]

2016-02-19 标签:
  • 标签:Delphi
      Delphi关键字导航 网络 界面 多媒体 数据库 图像 控件 文件 硬件  在做Mis项目过程中,有时需要让用户自己来实现窗体控件的布局,比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能,必须做好三件事: 1、设置进入控件边缘的光标形状; 2、改变控件的大小及位置; 3、保存窗体控件的位置及状态,窗体下次启动时重新设置它们的这些信息。具体步骤如下: 1、修改控件光标。只...[ 查看全文 ]
  • 标签:Delphi
      实践第一步——分析和设计 Delphi为我们提供的组件中,有一个Label控件,它完成了最基本的单行文本标签功能。不过它的功能实在是太有限啦,总是在那里灰不溜秋地趴着。现在我们给它增加点动态效果,让它成为一个可以在鼠标经过时改变外表的标签——TouchLabel。也就是说,在Label的基础上,我们要给它添加几个属性,使鼠标经过时,标签的的文字效果会变为我们指定的样子。那么,我们要扩充...[ 查看全文 ]
  • 标签:Delphi
      实践第二步——动手做 先启动Delphi6,选择File菜单下的New|Other...在New Items中选“Package”,起个好名字,把 它存好,这是封装组件的包文件。 图2:新的包从这里添加 再它的Package界面上点Add按钮,弹出的Add对话框中选New Component页面,在Ancestor type中选TLabel [QstdCtrls],ClassName为TTouchLabel, Palette Page 是你要把它放在哪一个组件板上,可以自己指定一个新的噢...[ 查看全文 ]
  • 标签:Delphi
    我还是一个半瓢水的程序员,因此目前为止我所能努力达到的境界是: 一个半瓢水的程序员,管他会不会写控件,只要能拿来改就可以了。 使用过Delphi的朋友都知道,我们在设计Delphi应用程序的某一功能时总是希望能够有现成的第三方免费控件可以拿来使用。但实际情况往往是,网上的控件确实种类繁多,优秀作品也数不胜数,但真正完全能够符合设计者具体要求的控件却很少。究其原因,不外乎以下几...[ 查看全文 ]
  • 标签:Delphi
      下面是我的代码: unit LxTouchLabel; interface uses Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Graphics; type TTouchLabel = class(TLabel) private { Private declarations } FColor : TColor; FTouchColor : TColor; FTempColor : TColor; FTouchFont : TFont; FTempFont : TFont; isStoreTouchFont : Boolean; function GetTouchBKColor : TColor; fun...[ 查看全文 ]
  • 标签:Delphi
      Delphi是一个强大的开发工具,它有很多动人之处,其中之一就是开放性。它是一个完全开放的系统。当IDE中原有的控件不能满足我们所需时,可以添加第三方的控件。相信每一个Delphi程序员都见识过大名鼎鼎的AHM和LMD以及RxLib等第三方控件包。但这些控件包也并非完美无缺。当这些控件也不能完全满足我们时,有没有想过自己写一个来用呢? 当然,这不一定是一件轻而易举的事。Delphi的权威书籍《D...[ 查看全文 ]
  • 在Delphi中实现将Font.Style写入INI文件 前不久我编写一个小程序在INI文件中记录字体的属性(颜色值/color,大小/size,字体名/name,样式/style),其中color值和size值可以用数值方式写入INI文件,name是用字符方式写入,但Font.style不是数值型、字符型,也不是布尔型,而是TfontStyles类,无法直接写入INI文件中去,我找了好多相关书籍也没找到方法,也到网络上的Delphi站点去问,也没得到满意的答...[ 查看全文 ]
  • 标签:Delphi
    下面就来介绍一下这些控件的简单应用: 指定一个数据源 数据控件必须通过TDataSource构件连接数据集。TDataSource构件扮演的角色实际上就是数据控件与数据集之间的桥梁。首先,把一个数据集构件放到窗体或数据模块上,设置它的DatabaseName属性指定要访问的数据库,设置它的TableName属性指定要访问的表。接着,把一个TDataSource构件放到窗体或数据模块上,设置它的DataSet属性指定数据集...[ 查看全文 ]
  • 1.如何检测Insert、Capslock、NumLock、ScrollLock状态键的状态 Delphi可以调用Win API的Getkeyboardstate()函数。 常量 按键名称 VK_INSERT znsert键 VK_NUMLOCK Num Lock键 VK_CAPITAL Caps Lock键 VK_SCROLL Scroll Lock键 键盘缓冲区每一位都有一位特定的格式,对于状态键来说,最低位是1时表示状态键处于ON状态,你可以使用odd()函数来确定这一位的状态,以下是...[ 查看全文 ]
  • Delphi的出现将一大批程序员带入了Windows下的可视化编程,为一些C&C++的死党程序员所羡慕、感叹。直到C++Builder的出现这些Programer才用到了梦寐以求的编程工具,也将一些不得已"投敌"到Delphi下的程序员又拉回到C++的怀抱。她正真将Windows下的可视化编程和面向对象编程语言有机的融合在一起。但是由于C++Builder面市时间较短固而可用的控件不多,而且控件的使用也只针对某一版本,相互...[ 查看全文 ]
  • 介绍了一下五个小技巧: 1.让List Control有Check Box 2.让List Box有Check Box 3.Spin Control与Edit Control的绑定 4.可以设置背景和文字颜色的Static控件 5.在Static控件中显示BMP 1.让List Control有Check Box 用SetExtendedStyle方法可以设置,看代码: (CListCtrl m_ListCtrl;) DWORD dwStyle = m_ListCtrl.GetStyle(); dwStyle |= LVS_EX_CHECKBOXES; m_ListCtrl.SetExtendedStyle(dwStyle); 2...[ 查看全文 ]
  • 1、准备 GPS(Global Positioning System),即全球定位系统,利用24颗GPS卫星的测距和测时功能进行全球定位,在许多系统中,如机场导航系统,出租车辆管理和调度系统、江河流域的灾害信息管理和预测系统中,GPS得到了广泛的应用。本文利用MSCOMM控件实现了GPS数据的采集,可为信息管理和指挥调度等提供定位数据。 本文采用GPS的异步串行传送方式,将GARMIN 12C按NMEA-0183协议输出的数据采集...[ 查看全文 ]
  •   可视化控件(Visual Component)实际上就是一个类(class),要编写一个类,可以直接在*.pas文件中编写。但是要编写控件,则必须使用包(package)。从File菜单中选择New,新建一个Package,这就是存放和安装控件用的包。然后单击Package窗口中的Add按钮,添加一个元件(Unit)。 在弹出的对话框最上方选择New Component。因为一个控件的所有属性、方法、事件不可能都由自己编,所以就需要选择...[ 查看全文 ]
  • Delphi中TXMLDocument控件的用法      Delphi中对XML文件的解析做的很好,比直接使用MS的MSXML2_TLB中的接口要方便很多,现称述于下ƃ...[ 查看全文 ]
  • 标签:Delphi
      Delphi以其优秀的界面和简单的用法深受广大程序员的喜爱.笔者经过摸索,自做了一个具有动态显示特性的控件。只柙谥鞒绦蛑械饔酶每丶囊桓龇椒纯墒迪侄允尽T诙允镜耐?为了不影响主程序做其他的事情,笔者采用了比较流行的线程技术。  一. 方案  自做一个父类为TEdit的控件,应该有一个Text属性,能自由地输入要动态显示的内容; 并且有一个MoveShow方法,使的Text的...[ 查看全文 ]
  • unit UpDownEdit; interface   uses   Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages;  type   TUpDownEdit = class (TCustomControl)  private     { Private declarations }     UpDown: TUpDown;    Edit: TEdit;    FMin: Integer;    FMax: Integer; ...[ 查看全文 ]
  • 标签:vb
    建立的"通信卡片"控件包括:姓名、职务、单位、地址和电话,如图1.1所示。 具体操作按以下步骤进行: 第一步:建立一个容器 启动Visual Basic 6.0,在新建工程对话框中选择"标准EXE",单击"确定"按钮,建立一个启动过程,作为用户控件的容器。窗体的Caption属性设置为"通信卡片测试"。 第二步:增加一个工程(用户控件工程) 执行"文件"菜单中的"添加工程"命令,在"添加工程"...[ 查看全文 ]
  • function GetKbStatus():string; //返回当前键盘状态,包括NumLoce、Caps Lock、Insert //每个状态信息占两个字符,顺序为:NumLoce、Caps Lock、Insert //Copy Right 549@11:29 2003-7-22 var Status:string;     KeyStates:TKeyboardState; begin   GetKeyboardState(KeyStates);   if Odd(KeyStates[VK_NUMLOCK])then     S...[ 查看全文 ]
  • ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL的MouseMove事件:xpanel:=x;ypanel:=y; PANEL的DragOver...[ 查看全文 ]
  • 标签:Delphi
      Delphi作为一门新起的Windows编程语言,由于其集众多的优秀特性于一身,因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛,希望能够对Delphi的爱好者有所裨益。 1.类似于vb.中的doevents功能。 大家或许发现,在Delphi中没有类似于vb.中的doevents函数,这样有的时候,我们将无法使Windows响应多个同时发生的事件。其实,在Delphi的application对象中包括...[ 查看全文 ]
手机页面 收藏网站 回到头部