Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подстановка значений в edit [D7, XP]

Страницы: 1 2 >
lewka-mar © (2013-09-05 11:15:00)
Привет, уважаемые мастера программирования!
Хочется сделать, чтобы когда в Tedit вводится текст, было как например в Excel. Когда пишешь, а он подбирает слова с тем что написал. только выбирать варианты из массива, заранее готового.

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

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

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

Dennis the Menace, имхо
:)

Dennis I. Komarov (2013-09-05 21:49:00) [2]

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

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

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

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

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

Dennis I. Komarov (2013-09-05 20:06:00) [4]
robt5, Ega23, Вы не дооцениваете современные возможности медецины и законодательства.

Dennis I. Komarov (2013-09-05 19:59:00) [5]
если курсор последний
1. запоминаем позицию курсора (length)
2. ищем первое подходящее слово
3. вставляем найденное слово
4. устанавливаем курсор
5. устанавливаем select

robt5 (2013-09-05 16:56:00) [6]
ясно :)

Ega23 (2013-09-05 14:44:00) [7]

> чойто ?

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

robt5 (2013-09-05 14:42:00) [8]

> СППF

чойто ?

[ВладОшин] (2013-09-05 14:33:00) [9]

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

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

Ega23 (2013-09-05 14:30:00) [10]

> procedure TForm1.cb1KeyUp(

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

[ВладОшин] (2013-09-05 14:25:00) [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;

Кирюха (2013-09-05 14:15:00) [12]
Может с ComboBox проще реализовать нужный функционал для ввода текста?

Ega23 (2013-09-05 12:28:00) [13]

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

СППF

robt5 (2013-09-05 12:20:00) [14]

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

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

[ВладОшин] (2013-09-05 11:43:00) [15]
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;

Ega23 (2013-09-05 11:42:00) [16]
как в гугле. на OnChange вываливать попап с вариантами

lewka-mar (2013-09-05 11:25:00) [17]
как выбрать то понятно, а вот как подставлять в edit не мешая вводу текста

[ВладОшин] (2013-09-05 11:24:00) [18]
На нажатие клавиши текущее значение сравнивай в цикле

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

lewka-mar (2013-09-05 11:22:00) [19]
подскажите как? в инете посмотрел ничего не нашел похожего.

Елена (2013-09-05 11:20:00) [20]
подскажите как? в инете посмотрел ничего не нашел похожего.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »