Скачать: CL | DM;

Позиционирование в гриде   Найти похожие ветки 

← →
Andrey V. ©   (2003-10-16 21:34) [0]

Пользователь жмет такую-то букву (грид рид онли используется исключительно для навигации),
и перескакивает на слово , начинающееся с нажатой буквы.
Сейчас сделано так :

procedure TForm.GridKeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key)=13 then (Sender as TDBGrid).onDblClick(nil);
if (Key in ["a".."z","A".."Z","а".."я","А".."Я"]) then begin
if NOT (Sender as TDBGrid).DataSource.DataSet.Locate("Name",Key,[loCaseInsensitive,loPartialKey]) then MessageBeep(MB_OK);
end;
end;

Как бы сделать так , чтобы можно было по более чем одной букве подбегать к нужному слову.
Типа нажал "Б" - перскочили на "БАТОН" , нажал "У" (похоже без таймера не обойтись) - пересекочил на "БУТЫЛКА"

---

← →
Fay   (2003-10-16 21:45) [1]

QuantumGrid 8)

---

← →
Andrey V. ©   (2003-10-16 22:23) [2]

А она с исходниками ?
Я имею ввиду , нельзя ли глянуть как у них это сделано ?

---

← →
Arhelon   (2003-10-17 07:30) [3]

А чё слабо завасти переменную типа strig а потом s:=s+key ???
Ну ессно если Key подходит по условиям

---

← →
roottim   (2003-10-17 08:12) [4]

http://www.ehlib.com

---

← →
asp ©   (2003-10-17 09:25) [5]

Частичный поиск будет работать только со строковыми полями.
На тему "правильности" вводимого символа есть TField.IsValidChar.
Вводимую строку удобно отображать в Column.Title.Caption.
При смене позиции любым другим способом (мышь...) или при переходе не др. столбец Column.Title.Caption очень желательно вернуть в прежнее состояние.

ЗЫ: Доводилось уже писать такую штуку и удобнее всего оформить как компонент :)

---

← →
AleksandrKu   (2003-10-17 10:33) [6]

Arhelon прав только переменную очищать надо либо по переходу на другую колонку либо по какойто клавише типа ЕSC а если убрать проверку символов то будет и другим символам работать

---

← →
Vlad ©   (2003-10-17 10:43) [7]

Вопервых поле д.б. отсортировано для корректной работы.
Вот пример, который работает с символьными полями
Навигация по справочнику валют.
procedure TfmCurrency.grCurrencyKeyPress(Sender: TObject; var Key: Char);
begin
if not(grCurrency.SelectedField is TStringField) then Exit;
Timer.Enabled:=false;
KeyStack:=KeyStack + Key; // глобальная переменная
Timer.Enabled:=true;
qCurrency.Locate(grCurrency.SelectedField.FieldName, KeyStack, [loCaseInsensitive,loPartialKey]);
end;

procedure TfmCurrency.TimerExecute(Sender: TObject);
begin
KeyStack:="";
Timer.Enabled:=false;
end;
Значение таймера установлено 2 секунды

---

← →
Andrey V. ©   (2003-10-17 11:09) [8]

Конечно , не плохо было бы KeyStack показывать тутже в Hinte ...
Но в общем , подходит, спасибо.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c