Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.308 RSS
←   Октябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
30.10.2007
14:57:39
15:12:53
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.308 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 963
от 24.10.2007, 16:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 458, Экспертов: 60
В номере:Вопросов: 1, Ответов: 2

Вопрос № 105946: Здравствуйте, я тут не могу реализовать один момент на делфи (в приложении), надо чтобы пользователь ввел в Combobox ник, отве чающий условиям этим. Заранее спасибо кто поможет...

Вопрос № 105.946
Здравствуйте, я тут не могу реализовать один момент на делфи (в приложении), надо чтобы пользователь ввел в Combobox ник, отве чающий условиям этим.
Заранее спасибо кто поможет

Приложение:

Отправлен: 18.10.2007, 16:29
Вопрос задал: Исаак Моисеевич (статус: 2-ой класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 11)
Отвечает: Виктор Пырлик
Здравствуйте, Исаак Моисеевич!

Используйте событие OnKeyPress компонента ComboBox для запрета/контроля вводимых символов


procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in [#27,#8]) then //можно редактировать
begin
if Length(ComboBox1.Text)>16 then Key := #0 //если длина больше 16 уходим
else if(ComboBox1.SelStart=0)then //если первый симол
if (Key in ['.','-','_'])then Key := #0;//запрешаем эти знаки
end;
end;


или проверку полного введенного имени по событию OnExit

procedure TForm1.ComboBox1Exit(Sender: TObject);
var s:String;
begin
s := ComboBox1.Text;
if(Length(s)>16) then // если длина больше 16
begin
MessageBox(GetActiveWindow,'Введено длинное имя','Ошибка имени',MB_OK+MB_ICONWARNING);
ComboBox1.SetFocus;
end
else if( s[1] in ['.','-','_']) then // тут не допустимые символы
begin
ComboBox1.SelStart := 0;
ComboBox1.SelLength := 1;
MessageBox(GetActiveWindow,'Введено неверное имя','Ошибка имени',MB_OK+MB_ICONWARNING);
ComboBox1.SetFocus;
end;
end;


---------
Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Практикант)
Ответ отправлен: 18.10.2007, 18:19
Оценка за ответ: 5
Комментарий оценки:
Я сделал с первым вариантом - там кода меньше, следовательно памяти меньше занимать будет программа.
Отвечает: Degtyarev Anton
Здравствуйте, Исаак Моисеевич!

Можете попробовать вот эту функцию, в её параметры нужно пуказать ваш КомбоБокс
Не забудте её объявить

Приложение:

---------
Сколько волка не корми, а слон всё равно толще

Ответ отправил: Degtyarev Anton (статус: 1-ый класс)
Ответ отправлен: 19.10.2007, 10:38
Оценка за ответ: 5

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.61.1 от 16.10.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное