编写一个组件一般分为6个步骤:
1.确定一个祖先类。
2.创建一个组件单元。
3.给新建的组件添加属性、事件、方法。
4.测试该组件。
5.在Delphi中注册该组件。
6.为该组件建立帮助文件。
实现步骤:1、创建用户登录提交界面2、创建处理用户登录请求servlet组件Main3、创建代表登录成功响应的servlet的组件LoginSuccess4、创建代表登录失败响应的servlet组件LoginFail【1代码login.ht…
先建两个procedure,一个把label的颜色改为红色,一个把label的颜色变为灰色.动态创建label的时候调用就可以了。lb.OnMouseEnter:=mset;lb.OnMouseLeave:=mslv;下面是完整代码:pro…
由于组件提供的方式不同,所以安装的方法也是不一样的,下面就目前常见的各种形式的组件的安装方法介绍一下。1只有一个DCU文件的组件。DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合Delphi的哪…
以下类允许你在Delphi中动态的创建一个ActiveX组件,并在窗口上显示出来。unitDynamicOleControl;interfaceusesWindows,Classes,ActiveX,OleCtrls,ComObj;type…
一、调用Excel的方法:一般情况下有两种方法调用Excel:1、直接使用Delphi自带的组件:在Form中分别放入ExcelApplication,ExcelWorkbook和ExcelWorksheet。2、动态创建Excel文件:首…
利用Delphi实现系统状态栏图标下面以一个具体的例子,详细介绍一下利用Delphi实现系统状态栏图标的步骤和方法。1.创建一个应用程序,在主窗体上增加一个TpopupMenu组件。并为该弹出选单组件增加选单项Exit,标题为“退出”。2.…
透明的控件,一般继承自TGraphicControl的(就是那些没有handle属性,不能有focus的控件,如image)都有Transparent属性.对TWinControl类的控件,要实现透明只要完成以下四步基本上就成了.1.在Cr…
通讯录的访问步骤一般如下:调用ABAddressBookCreateWithOptions()方法创建通讯录对象ABAddressBookRef。调用ABAddressBookRequestAccessWithCompletion()方法获…