![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Аналог TDBEdit c нормальной маской для ввода ip адреса. [D7, access]
DVM © (2006-05-23 13:38:00)Нет ли у кого готового?
ORMADA (2006-05-24 11:02:00) [1]юзай Jedi там есть
DVM (2006-05-23 18:37:00) [2]
> ИМХО, маскэдиты - зло
почему?
> А "удобный" это какой?
Типа как в свойствах сетевого соединения Windows - TCP/IP
Я конечно могу сам проверять введенное пользователем, просто думал может есть решение готовое.
А маску не создать в стандартном эдите нужную.
novill (2006-05-23 18:27:00) [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 13:57:00) [4]
> Desdechado © (23.05.06 13:51) [1]
Вы не поняли. Стандартными масками не добиться удобного ввода IP.
Сама MS комбинирует поле ввода IP - адреса из 4 Edit-ов.
Desdechado (2006-05-23 13:51:00) [5]FieldByName('IP').EditMask