Главная страница
    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.007 c
1-73109
Doomer1
2002-05-13 07:51
2002.05.23
Как обратиться к элементам, находящимся на TPanel ????


1-73184
Serg2002
2002-05-14 05:01
2002.05.23
попытка №2


3-73049
BOOMER
2002-04-24 16:02
2002.05.23
MIDAS!!!


3-73081
User_OKA
2002-04-22 09:31
2002.05.23
TpFIBQuery и транзакции


4-73477
Andr
2002-03-20 10:43
2002.05.23
Baikonur GisToolKit





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский