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

Вниз

Подстановка значений в 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]

ясно :)


 
Dennis I. Komarov ©   (2013-09-05 19:59) [17]

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


 
Dennis I. Komarov ©   (2013-09-05 20:06) [18]

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


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


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

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


 
Dennis I. Komarov ©   (2013-09-05 21:49) [20]


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

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


 
Германн ©   (2013-09-05 21:54) [21]


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

Dennis the Menace, имхо
:)



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

Текущий архив: 2014.07.06;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.009 c
15-1387570707
Несусвет
2013-12-21 00:18
2014.07.06
Как сохранить блог?


15-1387088458
SKIPtr
2013-12-15 10:20
2014.07.06
как переслать письмо из рамблера


15-1387349417
DevilDevil
2013-12-18 10:50
2014.07.06
Россия. Доходы. Цифры


2-1378324069
sas9568635
2013-09-04 23:47
2014.07.06
Вызов процедуры после выполнения таймера


2-1378365351
lewka-mar
2013-09-05 11:15
2014.07.06
Подстановка значений в edit