Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/25: Рейтинг темы: голосов - 25, средняя оценка - 4.56
79 / 34 / 6
Регистрация: 11.11.2010
Сообщений: 496

Всплывающая подсказка при вводе в Edit

30.06.2013, 17:59. Показов 5538. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нашел код в интернете:

C++
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TStringList * words;                           // список возможных подсказок
 
// функция возвращает many символов строки s, начиная с beg
AnsiString SubStr(AnsiString s, int beg, int many)
{
 AnsiString ret;                                 // возвращаемое значение
 char ss[80]; strcpy(ss,s.c_str());    
 for(int i=beg;i<beg+many;i++)
   ret += ss[i];
 return ret;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 words = new TStringList;
 words->Sorted = true;
 words->Add("one");         // добавление в список
 words->Add("two");
 words->Add("four");
 words->Add("five");
 words->Add("six");
 words->Add("seven");
 words->Add("eight");
 words->Add("nine");
 words->Add("ten");        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 AnsiString w,full;
 int SelSt,i;
 char s[80];
 switch(Key)
 {
   case VK_RETURN:
   case VK_TAB:
       Edit1->SelStart = Edit1->SelStart + Edit1->SelLength;
       Edit1->SelLength = 0; return;           // записывание подсказки
   case VK_DELETE:
   case VK_BACK:
       Edit1->ClearSelection(); return;        // снятие выделения
 }
 strcpy(s,Edit1->Text.c_str());
 i = SelSt = Edit1->SelStart;
 if ((strlen(s) > i) && (s[SelSt-i] != 0)) return;
 w = "";
 while ((i >= 1) && (s[i-1] != 0))
 { w += s[SelSt-i]; i-=1; }
 if (w.Length() <= 0) return;
 words->Find(w, i);                       // найдет строку с началом w и
                                                   // ее индекс запишется в i
 if ((i >= 0) && (UpperCase(SubStr(words->Strings[i], 0, w.Length())) == UpperCase(w)))
 {
   full = words->Strings[i];
   AnsiString e = w;
   e.Insert(SubStr(full, w.Length(), full.Length()-1), SelSt+1);  // добавление подсказки
   Edit1->Text = e;
   Edit1->SelStart = SelSt;
   Edit1->SelLength = full.Length() - w.Length();
 }
}
//---------------------------------------------------------------------------


Код работает, но при использовании русскоязычных подсказок нет. Как его можно подружить с русским языком?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.06.2013, 17:59
Ответы с готовыми решениями:

Ограничение ввода русских букв в Edit. Всплывающая подсказка над Edit'ом
Добрый день, обращаюсь за помощью по следующим двум вопросам. 1) В Edit нужно чтобы вводились только буквы англ. и рус. void __fastcall...

Всплывающая подсказка при наведении курсора на компонент
Возник еще один вопрос: как сделать, что бы при подводе стрелочки мышки к Label1 - появлялась подсказка? Ну, всмысле как ссылка в...

Нужна всплывающая подсказка при наведении мыши на Image.
Нужна всплывающая подсказка при наведении мыши на Image.

12
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
30.06.2013, 21:25
Цитата Сообщение от maest Посмотреть сообщение
Нашел код в интернете:
Выкинь - писал калека....

Объясни что конкретно требуется.
0
79 / 34 / 6
Регистрация: 11.11.2010
Сообщений: 496
30.06.2013, 21:35  [ТС]
Нужно чтобы при вводе в Edit были подсказки(из заранее составленного списка), например, как в поисковых системах. Т.е. чтобы упростить ввод данных.
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
30.06.2013, 21:41
Используй свойство Hint либо компонент BalloonHint для подсказок...

Все остальное зависит от конкретной логики.

Да есть еще ComboBox, а то в друг вы велосипед решили изобретать...

Добавлено через 2 минуты
http://helpdelphi.ru/balloonhint/
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
30.06.2013, 22:54
Avazart, не. Наверное имеется ввиду не всплывающая подсказка, а автодописывание. Типа пишешь "Почему Путин " а Edit тебе сам дописывает "краб".
0
79 / 34 / 6
Регистрация: 11.11.2010
Сообщений: 496
01.07.2013, 00:16  [ТС]
SatanaXIII, вы правильно меня поняли.
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
01.07.2013, 08:51
maest, да вроде все работает.
C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 words = new TStringList;
 words->Sorted = true;
 words->Add("ноль");         // добавление в список
 words->Add("один");
 words->Add("фенрир");
 words->Add("тор");
}
0
79 / 34 / 6
Регистрация: 11.11.2010
Сообщений: 496
01.07.2013, 09:40  [ТС]
SatanaXIII, в StringList нормально все добавляется, а когда начинаешь писать в Edit, автодописывание не работает. С англоязычными словами все прекрасно работает.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33193 / 21489 / 8233
Регистрация: 22.10.2011
Сообщений: 36,876
Записей в блоге: 12
01.07.2013, 09:47
UpperCase замени на AnsiUpperCase, как минимум...
1
79 / 34 / 6
Регистрация: 11.11.2010
Сообщений: 496
01.07.2013, 11:06  [ТС]
UI, в C++ Builder 6 заработало, а вот в XE3 не хочет.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33193 / 21489 / 8233
Регистрация: 22.10.2011
Сообщений: 36,876
Записей в блоге: 12
01.07.2013, 11:15
В XE2 даже первоначальный вариант не работает (с английскими словами), если что...
0
79 / 34 / 6
Регистрация: 11.11.2010
Сообщений: 496
01.07.2013, 11:33  [ТС]
Цитата Сообщение от UI Посмотреть сообщение
В XE2 даже первоначальный вариант не работает (с английскими словами), если что...
И в чем может быть проблема?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33193 / 21489 / 8233
Регистрация: 22.10.2011
Сообщений: 36,876
Записей в блоге: 12
01.07.2013, 11:57
maest, вот это заработало на XE2:

C++
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#include <StrUtils.hpp>
 
// ...
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    words = new TStringList;
    words->Sorted = true;
    words->Add(L"одиннадцать");         // добавление в список
    words->Add(L"двенадцать");
    words->Add(L"тринадцать");
    words->Add(L"двадцать");
    words->Add(L"six");
    words->Add(L"seven");
    words->Add(L"eight");
    words->Add(L"nine");
    words->Add(L"ten");
}
 
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
    String w, full;
    int SelSt, i;
    wchar_t s[80];
 
    TEdit *edit = dynamic_cast<TEdit*>(Sender);
 
    switch(Key)
    {
        case VK_RETURN:
        case VK_TAB:
            edit->SelStart = edit->SelStart + edit->SelLength;
            edit->SelLength = 0;
            return; // записывание подсказки
        case VK_DELETE:
        case VK_BACK:
            edit->ClearSelection();
            return; // снятие выделения
    }
 
    wcscpy(s,edit->Text.c_str());
    i = SelSt = edit->SelStart;
    if ((wcslen(s) > i) && (s[SelSt-i] != 0)) return;
    w = "";
    while ((i >= 1) && (s[i-1] != 0))
    { w += s[SelSt-i]; i-=1; }
 
    if (w.Length() <= 0) return;
    words->Find(w, i); // найдет строку с началом w и ее индекс запишется в i
 
    if(i > -1 && !AnsiCompareText(LeftStr(WideString(words->Strings[i]), w.Length()), w))
    {
        full = words->Strings[i];
        String e = w;
        e.Insert(full.SubString(w.Length() + 1, full.Length() - 1), SelSt + 1);  // добавление подсказки
        edit->Text = e;
        edit->SelStart = SelSt;
        edit->SelLength = full.Length() - w.Length();
    }
}
, но... такой код я бы использовать не стал, надо переписывать с нуля, получится гораздо лучше... Чуть позже попробую сделать...

P.S. Абсолютно тот же эффект (но вообще без написания кода) - это ComboBox со стилем csSimple, в Items которого занесены подсказки. Оно тебе надо, этот код писать, если можно сделать проще?
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.07.2013, 11:57
Помогаю со студенческими работами здесь

Всплывающая подсказка при наведении на блок
есть такая конструкция из python + html &lt;td class=&quot;obj{{obj.get('id','')}}&quot; style=&quot;background: {{ COLOR_ON if...

Всплывающая подсказка при наведении на кнопку
Как сделать, чтобы пр наведении на кнопку всплывала подсказка?

Всплывающая подсказка при наведении мыши на поле
Добрый день. Проблема такая: есть текстовое поле в форме - оно ограничено по размерам(т.к. в форме много полей и чтоб они все...

Всплывающая подсказка при наведении мышки на ссылку
По умолчанию ссылка не имеет всплывающей подсказки. Возможно ли в DLE при добавлении ссылки в новость сделать так, чтобы потом при...

Всплывающая подсказка при наведении курсора на иконку трея скрипта
Добрый день уважаемые форумчане. Скажите пожалуйста- есть ли возможность сделать - всплывающую подсказку при наведении курсора на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru