Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> А как сделать также? ...или как сделать стоку для ip адреса 
:(
    Опции темы
Bibimij
Дата 20.10.2005, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Прилагается картиночка... smile
Вопрос:как сделать такую же строку ввода, чтобы у каждого октета была своя область, как у Мелкомягкихна картинке(указано красной стрелкой! smile ) smile

Присоединённый файл ( Кол-во скачиваний: 37 )
Присоединённый файл  picture.JPG 37,35 Kb
PM MAIL   Вверх
Bibimij
Дата 20.10.2005, 20:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Народ! Смотреть-то все умеют! Написали бы хоть для приличия что-нибудь... smile

PM MAIL   Вверх
Quadr0
Дата 20.10.2005, 20:53 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:22
  Вверх
Самурай
Дата 20.10.2005, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 20.10.2005
Где: Воронежская облас ть > Семилуки

Репутация: 1
Всего: 1
А разве обычный MaskEdit не подойдет? Ведь можно задать маску, а потом заменить все получившиеся пробелы пустыми символами, благодаря чему мы получим практически такую же форму ввода интформации.
PM MAIL ICQ   Вверх
Quadr0
Дата 20.10.2005, 21:08 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 02:23
  Вверх
Alex
Дата 20.10.2005, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
http://vingrad.ru/DELPHI-DLP-002563


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Самурай
Дата 20.10.2005, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 20.10.2005
Где: Воронежская облас ть > Семилуки

Репутация: 1
Всего: 1
Цитата(Quadr0 @ 20.10.2005, 21:08)
А какой маской ты бы задал ip адрес в MaskEdit?

"!999/999/999;1; "
А потом бы сделал str:=StringRaplace(MaskEdit1.Text, ' ', '', [rfReplaceAll]);
PM MAIL ICQ   Вверх
Bibimij
Дата 21.10.2005, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(Alex @ 20.10.2005, 21:12)
http://vingrad.ru/DELPHI-DLP-002563

Там, конечно же, всё прекрасно, но есть недочёт! Нельзя перемещаться, используя навигациооные клавиши! smile
smile
А теперь вопрос.

Как это сделать?

Это сообщение отредактировал(а) Girder - 21.10.2005, 18:59
PM MAIL   Вверх
DemoCode
Дата 21.10.2005, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 41
лови onKeyDown, например, и если код клавиши = код навигационной клавише устанавливай курсор в следующую позицию


--------------------
Жить стало лучше, жить стало веселей
© И.В. Сталин 
PM MAIL ICQ   Вверх
Bibimij
Дата 21.10.2005, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(DemoCode @ 21.10.2005, 19:03)
лови onKeyDown, например, и если код клавиши = код навигационной клавише устанавливай курсор в следующую позицию

Это я и без тебя понял! Делоне в этом, а в том, что я не совсем разобрался с кодом и не знаю где можно управлять курсором! smile smile smile Кто-нибудь подскажите!
PM MAIL   Вверх
Самурай
Дата 21.10.2005, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 20.10.2005
Где: Воронежская облас ть > Семилуки

Репутация: 1
Всего: 1
Цитата(Bibimij @ 21.10.2005, 20:45)
не знаю где можно управлять курсором!

Вот пример:
Код

procedure TForm1.Edit1Change(Sender: TObject);
begin
 Edit1.SelStart:=1
end;

После изменения текста в компоненте Edit курсор будет всегда ставиться за первую букву (в общем случае символ).
PM MAIL ICQ   Вверх
DemoCode
Дата 22.10.2005, 08:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 41
Вот как примерно это может быть реализовано:
Я написал пример только для клавиши ("стрелка вправо"), для "влево" тоже самое только наоборот. Используется компонент TMaskEdit.

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
   MaskEdit1.EditMask:='999.999.999.999';
end;

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   I, P: Integer;
   S: string;
begin
   // Если нажата клавиша "вправо"
   if Key = VK_Right then
   begin
      // Узнаем где сейчас находится курсор
      P:=MaskEdit1.SelStart;
      // Ищем ближайшую точку справа (если она есть) и устанавливаем курсор за ней
      for I:=P+1 to Length(MaskEdit1.Text)-1 do
      begin
        S:=Copy(MaskEdit1.Text,I,1);
        if S = '.' then
        begin
           MaskEdit1.SelStart:=I;
           break;
        end;
      end;
   end;
end;


Это сообщение отредактировал(а) DemoCode - 22.10.2005, 08:26


--------------------
Жить стало лучше, жить стало веселей
© И.В. Сталин 
PM MAIL ICQ   Вверх
Stolzen
Дата 25.10.2005, 04:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1041
Регистрация: 17.10.2005

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

Код

 if StrToInt((Sender as TEdit).Text) > 255 then
  (Sender as TEdit).Text := '255';

 if Length((Sender as TEdit).Text) = 3 then nsip2.SetFocus;





--------------------
datatalks.ru - анализ данных, статистика, машинное обучение
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0510 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.