Текстовое поле для ввода айпишника???

← →
Valeris (2003-08-19 16:23) [0]

Как сделать сабж?

Спасибо

← →
Vlad © (2003-08-19 16:29) [1]

TMaskEdit.EditMask см. Help там подробно все описано.

← →
wl © (2003-08-19 16:37) [2]

А вот интересно, в Визуал С++ есть такой компонент, так вот он через МаскЭдит сделан, или это отдельный такой компонент?

← →
clickmaker © (2003-08-19 16:42) [3]

В Визуал С++ (в MFC) он сделан на основе стандартного виндозного IP Control"а из comctl32.dll
В принципе, можно и в Дельфе на его основе написать компонентик. Унаследовать от TEdit, только CreateParams переопределить для создания нужного окна

← →
Крот © (2003-08-19 17:38) [4]

> clickmaker © (19.08.03 16:42) [3]

А почему не от TWinControl?

← →
Юрий Федоров © (2003-08-19 17:45) [5]

>>Крот © (19.08.03 17:38) [4]
наверно чтобы св-во text сразу было

← →
Mr&MsGuns REAL (2003-08-20 00:18) [6]

Наверное...

← →
Голова (2003-08-20 07:51) [8]

В наборе JEDI есть такой компанент

unit IPAddr;

interface

uses
Classes, Controls;

type
TIPAddress = class(TWinControl)
private

protected
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(AOwner: TComponent); override;
published
property Anchors;
property BiDiMode;
property Constraints;
property Enabled;
property Font;
property Hint;
property ParentBiDiMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property TabStop;
property Text;
property Visible;
property OnContextPopup;
property OnEnter;
property OnExit;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
end;

implementation

uses
ComCtrls, CommCtrl;

{ TIPAddress }

constructor TIPAddress.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Width := 100;
Height := 20;
TabStop := True;
end;

procedure TIPAddress.CreateParams(var Params: TCreateParams);
begin
InitCommonControl(ICC_INTERNET_CLASSES);
inherited CreateParams(Params);
CreateSubClass(Params, WC_IPADDRESS);
end;

end.

Текстовое поле для ввода айпишника??? Найти похожие ветки