Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
4-73445
Keymaster
2002-03-21 23:35
2002.05.23
Журнал программ


4-73448
AFROLOV
2002-03-22 10:48
2002.05.23
как полностью заблокировать приложение + очищать пока оно заблокировано его очередь сообщений?


1-73258
Filat
2002-05-10 17:59
2002.05.23
Как в *.txt файл записать и считать символы с позиции по позицию?


14-73384
Delph
2002-04-16 15:57
2002.05.23
Что такое VPN? Спасибо.


7-73419
Aleksey_K
2002-02-25 14:45
2002.05.23
UPS