| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Позиционирование в гриде [D5]
Andrey V. © (2003-10-16 21:34:00)
Пользователь жмет такую-то букву (грид рид онли используется исключительно для навигации),
и перескакивает на слово , начинающееся с нажатой буквы.
Сейчас сделано так :
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;
Как бы сделать так , чтобы можно было по более чем одной букве подбегать к нужному слову.
Типа нажал "Б" - перскочили на "БАТОН" , нажал "У" (похоже без таймера не обойтись) - пересекочил на "БУТЫЛКА"
Andrey V. (2003-10-17 11:09:00) [1]
Конечно , не плохо было бы KeyStack показывать тутже в Hinte ...
Но в общем , подходит, спасибо.
Vlad (2003-10-17 10:43:00) [2]
Вопервых поле д.б. отсортировано для корректной работы.
Вот пример, который работает с символьными полями
Навигация по справочнику валют.
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 секунды
AleksandrKu (2003-10-17 10:33:00) [3]
Arhelon прав только переменную очищать надо либо по переходу на другую колонку либо по какойто клавише типа ЕSC а если убрать проверку символов то будет и другим символам работать
asp (2003-10-17 09:25:00) [4]
Частичный поиск будет работать только со строковыми полями.
На тему "правильности" вводимого символа есть TField.IsValidChar.
Вводимую строку удобно отображать в Column.Title.Caption.
При смене позиции любым другим способом (мышь...) или при переходе не др. столбец Column.Title.Caption очень желательно вернуть в прежнее состояние.
ЗЫ: Доводилось уже писать такую штуку и удобнее всего оформить как компонент :)
roottim (2003-10-17 08:12:00) [5]
http://www.ehlib.com
Arhelon (2003-10-17 07:30:00) [6]
А чё слабо завасти переменную типа strig а потом s:=s+key ???
Ну ессно если Key подходит по условиям
Andrey V. (2003-10-16 22:23:00) [7]
А она с исходниками ?
Я имею ввиду , нельзя ли глянуть как у них это сделано ?
Fay (2003-10-16 21:45:00) [8]
QuantumGrid 8)
| |
