VPF::маска ввода для IP - Форум программистов

Fhusy

Дата 30.6.2010, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 16.11.2006

Репутация: нет
Всего: нет

здарова народ! вот решил сделать маску ввода для IP, как в винде. Утилитой Enbtn, которая показывает класс объекта над которым наводишь мышку, оказалось что все поле ввода для Ip в винде это Button. странно.
вот что наваял я.

Код


procedure TForm2.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var j,a:integer;
begin
inc(i);
   if (i mod 3=0)and(i<>0)then begin
      edit1.Text:=edit1.Text+'.';
      sendmessage(edit1.Handle,wm_keydown,$23,0);
   end;
end;

после ввода третьего символа в поле добавляется точка и так как после этого каретка откатывается в начало поля посылается сообщение клавиши end, но как сделать так чтоб точки были фиксироваными как в винде?

Letov

Дата 30.6.2010, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4

Может было бы оптимальнее сделать ввод IP через MaskEdit?

--------------------

Не бывает плохих языков программирования. Бывают плохие программисты...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »