скролл в DBCtrlGrid

[delphi-explorer]

Всем добрый день! Подскажите как включить прокрутку мышью в DBCtrlGrid. У этого компонента нет события OnMouseWheel, следовательно как то надо это описать. Может кто уже делал подобное?

[beegl]

Сообщение от delphi-explorer

события OnMouseWheel,

проверьте так:

unit BS_Label;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TBS_Label = class(TLabel)
private
{ Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; // заменить на OnMouseWheel
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; // заменить на OnMouseWheel
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Custom', [TBS_Label]);
end;

{ TBS_Label }

procedure TBS_Label.CMMouseEnter(var Message: TMessage);
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
end;

procedure TBS_Label.CMMouseLeave(var Message: TMessage);
begin
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;
end.

[delphi-explorer]

Извиняюсь.. Я может что не понимаю, но CM_MOUSEENTER и CM_MOUSELEAVE это сообщения. Как мне их заменить на OnMouseWheel?

[beegl]

Сообщение от delphi-explorer

их заменить на OnMouseWheel

  private
    { Private declarations }
   FOnMouseWHEEL: TNotifyEvent;
   procedure CMMOUSEWHEEL(var Message: TMessage); message CM_MOUSEWHEEL; // OnMouseWheel

procedure DBCtrlGrid.CMMOUSEWHEEL(var Message: TMessage);
begin
if Assigned(FOnMouseWHEEL) then
FOnMouseWHEEL(Self);
end;

или программно:

PostMessage(DBGrid1.Handle, WM_HSCROLL, Word(1), LongInt(0)) ;

PostMessage(DBGrid1.Handle, WM_VSCROLL, Word(1), LongInt(0)) ;

[kropotkina-alice]

Сделайте проще...
Ловите OnMouseWheel у вашей формы, проверяйте, в фокусе ли ваш DBCtrlGrid, и если да, то соответственно для вашего DBCtrlGrid.DataSource.DataSet делайте Next или Prior...

[delphi-explorer]

Сообщение от beegl

procedure CMMOUSEWHEEL(var Message: TMessage); message CM_MOUSEWHEEL; // OnMouseWheel

Спасибо. Я торможу). существует ведь сообщение CM_MOUSEWHEEL

[delphi-explorer]

Сообщение от kropotkina-alice

Сделайте проще...
Ловите OnMouseWheel у вашей формы, проверяйте, в фокусе ли ваш DBCtrlGrid, и если да, то соответственно для вашего DBCtrlGrid.DataSource.DataSet делайте Next или Prior...

Но ведь как я понимаю, при таком способе необходимо чтобы компонент был в фокусе. Просто перемещения указателя на DBCtrlGrid не хватит для задействования прокрутки колесиком? Нужно еще и кликнуть мышью?

//Все. Понял. Хотел удалить это сообщение но не нашел кнопки. Наверно запрещено (или по крайней мере для новичков)
Про фокус погорячился). Не логично будет при наведении активировать прокрутку. Сейчас подумаю как ваш способ тоже реализовать.