Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

Каким образом можно осуществить такую подсказку:   Найти похожие ветки 

 
MisterBin   (2002-05-12 12:23) [0]

Имеется Edit1.
Мне нужно чтобы при вводе слова срабатывала подсказка. т.е. рядом добавлялись возможные варианты слов. Такое можно встретить во многих программах. Привидите пожалуйста пример на такие слова:

сообщение 1-1
сообщение 2-2
сообщение 3-3

Т.е., если я ввожу "с", то через две секунды отображается вариант "сообщение 1-1", а как только я дохожу до "сообщения 1-" подсвечивается вариант "сообщение 1-1"


 
lipskiy   (2002-05-12 17:00) [1]

http://delphibase.endimus.com/?action=viewfunc&topic=vclservice&index=3


 
Song   (2002-05-12 17:38) [2]

Недавно тут один голову ломал. Посмотрите может неделю назад.


 
777   (2002-05-12 18:35) [3]

не совсем понятно очём речь, куда рядом?
в соседний компонент?
в сам Edit1?
если имеется ввиду что-то типа iecombobox, то:

var IsChanged:Boolean=false;

function SrchNearest(Edit:TEdit;S:Tstrings):boolean;
var
i,z:integer;
b:boolean;
begin
z:=0;
b:=false;
while (b=false) do
begin
if strPos(PChar(S[z]),PChar(Edit.Text))<>NIL then
begin
i:=Length(Edit.Text);
Edit.Text:=S[z];
Edit.SelStart:=i;
Edit.SelLength:=Length(Edit.Text);
b:=true;
end;
z:=z+1;
if z=S.Count then b:=true;
Application.ProcessMessages;
end;
result:=false;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if IsChanged=true then IsChanged:=SrchNearest(Edit1,ListBox1.Items) else IsChanged:=true;
end;


 
MisterBin   (2002-05-13 15:54) [4]

Большое спасибо lipskiy. Это как раз то, что надо и дажн больше!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
1-73170
Гена
2002-05-14 04:43
2002.05.23
---|Ветка была без названия|---


14-73378
mart
2002-04-16 02:41
2002.05.23
Дача


3-73070
Beer
2002-04-28 11:15
2002.05.23
Передача параметров в хранимую процедуру.


14-73402
kat
2002-04-17 12:28
2002.05.23
Получила выигранный на Европе Плюс музыкальный центр


1-73146
Виталик
2002-05-13 17:46
2002.05.23
Кнопка по умолчанию





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский