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

Аналог TDBEdit c нормальной маской для ввода ip адреса.   Найти похожие ветки 

← →
DVM ©   (2006-05-23 13:38) [0]

Нет ли у кого готового?

---

← →
Desdechado ©   (2006-05-23 13:51) [1]

FieldByName("IP").EditMask

---

← →
DVM ©   (2006-05-23 13:57) [2]

> Desdechado ©   (23.05.06 13:51) [1]

Вы не поняли. Стандартными масками не добиться удобного ввода IP.
Сама MS комбинирует поле ввода IP - адреса из 4 Edit-ов.

---

← →
novill   (2006-05-23 18:27) [3]

А "удобный" это какой?

ИМХО, маскэдиты - зло

это на Кейпресс

if not (key in [ #0.." ",".","0".."9"]) then key:=#0;

а это на  эксайт.

var sl:TStringList; i:integer; t:integer;
begin
try
 sl:=TStringList.Create;
 sl.Delimiter:=".";
 sl.DelimitedText :=Edit1.Text;
 if Edit1.Text="" then begin Edit1.SetFocus; Exit; end;

 for i:=0 to sl.Count-1 do
  if not TryStrToInt(sl[i],t) or not(t in [0..255]) then begin Edit1.SetFocus; Exit; end;
finally
 sl.free;
end;

---

← →
DVM ©   (2006-05-23 18:37) [4]

> ИМХО, маскэдиты - зло

почему?

> А "удобный" это какой?

Типа как в свойствах сетевого соединения Windows - TCP/IP
Я конечно могу сам проверять введенное пользователем, просто думал может есть решение готовое.
А маску не создать в стандартном эдите нужную.

---

← →
ORMADA ©   (2006-05-24 11:02) [5]

юзай Jedi там есть

---

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

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



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