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

← →
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. Это как раз то, что надо и дажн больше!

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