客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
http://www.ithome-cn.net/technology/delphi/de085.htm
一、IP控件的属性、方法及事件本文将为Delphi/C＋＋ Builder的IP控件实现下面的属性、方法和事件。它们的简单介绍如下： IP属性：IP控件中的IP地址值(32位整数LongWord)。为了获取IP控件的IP值，我们只需要读取此属性即可；通过对IP属性赋值，我们就能够改变IP控件的内容。 Field0..Field3属性：Field0到Field3分别为IP控件的4个部分的值。这四个属性也是为了读取和改变IP控件的IP值而设置的。 Field0Range..Field3Range 属性：Field0Range到 Field3Range限制IP控件各部分的取值的范围。 Blank属性：判断IP控件的IP串是否为空，此属性为只读属性。 About属性：在Object Inspector中点击它可以显示控件的版本信息，添加此属性是为了提供一个编写属性编辑器的简单例子。 以下属性继承自TWinControl类：Font、TabOrder、 TabStop、 ParentShowHint、ShowHint、Hint及Visible。 TIPEdit的事件属性有：OnFieldChange、OnChange、 OnEnter以及OnExit。 Clear方法：清空IP控件中的IP串。 SetFieldFocus方法：设置IP控件的输入焦点。 二、IP控件的实现
//文件名：IPEdit.PAS
{～～～～～～～～～～～～～～～～～～～～～～～}
// IP address edit control for Borland Delphi 5
// Implemented by Simon Liu ([email protected])
{～～～～～～～～～～～～～～～～～～～～～～～}
unit IPEdit;
interface
uses Windows, Messages, SysUtils, Classes,
Forms, Controls, ComCtrls, CommCtrl, DsgnIntf;
type
TFieldRange = record
LowRange: Byte;
HighRange: Byte;
end;
TFieldChangeEvent = procedure(Sender: TObject;
OldField, Value: Byte) of Object;
//定义TAboutProperty属性编辑器
TAboutProperty = class(TPropertyEditor)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes;override;
function GetValue: string; override;
end;
TIPEdit = class(TWinControl)
private
fAbout:TAboutProperty;
FIP: LongWord;
FFields:array[0..3] of Byte;
FFieldRanges: array [0..3] of TFieldRange;
FCreating: Boolean;
FOnChange: TNotifyEvent;
FOnEnter: TNotifyEvent;
FOnExit: TNotifyEvent;
FOnFieldChange: TFieldChangeEvent;
procedure SetIP(Value: LongWord);
function GetIP: LongWord;
function GetField(Index:Integer):Byte;
procedure SetField(Index:Integer; B:Byte);
function GetFieldRange(Field: Integer):
TFieldRange;
procedure SetFieldRange(Field:integer; Value:
TFieldRange);
procedure SetIPAddress;
function GetBlank: Boolean;
procedure WMNotifyFormat(var Message: TMessage);
message WM_NOTIFYFORMAT;
//处理IP控件的通知消息IPN_FIELDCHANGED
procedure CNNotify(var Message: TWMNotify);
message CN_NOTIFY;
procedure CNCommand(var Message: TWMCommand);
message CN_COMMAND;
procedure WMSetFont(var Message: TWMSetFont);
message WM_SETFONT;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure DestroyWnd; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
//清除IP控件中的IP串
procedure Clear;
//设置IP控件的输入焦点（field的有效取值为0..3）
procedure SetFieldFocus(Field:Byte);
published
//判断IP控件的IP串是否为空
property Blank: Boolean read GetBlank;
//Field0到Field3分别为IP控件的4个部分的值
property Field0: Byte index 0 read
GetField write SetField;
property Field1: Byte index 1 read
GetField write SetField;
property Field2: Byte index 2 read
GetField write SetField;
property Field3: Byte index 3 read
GetField write SetField;
//Field0Range到Field3Range
限制IP控件各部分的取值的范围
property Field0Range: TFieldRange index 0 read
GetFieldRange write SetFieldRange;
property Field1Range: TFieldRange index 1 read
GetFieldRange write SetFieldRange;
property Field2Range: TFieldRange index 2 read
GetFieldRange write SetFieldRange;
property Field3Range: TFieldRange index 3 read
GetFieldRange write SetFieldRange;
//IP地址值(32位整数LongWord)
property IP: LongWord read GetIP write SetIP;
//The About box
property About:TAboutProperty read fAbout;
//事件属性
property OnChange: TNotifyEvent read FOnChange write
FOnChange;
property OnEnter: TNotifyEvent read FOnEnter write
FOnEnter;
property OnExit: TNotifyEvent read FOnExit write
FOnExit;
property OnFieldChange: TFieldChangeEvent read
FOnFieldChange
write FOnFieldChange;
//以下属性继承自TWinControl控件
property Enabled;
property TabOrder;
property TabStop;
property ParentShowHint;
property ShowHint;
property Hint;
property Visible;
end;
procedure Register;
implementation
{～～～～～TAboutProperty～～～～～～～～～～～}
procedure TAboutProperty.Edit;
begin
Application.MessageBox(
‘TIPEdit for Delphi 5'＃13
＋‘(C) 2000 by Simon Liu'＃13
＋‘Email:[email protected]',
‘About TIPEdit',MB_ICONINFORMATION);
end;
function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;
function TAboutProperty.GetValue: string;
begin
Result := ‘(Simon)';
end;
{～TIPEdit～～～～～～～～～～～～～～～～～～}
constructor TIPEdit.Create(AOwner: TComponent);
var
i: integer;
begin
//初始化ICC_INTERNET_CLASSES类控件
CheckCommonControl(ICC_INTERNET_CLASSES);
inherited Create(AOwner);
for i:= 0 to 3 do
begin
FFieldRanges[i].LowRange:= 0;
FFieldRanges[i].HighRange:= 255;
FFields[i]:=0;
end;
FIP:=0;
Height:= 25;
Width:= 152;
TabSTop:= True;
end;
procedure TIPEdit.DestroyWnd;
begin
inherited DestroyWnd
end;
destructor TIPEdit.Destroy;
begin
inherited Destroy;
end;
procedure TIPEdit.CreateParams(var Params:
TCreateParams);
begin
inherited CreateParams(Params);
CreateSubClass(Params, WC_IPADDRESS);
with Params do
begin
end;
end;
procedure TIPEdit.CreateWnd;
begin
FCreating := True;
try
inherited CreateWnd;
SetIPAddress;
finally
FCreating := False;
end;
end;
function TIPEdit.GetBlank: Boolean;
begin
Result:= Boolean(SendMessage(Handle, IPM_ISBLANK, 0, 0));
end;
procedure TIPEdit.Clear;
begin
SendMessage(Handle, IPM_CLEARADDRESS, 0, 0);
end;
procedure TIPEdit.SetFieldFocus(Field:Byte);
begin
SendMessage(Handle, IPM_SETFOCUS, Field, 0);
end;
function TIPEdit.GetFieldRange(Field: Integer): TFieldRange;
begin
Result:= FFieldRanges[Field];
end;
procedure TIPEdit.SetFieldRange(Field: Integer;
Value: TFieldRange);
begin
if Value.LowRange > Value.HighRange then exit;
if (FFieldRanges[Field].LowRange <> Value.LowRange) or
(FFieldRanges[Field].HighRange <> Value.HighRange) then
begin
FFieldRanges[Field]:= Value;
SendMessage(Handle, IPM_SETRANGE, Field,
MakeIPRange(Value.LowRange, Value.HighRange));
end;
end;
function TIPEdit.GetField(Index: Integer): Byte;
begin
if (Index>=0)and(Index<=3) then Result:=FFields[Index]
else Result:=0;
end;
procedure TIPEdit.SetField(Index:Integer; B:Byte);
begin
if (FFields[Index] <> B)then
begin
FFields[Index]:=B;
SetIPAddress;
end;
end;
procedure TIPEdit.SetIPAddress;
var
i:LongWord;
begin
i:=MAKEIPADDRESS(FFields[0], FFields[1], FFields[2],
FFields[3]);
SendMessage(Handle, IPM_SETADDRESS, 0, i);
FIP:=i;
end;
procedure TIPEdit.SetIP(Value: LongWord);
begin
if (FIP <> Value) then
begin
FFields[0]:= First_IPAddress(Value);
FFields[1]:= Second_IPAddress(Value);
FFields[2]:= Third_IPAddress(Value);
FFields[3]:= Fourth_IPAddress(Value);
SetIPAddress;
end;
end;
function TIPEdit.GetIP: LongWord;
begin
SendMessage(Handle, IPM_GETADDRESS, 0,Integer(@Result));
end;
procedure TIPEdit.WMSetFont(var Message: TWMSetFont);
begin
//不可以调用父控件的此方法
//否则，控件不能正常工作
end;
procedure TIPEdit.WMNotifyFormat(var Message:
TMessage);
begin
with Message do
Result := DefWindowProc(Handle, Msg, WParam, LParam);
end;
procedure TIPEdit.CNNotify(var Message: TWMNotify);
var
pNM: PNMIPAddress;
begin
with (Message.NMHdr)^ do
begin
case Code of
IPN_FIELDCHANGED:
begin
pNM:=PNMIPADDRESS(Message.NMHdr);
if (pNM^.iField>=0)and(pNM^.iField<=3) then
FFields[pNM^.iField]:=pNM^.iValue;
if Assigned(FOnFieldChange) then
FOnFieldChange(self, pNM^.iField, pNM^.iValue);
end;
end;
end;
end;
procedure TIPEdit.CNCommand(var Message: TWMCommand);
begin
case Message.NotifyCode of
EN_CHANGE:
begin
if not FCreating then
if Assigned(FOnChange) then FOnChange(self);
end;
EN_KILLFOCUS: if Assigned(FOnExit) then FOnExit(self);
EN_SETFOCUS: if Assigned(FOnEnter) then FOnEnter(self);
end;
end;
//注册TIPEdit控件以及TAboutProperty属性编辑器
procedure Register;
begin
RegisterComponents(‘Simon', [TIPEdit]);
RegisterPropertyEditor(typeInfo(TAboutProperty),
TIPEdit, ‘ABOUT', TAboutProperty);
end;
end.
作者：cker此控件简单封装了老妖所列的Common Control
#include <CommCtrl.hpp>
#include <ComCtrls.hpp>
class TIPAddress;
Word __fastcall MakeIPRange(Byte Low, Byte High)
{
return Word((Word(High) < < 8) + Word(Low));
}
unsigned __fastcall MakeIPAddress(Byte b1, Byte b2, Byte b3, Byte b4)
{
return Word((Word(b1) < < 24)+(Word(b2) < < 16)+(Word(b3) < < 8)+(Word(b4)));
}
Byte __fastcall First_IPAddress(unsigned X)
{
return Byte((X > > 24) & 0x0FF);
}
Byte __fastcall Second_IPAddress(unsigned X)
{
return Byte((X > > 16) & 0x0FF);
}
Byte __fastcall Third_IPAddress(unsigned X)
{
return Byte((X > > 8) & 0x0FF);
}
Byte __fastcall Fourth_IPAddress(unsigned X)
{
return Byte(X & 0x0FF);
}
typedef void __fastcall (__closure *TIPAddressFieldChangeEvent)(TIPAddress* Sender, Byte OldField, Byte Value);
typedef void __fastcall (__closure *TIPAddressChangeEvent)(TIPAddress* Sender, AnsiString IPAddress);
class TIPAddress : public TWinControl
{
private:
TIPAddressChangeEvent FOnIPChange;
TIPAddressFieldChangeEvent FOnIPFieldChange;
int FMinIPAddress;
int FMaxIPAddress;
Byte FActiveField;
bool FAutoSize;
void __fastcall CNNotify(TWMNotify &Message); //CN_NOTIFY;
void __fastcall CNCommand(TWMCommand &Message); //CN_COMMAND;
protected:
virtual void __fastcall CreateParams(TCreateParams &Params);
AnsiString __fastcall GetMinIPAddress();
AnsiString __fastcall GetMaxIPAddress();
AnsiString __fastcall GetIPAddress();
void __fastcall SetMinIPAddress(AnsiString Value);
void __fastcall SetMaxIPAddress(AnsiString Value);
void __fastcall SetIPAddress(AnsiString Value);
bool __fastcall GetEmpty();
void __fastcall SetActiveField(Byte Value);
void __fastcall WndProc(TMessage &Message);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(CN_NOTIFY, TWMNotify, CNNotify);
VCL_MESSAGE_HANDLER(CN_COMMAND, TWMCommand, CNCommand);
END_MESSAGE_MAP(TWinControl);
public:
virtual __fastcall TIPAddress(TComponent* AOwner);
AnsiString __fastcall IPToString(int Ip);
int __fastcall StringToIP(AnsiString Value);
void __fastcall Clear();
__published:
__property Byte ActiveField = {read = FActiveField, write = SetActiveField};
__property bool Empty = {read = GetEmpty};
__property AnsiString MinIPAddress = {read = GetMinIPAddress, write = SetMinIPAddress};
__property AnsiString MaxIPAddress = {read = GetMaxIPAddress, write = SetMaxIPAddress};
__property AnsiString IPAddress = {read = GetIPAddress, write = SetIPAddress};
__property TIPAddressChangeEvent OnIPChange = {read = FOnIPChange, write = FOnIPChange};
__property TIPAddressFieldChangeEvent OnIPFieldChange = {read = FOnIPFieldChange, write = FOnIPFieldChange};
__property Font;
__property ParentColor;
__property ParentFont;
__property ParentShowHint;
__property PopupMenu;
__property ShowHint;
__property TabOrder;
__property TabStop;
__property Tag;
__property DragCursor;
__property DragMode;
__property HelpContext;
};
void __fastcall TIPAddress::WndProc(TMessage &Message)
{
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论