Скачать: CL | DM;

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

← →
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]

Наверное...

---

← →
Marser ©   (2003-08-20 01:50) [7]

> clickmaker ©

Скорее от TCustomEdit...

> Юрий Федоров © (19.08.03 17:45) [5]

:-)

---

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

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

---

← →
Ученик ©   (2003-08-20 07:55) [9]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c