Components for Delphi and C++ Builder.

Перейти в английский форум
Перейти на EhLib.com
Текущее время: 30 мар 2020, 09:11

Часовой пояс: UTC




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: DBGridEh STFilter перехват скролла
СообщениеДобавлено: 27 фев 2019, 15:12 
Не в сети

Зарегистрирован: 14 мар 2018, 10:34
Сообщений: 22
В продолжение предыдущей темы, как на фильтре перехватить скролл? Стандартным способом
Код:
procedure TFrmMain.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  c: TControl;
  mp: TPoint;
begin
  ShowMessage('a');
  mp:= ScreenToClient(MousePos);
  c:= ControlAtPos(mp, False, True);
  if c <> nil then
    TProtectControl(c).DoMouseWheel(Shift, WheelDelta, mp);
end;

Не получается...


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: DBGridEh STFilter перехват скролла
СообщениеДобавлено: 28 фев 2019, 12:23 
Не в сети

Зарегистрирован: 14 мар 2018, 10:34
Сообщений: 22
Перехватил так:
Код:
procedure TFrmMain.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  // если крутим колесиком в фильтре табл. DBGrdEhWeights
  if (Msg.message = WM_MOUSEWHEEL) and
     (DBGrdEhWeights.FilterEditMode) then
  begin
    // очищаем сообщение
    Msg.lParam:= 0;
    Msg.wParam:= 0;
  end;


Чтобы не выскакивала ошибка просто отменяю скролл, а по хорошему надо как-то заполнить значения списка FilterEdit, они прекрасно заполняются при клике на кн. выпадения списка. Пробовал разные процедуры, но все без толку:
Код:
    //1:
    DBGrdEhWeights.OnFilterGetItemsList(FrmMain);
    DBGrdEhWeights.UpdateFilterEditProps(DBGrdEhWeights.Col-1);}
    //2:
    with DBGrdEhWeights do
    begin
        F:= Columns[Col-1].STFilter;
        F.GetFieldValueList;
        Columns[Col-1].GetLookupValue;
    end;


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB