Фокус не на первой записи в запросе при сортировке по вычисляемому полю

[Kiss]

Если отсортировать запрос по вычисляемому полю, то при открытии базы с заглавной простой формой или записи с таким запросом, фокус ставится не на первой записи в запросе, а на самой "старой"/раньше созданной, попадающей в фильтр. Немного сбивает с толку юзеров, открывающих базу.
--
Пример:

TEST2.zip

(47.43 КБ) 11 скачиваний

[Гocть]

Создайте вычисляемое поле (тип: число) в запросе. Дайте ему имя ID. В выражении пропишите: RECID('Запрос12') (само поле можно скрыть в настройках вида таблицы).

В форме "Простая форма" создайте скрипт и вставьте:

Код: Выделить всё

var Moved,Cl:boolean;

procedure QueryGridAfterOpen(Sender: TObject);
begin
 Moved := false;
end;

procedure QueryGridAfterClose(Sender: TObject);
begin
 Cl := true;
end;

procedure QueryGridAfterScroll(Sender: TObject);
var MaxRec:integer;
begin

if not Moved then
begin
 if Cl then exit;
 dxQueryGrid1.DisableScrollEvents;
 dxQueryGrid1.MoveLast;
 MaxRec := EvalExpr('max("Запрос12","id")',Self);
 dxQueryGrid1.GoToRecord(MaxRec)
 Moved := true;
 dxQueryGrid1.EnableScrollEvents;
 Cl := true;
end;
end;


procedure Form_Create;
begin
  Moved := false;
  Cl := false;
  dxQueryGrid1.OnAfterOpen := @QueryGridAfterOpen;
  dxQueryGrid1.OnAfterScroll := @QueryGridAfterScroll;
end;

[Kiss]

В форме "Простая форма" создайте скрипт и вставьте:

Спасибо. Как временный вариант - самое оно. Извиняюсь, не проверил сразу.

[Kiss]

Создайте вычисляемое поле (тип: число) в запросе. Дайте ему имя ID.

А я, лашара, выделывался как мог, чтоб ID вытягивать из форм, а оно RECID('Имя запроса'). Буду знать теперь)))

[Гocть]

ID это одна из больных тем в программе.

[Kiss]

MaxRec := EvalExpr('max("Запрос12","id")',Self);

Смысл скрипта я-то понял. Но установить фокус надо как раз не по MAX ID, а по MIN "своему вычисляемому полю" в запросе (по сортировке в примере).
Даже если это поле вписать в скрипт, то устанавливает всё равно MIN ID. хм... и даже не min id, а вообще что попало.(( Видимо минимальный "текст"

[Гocть]

Не вкурил. Покажите на скриншоте, где должен стоять курсор (и почему).

[Гocть]

Создайте вычисляемое поле (тип: число)

[Kiss]

Создайте вычисляемое поле (тип: число)

Снимок.PNG (24.52 КБ) 132 просмотра

Допустим сотрировка вот такая (данные изменились) Логично, что курсор должен быть на записи "Тест5", по вычисляемому полю.
ID уже не по порядку.

[Гocть]

Ничего не понял.