zoukankan      html  css  js  c++  java
  • Delphi来实现一个IP地址输入控件

    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.
  • 相关阅读:
    项目三.
    项目二
    项目一.
    第三季-第27课-Shell脚本高级编程
    第三季-第26课-守护进程设计
    第三季-第26课-网络并发服务器设计
    第三季-第25课-UDP通讯程序设计
    刷新页面
    css让超出文字省略号
    css3 背景透明
  • 原文地址:https://www.cnblogs.com/MaxWoods/p/3799416.html
Copyright © 2011-2022 走看看