写了个组件 让大家给点意见（里面有N多BUG）

最新推荐文章于 2022-04-19 11:25:14 发布
最新推荐文章于 2022-04-19 11:25:14 发布
阅读量1.6k 收藏
点赞数
文章标签： function string constructor byte delphi listview
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lisiyong/article/details/941822
版权

{

  Liisyong 200607019

  IP地址组件

  版本2.0

 

}

unit IpAdress;

 

 

interface

 

uses

  Windows, Messages,

  SysUtils, Classes,

  Graphics, Controls,

  Forms, Dialogs,

  ComCtrls, CommCtrl ;

 

type

 

 

********************************************************/

  TCustomIPAdress = class;            //类TCustomIPAdress预定义

 

 

  TIPAdressFieldChangeEvent = procedure (Sender: TCustomIpadress; OldField, Value: Byte) of object;

  {TIPAdressFieldChangeEvent =

  procedure (Sender: TCustomIpadress;

  OldField, Value: Byte) of object;   ？？？？ 查资料}

    //声明事件

  TIPAdressChangeEvent = procedure (Sender: TCustomIpadress; IPAdress: String) of object;

 

  TCustomIPAdress = class(TWinControl)    ///     组件的祖先类名TWinControl

 

 

********************************************************/

 

 

  private

  //私有属性声明

    { Private declarations }

 

    FOnIPChange: TIPAdressChangeEvent;

    FOnIPFieldChange: TIPAdressFieldChangeEvent;

 

    FMinIPAdress: Longint;    //对IP地址大小进行限制 的事件     ？？

    FMaxIPAdress: Longint;

 

    FActiveField: Byte;

    FAutoSize: Boolean;

    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;

    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;

 

 

 

  protected

  //保护类型

    { Protected declarations }

 

    procedure CreateParams(var Params: TCreateParams); override;

 

    function  GetMinIPAdress: String;    //限制函数声明

    function  GetMaxIPAdress: String;

    function  GetIPAdress: String;

 

 

    procedure SetMinIPAdress(Value: String);         {   字段数字设置}

    procedure SetMaxIPAdress(Value: String);

    procedure SetIPAdress(Value: String);

 

    function  GetEmpty: Boolean;

    procedure SetActiveField(Value: Byte);

 

 

 

  public                        //属性的声明处

    { Public declarations }

//     TIPAdress = class(TCustomIPAdress)

     //TIPAdress  class(TCustomIPAdress)            ;

 

 

    constructor Create(AOwner: TComponent); override;

    function IPToString(Ip: Longint): String;

    function StringToIP(Value: String): Longint;

    procedure Clear;

    property ActiveField: Byte read FActiveField write SetActiveField;

    property Empty: Boolean read GetEmpty;

 

    property MinIPAdress: String read GetMinIPAdress write SetMinIPAdress;

    property MaxIPAdress: String read GetMaxIPAdress write SetMaxIPAdress;

    property IPAdress: String read GetIPAdress write SetIPAdress;

    property OnIPChange: TIPAdressChangeEvent read FOnIPChange write FOnIPChange;

    property OnIPFieldChange: TIPAdressFieldChangeEvent read FOnIPFieldChange write FOnIPFieldChange;

 

 

 

  published                     //属性的声明处  没有完成？？

                                //  编译出错      ？？？？？？？？？？？

    { Published declarations }

  {  property ActiveField;

    property Empty;

    property MinIPAdress;

    property MaxIPAdress;

    property IPAdress;

    property OnIPChange;

    property OnIPFieldChange;

    property Font;

    property ParentColor;

    property ParentFont;

    property ParentShowHint;

    property PopupMenu;

    property ShowHint;

    property TabOrder;

    property TabStop;

    property Tag;

    property DragCursor;

    property DragMode;

    property HelpContext;    }

 

 

 

 

  end;

 

procedure Register;               组件的注册  为了避免破坏IDE和CUP          ------->安全

 

implementation

 

procedure Register;

begin

  // RegisterComponents('IP', [Ipadress]);

   RegisterComponents('Standard', [TCustomIPAdress]);

    为什么Ipdress 不行啊 [Error] Ipadress.pas(108): '.' expected but ']' found ？？

end;

 

//********************************************/

 

constructor TCustomIPAdress.Create(AOwner: TComponent);

begin  /

  inherited Create(AOwner);

  if NewStyleControls then

    ControlStyle := [csClickEvents, csSetCaption, csDoubleClicks, csFixedHeight]

  else

    ControlStyle := [csClickEvents, csSetCaption, csDoubleClicks, csFixedHeight, csFramed];

 

 

  ParentColor := False;        //属性参数初始化

  FAutoSize := True;

  Width:= 100;

  Height:= 25;

  TabStop:= True;

  FMinIPAdress:= 0;

  FMaxIPAdress:= $0FFFFFFFF;

  FActiveField:= 0;

  FOnIPChange:= nil;

  FOnIPFieldChange:= nil;

end;

 

//*************CreateParams*******************************/

procedure TCustomIPAdress.CreateParams(var Params: TCreateParams);

begin

  InitCommonControl(ICC_INTERNET_CLASSES);

 

  inherited CreateParams(Params);

  CreateSubClass(Params, WC_IPADDRESS);

  with Params do

  begin

    Style := WS_VISIBLE or WS_BORDER or WS_CHILD;

    if NewStyleControls and Ctl3D then

    begin

      Style := Style and not WS_BORDER;

      ExStyle := ExStyle or WS_EX_CLIENTEDGE;

    end;

  end;

end;

 

//*************CNNotify*******************************/

procedure TCustomIPAdress.CNNotify(var Message: TWMNotify);

begin

  with Message.NMHdr^ do begin

    case Code of

      IPN_FIELDCHANGED :

        begin

          FActiveField:= PNMIPAddress(Message.NMHdr)^.iField;

          if Assigned(OnIpFieldChange) then

            with PNMIPAddress(Message.NMHdr)^ do begin

               OnIPFieldChange(Self, iField, iValue);

            end;

        end;

    end;

  end;

end;

 

 

{

 

 ipEdit:=CreateWindow(WC_IPADDRESS,nil,WS_CHILD   or   WS_VISIBLE,91,88,130,23,self.Handle,0,  

                                              hInstance,nil);  

  看一下Windows   的API,这里建立了一个系统注册的类。  

  WC_IPADDRESS就是Ip地址输入框，还可以是其他类型:  

      WC_LISTVIEW   =   'SysListView32';  

      WC_TREEVIEW   =   'SysTreeView32';  

      WC_COMBOBOXEX   =   'ComboBoxEx32';  

      WC_TABCONTROL   =   'SysTabControl32';  

      WC_IPADDRESS                   =   'SysIPAddress32';

      }

 

 

//***********************获取IP地址*********************/

function TCustomIPAdress.GetIPAdress: String;

var Ip: Longint;

begin

  SendMessage(Handle, IPM_GETADDRESS, 0, Longint(@Ip));

  Result:= IPToString(Ip);

end;

 

function TCustomIpadress.GetMinIPAdress: String;

begin

  Result:= IPToString(FMinIPAdress);

end;

 

//***************SetMinIPAdress*****************************/

procedure TCustomIPAdress.SetMinIPAdress(Value: String);

begin

  FMinIPAdress:= StringToIp(Value);

  SendMessage(Handle, IPM_SETRANGE, 0, MakeIpRange(First_IPAddress(FMinIPAdress), First_IPAddress(FMaxIPAdress)));

  SendMessage(Handle, IPM_SETRANGE, 1, MakeIpRange(Second_IPAddress(FMinIPAdress), Second_IPAddress(FMaxIPAdress)));

  SendMessage(Handle, IPM_SETRANGE, 2, MakeIpRange(Third_IPAddress(FMinIPAdress), Third_IPAddress(FMaxIPAdress)));

  SendMessage(Handle, IPM_SETRANGE, 3, MakeIpRange(Fourth_IPAddress(FMinIPAdress), Fourth_IPAddress(FMaxIPAdress)));

end;

 

//**************GetMaxIPAdress******************************/

function TCustomIPAdress.GetMaxIPAdress: String;

begin

  Result:= IPToString(FMaxIPAdress);

end;

 

 

//**************SetMaxIPAdress******************************/

 

{ from  SDK:

  LRESULT SendMessage(

 

    HWND hWnd,       // handle of destination window

    UINT Msg,     // message to send

    WPARAM wParam,       // first message parameter

    LPARAM lParam   // second message parameter

   );

}

 

 

procedure TCustomIpadress.SetMaxIPAdress(Value: String);

begin

 FMaxIPAdress:= StringToIp(Value);

 SendMessage(Handle, IPM_SETRANGE, 0, MakeIpRange(First_IPAddress(FMinIPAdress), First_IPAddress(FMaxIPAdress)));

 SendMessage(Handle, IPM_SETRANGE, 1, MakeIpRange(Second_IPAddress(FMinIPAdress), Second_IPAddress(FMaxIPAdress)));

 SendMessage(Handle, IPM_SETRANGE, 2, MakeIpRange(Third_IPAddress(FMinIPAdress), Third_IPAddress(FMaxIPAdress)));

 SendMessage(Handle, IPM_SETRANGE, 3, MakeIpRange(Fourth_IPAddress(FMinIPAdress), Fourth_IPAddress(FMaxIPAdress)));

end;

 

//**************SetIPAdress******************************/

procedure TCustomIPAdress.SetIPAdress(Value: String);

begin

  SendMessage(Handle, IPM_SETADDRESS, 0, StringToIp(Value));

end;

 

//***********清空*********************************/

function TCustomIPAdress.GetEmpty: Boolean;

begin

  Result:= Boolean(SendMessage(Handle, IPM_ISBLANK, 0, 0));

end;

 

 

//********************************************/

procedure TCustomIPAdress.Clear;

begin

  SendMessage(Handle, IPM_CLEARADDRESS, 0, 0);

end;

 

//***************SetActiveField*****************************/

 

procedure TCustomIPAdress.SetActiveField(Value: Byte);

begin

  if ( Value < 4 ) then begin

    SendMessage(Handle, IPM_SETFOCUS, wParam(Value), 0);

    FActiveField:= Value;

  end;

end;

 

//*************StringToIp*******************************/

function TCustomIPAdress.StringToIp(Value: String): Longint;

var B: Array[0..3] of Byte;

    Str: String;

    i, Cnt : Integer;

begin

  B[0]:= 0;

  B[1]:= 0;

  B[2]:= 0;

  B[3]:= 0;

  Cnt:= 0;

  i:= Pos('.', Value);

  while (Length(Value) > 0) and ( Cnt < 4 ) do begin

    if ( i = 0 ) then i:= Length(Value)+1;

    Str:= Copy(Value, 0, i-1);

    B[Cnt]:= StrToInt(Str);

    Value:= Copy(Value, i+1, Length(Value));

    i:= Pos('.', Value);

    Inc(Cnt);

  end;

  Result:= MakeIPAddress(b[0], b[1], b[2], b[3]);

  ///是定义在CommCtrl中的函数  格式 function   MAKEIPADDRESS(b1,   b2,   b3,   b4:   DWORD):   LPARAM;

 

  {

       Delphi中，是定义在CommCtrl

   

  function   MAKEIPADDRESS(b1,   b2,   b3,   b4:   DWORD):   LPARAM;  

  begin  

      Result   :=   (b1   shl   24)   +   (b2   shl   16)   +   (b3   shl   8)   +   b4;  

  end;  

   

  function   FIRST_IPADDRESS(x:   DWORD):   DWORD;  

  begin   

      Result   :=   (x   shr   24)   and   $FF;

  end;  

 

  function   SECOND_IPADDRESS(x:   DWORD):   DWORD;  

  begin  

      Result   :=   (x   shr   16)   and   $FF;  

  end;  

   

  function   THIRD_IPADDRESS(x:   DWORD):   DWORD;  

  begin   

      Result   :=   (x   shr   8)   and   $FF;  

  end;  

   

  function   FOURTH_IPADDRESS(x:   DWORD):   DWORD;  

  begin  

      Result   :=   x   and   $FF;  

  end;

 

 

  这些是delphi中系统自带的

 

  }

end;

 

//***********IPToString*********************************/

 

function TCustomIPAdress.IPToString(Ip: Longint): String;

begin

  Result:= IntToStr(First_IPAddress(Ip))+'.'+IntToStr(Second_IPAddress(Ip))+'.'+

           IntToStr(Third_IPAddress(Ip))+'.'+IntToStr(Fourth_IPAddress(Ip));

end;

 

//**********CNCommand**********************************/

procedure TCustomIPAdress.CNCommand(var Message: TWMCommand);

begin

  if (Message.NotifyCode = EN_CHANGE) and Assigned(OnIpChange) then

    OnIPChange(Self, IPAdress);

end;

 

 

end.

 
lisiyong
关注
让bug无处藏身，Java 线上问题排查思路、常用工具
wenyusuran的专栏
08-20 1098
本文总结了一些常见的线上应急现象和对应排查步骤和工具。分享的主要目的是想让对线上问题接触少的同学有个预先认知，免得在遇到实际问题时手忙脚乱。 只不过这里先提示一下。在线上应急过程中要记住，只有一个总体目标：尽快恢复服务，消除影响。不管处于应急的哪个阶段，我们首先必须想到的是恢复问题，恢复问题不一定能够定位问题，也不一定有完美的解决方案，也许是通过经验判断，也许是预设开关等，但都可能让我们达到快速恢复的目的，然后保留部分现场，再去定位问题、解决问题和复盘。 在大多数情况下，我们都是先优先恢复服务，保留下当
Class组件详解
baidulixueqin的博客
04-21 1555
Class 组件详解 目录 一.class组件的创建方式 二.props和state 三.生命周期Lifecycle 创建 class 组件 两种方式 第1种.ES5方式(过时) import React from 'react' const A = React.createClass({ render() { return ( <div>hi</div> ) } }) export default A // 由于ES5不支持class,才会有这种方式 第2种.
用Delphi实现IP地址的隐藏 ---转
helodd 的专栏
06-14 1025
用Delphi实现IP地址的隐藏　　一、前言 　　本文主要介绍如何在程序中实现IP地址的隐藏。其实这篇东西不算我写的。其中《IP头结构》部分我懒得打字，故复制、粘贴了孤独剑客的文章，先说声谢谢！代码部分参考了外国程序xes写的一个程序。所以这只是学习过程中的一个副产品。既然程序已经做好了，就顺便放上来跟大家一起交流，共同提高吧。本文只不过想说明一下IP数据的结构和发送机制。如果有人把它改为恶意IP
使用Windows系统提供的IP控件
近山者仁
02-04 1395
本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料：标题：在Delphi中使用IP控件作者：西安交通大学9649# 刘明华在些对原作者的无私奉献表示感谢！如欲转载请保留完整版权信息。如果这篇文章侵犯了您的版权，请来信告诉我们：info@ccrun.comccrun(老妖)(www.ccrun.com)  2003.10.29在网络程序中，我们常常碰到
IP编辑控件
TU2的专栏
02-02 1619
最近需要用一个IP输入控件，网上找了几个，都不符合效果，有些还有一些奇怪的Bug。后来发现原来系统已经提供了IP地址编辑控件，只是系统提供的控件不能设置只读效果。网上找了下资料，封装了一下，自己迂回一下实现了只读效果。 unit ueIPEdit; interface uses System.SysUtils, System.Classes, Vcl.Controls, Winapi.W
Qt VS 自定义组件 多组件合并 控件 插件 静态链接 踩坑指南
Sprite雪碧
10-21 1174
折腾这个花了一天时间，记一文吧~ 环境我用的 Visual Studio + Qt Designer，没有用 Qt Creator，个人习惯问题。 1、首先在 Visual Studio 里创建一个 “Qt Designer Custom Widget” 项目，没有的话先装 Qt 扩展，这里不多赘述。 由于本文是针对“在同一个项目中编写多个自定义组件”，所以后面的命名可供参考，尽量不要以其中一个自定义组件为名字命名。 这里我用的项目名称是 “QtCustomWidgets” ...
React 类组件和函数组件
baidulixueqin的博客
04-19 5085
React 类组件和函数组件 目录 1.类组件和函数组件 2.如何使用 props 和 state 3.如何绑定事件 4.复习 this+ 两个面试题 组件component 一.概念 Element VS Component (元素与组件) //不成文的约定:元素小写，组件大写 const div=React.createElement('div',...) 这是一个React元素(小写) const Div=()=>React.createElement('div',...) 这是一个Rea
自定义事件解决重复请求BUG的问题
08-30
自定义事件详情定义一个模块，里面有n个以回调函数命名的事件对象，每个对象有在被初始化的时候，定义其状态state，对应的callback数组，请求回到的数据data。每次调用该模块，首先检查对应的cbName是否被初始化，...
Delphi来实现一个IP地址输入控件
weixin_34354945的博客
01-08 676
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, CommCtrl, StdCtrls; type TIpEdit = class(TEdit) procedure Create...
ElementUI 之 组件中出现的那些 bug（整理总结中）
倚树探星的博客
02-03 2986
写在前面：文章用于自学，文中有多出引用，均已注明，若有不妥，还请告知，谢谢 文章目录1. el-cascader 级联选择器：高度过高的问题1.1 问题描述1.2 解决方法2. el-pagination 分页：删除最后一页的所有数据后，列表内容为空2.1 问题描述2.2 解决方法3. el-input 文本输入框：@keyup.enter.native和@blur同时绑定handleInpu...
为Delphi/C＋＋Builder增添IP控件
weixin_34128501的博客
12-31 162
在进行网络设置时，我们常常碰到需要填写IP地址的情况，为此Windows引入了一个专门用来接受IP地址输入的控件（如图所示）。Windows IP地址编辑控件（IP Address edit control）是随着微软的Internet Explorer 4.0的推出而引入Windows操作系统的（Windows 98 和Windows 2000中都已经包含了此控件）。但是令人遗憾的是在In...
动态创建一个IPEdit控件
weixin_30655219的博客
04-28 81
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, CommCtrl, StdCtrls; type TIpEdit = class(TEdit) procedure CreateParams...
Ant Design Vue v1.7.2 教程：组件详解与使用
国际化（i18n）章节会介绍如何在应用中实现多语言支持，包括设置默认语言，以及如何添加和切换不同语言包。 常见问题部分通常收集了开发者在使用过程中可能遇到的问题及其解决方案，帮助用户快速解决遇到的困难。 ...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值