Последняя версия DataExpress 3 beta от 12 февраля 2020 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

фокус на строке запроса при обновлении

Все о том как сделать что-то с помощью скриптов.
Аватара пользователя
Develop-Soft
Сообщения: 1234
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 114 раз
Поблагодарили: 292 раза
Контактная информация:

фокус на строке запроса при обновлении

Сообщение Develop-Soft » Чт сен 12, 2019 7:44 pm

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

type TQRec = record
Recno,Recid:integer;
end;

var QRec:TQRec;
    x:integer;

procedure GoToLine(Sender: TObject);
begin
if QRec.Recno+QRec.Recid=0 then exit;
x:= dxQueryGrid1.Recno;
dxQueryGrid1.MoveTo(QRec.Recno);
if dxQueryGrid1.Recid = QRec.Recid then
dxQueryGrid1.MoveTo(x);
QRec.Recno:=0;
QRec.Recid:=0;
end;

procedure SaveNumLine(Sender: TObject);
begin
  QRec.Recno := dxQueryGrid1.Recno;
  QRec.Recid := dxQueryGrid1.Recid;
end;

procedure Form_Create;
begin
   dxQueryGrid1.OnBeforeClose := @SaveNumLine;
   dxQueryGrid1.OnAfterOpen := @GoToLine;
end;