Последняя версия DataExpress 2021.10.21

Изображение Скачать | Изображение Что нового?

даблклик по запросу = действие

Все о том как сделать что-то с помощью скриптов.
al.kn
Знаток
Сообщения: 577
Зарегистрирован: 17 май 2020, 13:18
Благодарил (а): 38 раз
Поблагодарили: 54 раза

даблклик по запросу = действие

Сообщение al.kn » 27 июл 2021, 20:24

нужен скрипт,чтобы при даблклике по записи запроса нажималась кнопка

Аватара пользователя
admin
Разработчик
Сообщения: 5936
Зарегистрирован: 14 мар 2016, 11:32
Откуда: Ленинградская
Благодарил (а): 74 раза
Поблагодарили: 591 раз

даблклик по запросу = действие

Сообщение admin » 27 июл 2021, 20:49

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

procedure QueryDblClick(Sender: TObject);
begin
   dxButton1.Click;
end;

procedure Form_Create;
begin
   dxQueryGrid1.OnDblClick := @QueryDblClick;
end;

Аватара пользователя
rausNT
Специалист
Сообщения: 923
Зарегистрирован: 24 авг 2017, 09:23
Благодарил (а): 241 раз
Поблагодарили: 28 раз

даблклик по запросу = действие

Сообщение rausNT » 28 июл 2021, 08:29

admin писал(а):

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

procedure QueryDblClick(Sender: TObject);
begin
   dxButton1.Click;
end;

procedure Form_Create;
begin
   dxQueryGrid1.OnDblClick := @QueryDblClick;
end;


а можно как то это при даблклике открыть запись, по ID, если допустим в запросе содержится поле допустим id_form?
We are uncovering better ways of developing
software by doing it and helping others do it.

Аватара пользователя
admin
Разработчик
Сообщения: 5936
Зарегистрирован: 14 мар 2016, 11:32
Откуда: Ленинградская
Благодарил (а): 74 раза
Поблагодарили: 591 раз

даблклик по запросу = действие

Сообщение admin » 28 июл 2021, 11:37

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

procedure QueryDblClick(Sender: TObject);
var
   QG: TdxQueryGrid;
begin
   QG := TdxQueryGrid(Sender);
   with TdxForm.Create('Форма') do
   begin
      OpenRecord(QG.AsI['id_form']);
      if RecordCount > 0 then
      begin
         Edit;
         if ShowModal = mrOk then
            Post
         else
            Cancel;
      end;
      Free;
   end;
end;
...

ip-talker
Интересующийся
Сообщения: 61
Зарегистрирован: 03 авг 2021, 09:31
Благодарил (а): 13 раз
Поблагодарили: 12 раз

даблклик по запросу = действие

Сообщение ip-talker » 29 авг 2021, 19:36

Добрый день!
Прошу помощи: Аналогичное действие как и у топикстартера, но "поймать" не даблклик из запроса ( dxQueryGrid2.OnDblClick) а нажатие Enter. Ну, или любую другую клавишу. Не даются пока скрипты :? Честно говоря надеялся, что enter обращается к этому же обработчику, но, c приведенным выше скриптом- по Enter-у отрывается редактирование (1 источник) или ничего (более 1 источника). Даблклик - нажимает кнопку соответственно.

Аватара пользователя
admin
Разработчик
Сообщения: 5936
Зарегистрирован: 14 мар 2016, 11:32
Откуда: Ленинградская
Благодарил (а): 74 раза
Поблагодарили: 591 раз

даблклик по запросу = действие

Сообщение admin » 29 авг 2021, 20:53

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

procedure QueryKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = 13 then dxButton1.Click;
end;

procedure Form_Create;
begin
  dxQueryGrid1.OnKeyDown := @QueryKeyDown;
end;

ip-talker
Интересующийся
Сообщения: 61
Зарегистрирован: 03 авг 2021, 09:31
Благодарил (а): 13 раз
Поблагодарили: 12 раз

даблклик по запросу = действие

Сообщение ip-talker » 29 авг 2021, 21:17

Спасибо!
Направьте на путь: где подсмотреть свойства объекта/класса? =: типа кака сейчас:
dxQueryGrid1.OnKeyDown
.
Так сказать - с каких азов начинать (VB когда-то давно осваивал, что-то помню...)?

al.kn
Знаток
Сообщения: 577
Зарегистрирован: 17 май 2020, 13:18
Благодарил (а): 38 раз
Поблагодарили: 54 раза

даблклик по запросу = действие

Сообщение al.kn » 29 авг 2021, 21:57

ip-talker писал(а):Спасибо!
Направьте на путь: где подсмотреть свойства объекта/класса? =: типа кака сейчас:
dxQueryGrid1.OnKeyDown
.
Так сказать - с каких азов начинать (VB когда-то давно осваивал, что-то помню...)?

Вики полистай

ip-talker
Интересующийся
Сообщения: 61
Зарегистрирован: 03 авг 2021, 09:31
Благодарил (а): 13 раз
Поблагодарили: 12 раз

даблклик по запросу = действие

Сообщение ip-talker » 29 авг 2021, 21:59

Да, верно, буду изучать по возможности. Благодарю за наводку.


Вернуться в «Общие вопросы.»