Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.03.2018, 13:54
aford aford вне форума
Прохожий
 
Регистрация: 14.03.2018
Сообщения: 12
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию Отключение скроллинга, когда курсор не на компоненте

Всем привет!

Прошу помощи в такой проблеме. В DBGridEh скроллинг мышкой по умолчанию работает и это замечательно!
Но, когда увожу курсор с таблицы - он все равно работает на этой же таблице до тех пор, пока у нее не отпадет фокус. Функционал программы не страдает, но неудобства все же есть. Хотелось бы, чтобы при наведении на таблицу скроллинг работал, а если курсор не над таблицей - соответственно отключался.
Ответить с цитированием
  #2  
Старый 14.03.2018, 15:07
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 660
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Код:
type
  TForm1 = class(TForm)
    DBGridEh1: TDBGridEh;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    OldWindowProc: TWndMethod;
    procedure NewWindowProc(var Msg: TMessage);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.NewWindowProc(var Msg: TMessage);
var
  p: TPoint;
begin
  if Msg.Msg = WM_MOUSEWHEEL then
  begin
    p := Point(TWMMouseWheel(Msg).XPos, TWMMouseWheel(Msg).YPos);
    if ControlAtPos(ScreenToClient(p), False, True) = DBGridEh1 then
      OldWindowProc(Msg)
    else
      Msg.Result := 0;
  end
  else
    OldWindowProc(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWindowProc := DBGridEh1.WindowProc;
  DBGridEh1.WindowProc := NewWindowProc;
end;
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием
  #3  
Старый 14.03.2018, 15:38
aford aford вне форума
Прохожий
 
Регистрация: 14.03.2018
Сообщения: 12
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию

К сожалению, код выше полностью отключает скроллинг мышью
А как быть, если таблиц 2 и более?
Ответить с цитированием
  #4  
Старый 14.03.2018, 15:49
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А вот отключалка по имени класса получилась и на простой DBGrid работает
Код:
uses Messages;
...

type
  TfrmMain = class(TForm)
  DBGrid1: TDBGrid;
 procedure FormCreate(Sender: TObject);
  procedure DbGridWindowProc(var Msg: TMessage);
...
private
   FGridWndProc: TWndMethod;
    { Private declarations }
...
procedure TfrmMain.FormCreate(Sender: TObject);
begin
 FGridWndProc := DBGrid1.WindowProc;
 DBGrid1.WindowProc := DbGridWindowProc;
end;
procedure TfrmMain.DbGridWindowProc(var Msg: TMessage);
var
 hWnd: THandle;
 rPos: TPoint;
 aName: array [0..255] of Char;
 begin
 case Msg.Msg of
      WM_MOUSEWHEEL:
       if Boolean(GetCursorPos(rPos)) then
       begin
        hWnd:= WindowFromPoint(rPos);
        GetClassName(hWnd, aName, 256);
        if string(aName) <> 'TDBGrid' then exit;
       end;
   end;
   if Assigned(FGridWndProc) then  FGridWndProc(Msg);
end;
только имя поменять
Ответить с цитированием
  #5  
Старый 14.03.2018, 15:55
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 660
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Цитата:
Сообщение от aford
К сожалению, код выше полностью отключает скроллинг мышью
А как быть, если таблиц 2 и более?
Вероятно Вы что-то сделали не так. У меня работает приведенный пример так как Вам требовалось. NewWindowProc устанавливается для конкретного контрола не влияя на другие. Собственно, поэтому бессмысленно усложнение кода предложенное Alegun, только на случай установки данной процедуры нескольким контролам.
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием
  #6  
Старый 14.03.2018, 19:25
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Оффтоп:
Цитата:
Сообщение от dr. F.I.N.
Вероятно Вы что-то сделали не так. У меня работает приведенный пример так как Вам требовалось...
Подтверждаю, решение приведённое коллегой работает как должно, тщательнее надо в примеры вникать, прежде чем делать огульные выводы
Ответить с цитированием
Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
dr. F.I.N. (14.03.2018)
  #7  
Старый 16.03.2018, 15:09
aford aford вне форума
Прохожий
 
Регистрация: 14.03.2018
Сообщения: 12
Версия Delphi: Delphi XE5
Репутация: 10
По умолчанию

Все работает как надо, разобрался, спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:18.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter