IP地址输入框是怎么做的？

2001-03-08 11:26:00 353 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再硬拔了！用这3个终端命令轻松搞定Mac上移动硬盘‘被程序占用’的问题本文介绍了3个终端命令解决Mac上移动硬盘‘被程序占用’的问题，包括使用`diskutil list`定位硬盘、`lsof`查找占用进程以及`diskutil unmount`安全卸载。这些方法能有效避免数据风险，提升操作效率，特别适合开发者和技术爱好者。阅读详情

...全文

从 0 到 1，实战 Power BI 电商销售可视化看板全流程本文详细介绍了从零开始使用Power BI构建电商销售可视化看板的全流程，涵盖数据准备、建模、可视化设计及高级功能应用。通过实战案例展示如何将复杂销售数据转化为直观图表，帮助电商从业者快速掌握销售趋势、热销产品和用户画像等关键信息，提升数据分析效率。阅读详情

Thread

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

yhec 2001-03-14

打赏
举报

有点吓人，VCL应封装一下这个控件

italian 2001-03-08

打赏
举报

我也学会了。谢谢。

BCB 2001-03-08

打赏
举报

前一个方案，报上介绍过，实在太长，没有必要；
后一个方案，用TMaskEdit控件：
1.将TMaskEdit的Font设成“宋体”，否则，点与点太近，就不像了；
2.将TMaskEdit的EditMask设成： 999.999.999.999;1;
3.在设置EditMask将Character for Blanks的下划线一定要去掉(要反复几次)；

2001Sky 2001-03-08

打赏
举报

同意

yhec 2001-03-08

打赏
举报

API中有专门的IP控件支持，
但DELPHI中没有直接控件支持，可用TMaskEdit模拟，可以仿得一模一样

Haha_kylix 2001-03-08

打赏
举报

装上试试吧，这只是一个非常简单的实现
unit IpAddress;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, CommCtrl, ComCtrls, Controls,
Forms, Dialogs;

type
TIpAddress = class(TWinControl)
private
{ Private declarations }
FIPValue:DWORD;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure CreateWnd; override;
procedure DestroyWnd; override;
//procedure WMSize(var Message:TWMSize);Message WM_SIZE;
public
constructor Create(AOwner: TComponent); override;
procedure SetIPValue(Value:DWORD);
procedure Clear;
published
{ Published declarations }
property Align;
property Anchors;
property BorderWidth;
property Color;
property Font;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Hint;
property Constraints;
property ParentShowHint;
property IPValue:DWORD read FIPValue write SetIPValue;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Visible;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;

procedure Register;

implementation

procedure TIpAddress.CreateParams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
CreateSubclass(Params,WC_IPADDRESS);
end;

procedure TIpAddress.CreateWnd;
begin
Inherited CreateWnd;
end;

procedure TIpAddress.DestroyWnd;
begin
Inherited DestroyWnd;
end;

constructor TIpAddress.Create(AOwner: TComponent);
begin
InitCommonControl(ICC_INTERNET_CLASSES);
Inherited Create(AOwner);
Height:=24;
Width:=120;
FIPValue:=0;
end;

{
procedure TIpAddress.WMSize(var Message:TWMSize);
begin
if HandleAllocated then
begin
Inherited;
SendMessage(Handle,IPM_SETADDRESS,0,FIPValue);
end;
end;
}
procedure TIpAddress.SetIPValue(Value:DWORD);
begin
if Value<>FIPValue then
begin
FIPValue:=Value;
SendMessage(Handle,IPM_SETADDRESS,0,Value);
end;
end;

procedure TIpAddress.Clear;
begin
SendMessage(Handle,IPM_CLEARADDRESS,0,0);
end;

procedure Register;
begin
RegisterComponents('Gan', [TIpAddress]);
end;

end.

IP地址输入框是怎么做的？

相关推荐