Перехватил так:
Код:
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;