Позиционирование в гриде

← →
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 а если убрать проверку символов то будет и другим символам работать

Вопервых поле д.б. отсортировано для корректной работы.
Вот пример, который работает с символьными полями
Навигация по справочнику валют.
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 секунды

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

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