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

Вниз

Автозаполнение   Найти похожие ветки 

← →
Карелин Артем ©   (2002-11-20 14:13) [0]

Может кто видел компонент с сабжем.
Нужна штука типа как в експлорере при вводе в строке адреса при включенном сабже.

---

← →
Anatoly P   (2002-11-20 14:30) [1]

В D6 ComboBox поддерживает автозаполнение

---

← →
Карелин Артем ©   (2002-11-20 14:37) [2]

Я в дельфине пятом страдаю.

---

← →
Дмитрий К.К. ©   (2002-11-20 14:44) [3]

Видел такой компонент.

---

← →
Дмитрий К.К. ©   (2002-11-20 14:51) [4]

Нашел.
Называется он IECombo.
Лежит... хотя бы на http://www.mirdelphi.narod.ru/compon/compon.htm

---

← →
Карелин Артем ©   (2002-11-20 14:59) [5]

А еще есть что-то подобное?

---

← →
Дмитрий К.К. ©   (2002-11-20 15:02) [6]

Не по душе?

---

← →
Alx2 ©   (2002-11-20 15:04) [7]

>Карелин Артем © (20.11.02 14:37
Из моей проги фрагмент:

Procedure TAutoIncTable.OnEditChange(Sender: TObject);
Var S, S1, FName: String;
len: integer;
Begin
If Not canFindForEdit Then exit;
S := AnsiUpperCase(_TEdit(Sender).text);
FName := GetFieldsList(";",[_TEdit(Sender).Tag]);
Try
If DataSet.Locate(FName, S,[loCaseInsensitive, loPartialKey])
Then
Begin
S1 := DataSet[FName];
If pos(S, AnsiUpperCase(S1)) = 1 Then
Begin
_TEdit(Sender).OnChange := Nil;
len := Length(S);
_TEdit(Sender).text := S1;
_TEdit(Sender).SelStart := len;
_TEdit(Sender).SelLength := Length(_TEdit(Sender).text);
_TEdit(Sender).OnChange := OnEditChange;
End;
End;
Except
End;
End;

Procedure TAutoIncTable.OnEditKeyDown(Sender: TObject; Var KEY: Word;
Shift: TShiftState);
Begin
Case KEY Of
VK_BACK, VK_DELETE: canFindForEdit := False;
End;
End;

Procedure TAutoIncTable.OnEditKeyUp(Sender: TObject; Var KEY: Word;
Shift: TShiftState);
Begin
canFindForEdit := true;
End;



PS.
Onchange, OnKeyDown, OnKeyUp - соответствующие события компонента TEdit

---

← →
Карелин Артем ©   (2002-11-20 15:05) [8]

Не смотрел, но выбор желателен. А то есть у меня инкрементальный комбобокс. Засунул туда справку по выни - так он завис при поиске. (Celeron-900, win2k"serv)
А мне надо ОЧЕНЬ много значений пихать туда.

---

← →
Карелин Артем ©   (2002-11-20 15:07) [9]

> Alx2 © (20.11.02 15:04)
Спасибо за фрагмент. Может понадобится и такое, но не в этом контексте.

---

← →
Alx2 ©   (2002-11-20 15:08) [10]

>Alx2 © (20.11.02 15:04)
Добавлю, что _TEdit=TEdit, переменная FName - просто имя поля, в котором ищут autocomplete значения

---

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

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

Наверх

Память: 0.48 MB
Время: 0.02 c