Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-10741
Fog
2003-08-19 19:00
2003.09.04
Синтаксис RTF


1-10764
acsoft
2003-08-24 12:14
2003.09.04
Вопросы по TWebBrowser


3-10646
andy-ivt
2003-08-15 13:16
2003.09.04
Выборка данных из TTable


14-10923
Романов Р.В.
2003-08-16 22:27
2003.09.04
Есть собаководы среди программистов?


7-10999
tan
2003-06-20 10:22
2003.09.04
считывание с COM-порта с помощью int14?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский