Подстановка значений в edit

← →
lewka-mar (2013-09-05 11:15) [0]

Привет, уважаемые мастера программирования!
Хочется сделать, чтобы когда в Tedit вводится текст, было как например в Excel. Когда пишешь, а он подбирает слова с тем что написал. только выбирать варианты из массива, заранее готового.

Подскажите возможно это или можно только с БД такое?

← →
Ega23 © (2013-09-05 11:18) [1]

возможно.

← →
Елена (2013-09-05 11:20) [2]

подскажите как? в инете посмотрел ничего не нашел похожего.

← →
lewka-mar (2013-09-05 11:22) [3]

подскажите как? в инете посмотрел ничего не нашел похожего.

← →
[ВладОшин] © (2013-09-05 11:24) [4]

На нажатие клавиши текущее значение сравнивай в цикле

зы
Как ты быстро последовал совету стать мужиком :)

← →
lewka-mar (2013-09-05 11:25) [5]

как выбрать то понятно, а вот как подставлять в edit не мешая вводу текста

← →
Ega23 © (2013-09-05 11:42) [6]

как в гугле. на OnChange вываливать попап с вариантами

← →
[ВладОшин] © (2013-09-05 11:43) [7]

procedure TForm1.edt1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edt1.Text := edt1.Text + "-SomeText";
edt1.SelStart := Length(edt1.Text) - Length("-SomeText");
edt1.SelLength := Length(edt1.Text);
end;

← →
robt5 (2013-09-05 12:20) [8]

> Елена (05.09.13 11:20) [2]
> подскажите как? в инете посмотрел ничего не нашел похожего.

привык прикидываться соской чтобы помогли быстрей ?

← →
Ega23 © (2013-09-05 12:28) [9]

> привык прикидываться соской чтобы помогли быстрей ?

СППF

← →
Кирюха (2013-09-05 14:15) [10]

Может с ComboBox проще реализовать нужный функционал для ввода текста?

← →
[ВладОшин] © (2013-09-05 14:25) [11]

а лучше cb1: TComboBox; взять

procedure TForm1.cb1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
cb1.DroppedDown := false;
cb1.Items.Clear;
cb1.Items.Add("Text" + IntToStr(Random(100)));
cb1.Items.Add("Text" + IntToStr(Random(100)));
cb1.DropDownCount := 2;
cb1.DroppedDown := true;
cb1.Text := cb1.Text + "Text";
cb1.SelStart := Length(cb1.Text) - Length("Text");
cb1.SelLength := Length(cb1.Text);
end;

← →
Ega23 © (2013-09-05 14:30) [12]

> procedure TForm1.cb1KeyUp(

Теперь встань на комбо и скопируй туда текст из буфера. Мышкой.
Потом возьми снова пустой комбик, нажми "а" и подержи пару секунд

← →
[ВладОшин] © (2013-09-05 14:33) [13]

> встань на комбо и скопируй туда текст

а кто говорил, что это под копипаст?
Писать код надо

← →
robt5 (2013-09-05 14:42) [14]

> СППF

чойто ?

← →
Ega23 © (2013-09-05 14:44) [15]

> чойто ?

http://lurkmore.to/%D0%A1%D0%9F%D0%9FF

← →
robt5 (2013-09-05 16:56) [16]

ясно :)

если курсор последний
1. запоминаем позицию курсора (length)
2. ищем первое подходящее слово
3. вставляем найденное слово
4. устанавливаем курсор
5. устанавливаем select

robt5, Ega23, Вы не дооцениваете современные возможности медецины и законодательства.

← →
robt5 (2013-09-05 21:39) [19]

> Вы не дооцениваете современные возможности медецины

а как тебя звали в "прошлой жизни" ? :)

> а как тебя звали в "прошлой жизни" ? :)

Меня? :) Я еще не прошел стадию посвящения в иную сущность :)

> а как тебя звали в "прошлой жизни" ?

Dennis the Menace, имхо
:)

Подстановка значений в edit Найти похожие ветки