Delphi来实现一个IP地址输入控件
2014-06-20 15:27
951 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, CommCtrl, StdCtrls; type TIpEdit = class(TEdit) procedure CreateParams(var Params: TCreateParams); override; end; TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private IpEdit: TIpEdit; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses ComCtrls, CommCtrl; {$R *.dfm} procedure TIpEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); InitCommonControl(ICC_INTERNET_CLASSES); CreateSubClass(Params, WC_IPADDRESS); end; procedure TForm1.FormCreate(Sender: TObject); begin IpEdit := TIpEdit.Create(self); IpEdit.Parent := Self; IpEdit.SetBounds(10,10,121,22); end; procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := IpEdit.Text; end; end.
相关文章推荐
- 用DELPHI、RxRichEdit控件实现类似QQ的表情输入方法
- 一个简单的IP地址输入控件
- Qt实现的IP地址输入控件
- 组合控件--实现Ip地址的输入与校验
- 通用Delphi数据库输入控件DBPanel的实现
- [导入]通用Delphi数据库输入控件DBPanel的实现
- 实现一个模拟CMD.exe命令编辑模式执行与显示的Delphi控件
- 给大家介绍一个日期输入控件javascript实现,我修改了下,符合我的习惯了,^_^!
- 给大家介绍一个日期输入控件javascript实现,我修改了下,符合我的习惯了,^_^!
- Delphi组件开发教程指南(6)实现一个模拟动画显示控件
- Delphi版 关于QQ输入控件无法Spy到句柄的实现方案可行性研究
- 实现一个模拟CMD.exe命令编辑模式执行与显示的Delphi控件
- 实现让一个控件跟着鼠标一起移动? vb.net
- VC6下使编辑控件只能输入数字的简单实现
- 如何实现一个frame中的按钮事件调用另一个frame的服务器控件
- 关于用Delphi中的Indy控件实现收发邮件的几点学习记录
- 实现一个Asp.net自定义Back控件
- 一个用jS实现的日期控件
- IP地址输入控件
- 实现一个ASP.NET Back控件