Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизТекстовое поле для ввода айпишника??? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c