tagMSG

[AndreyF]

Всем привет.
Сильна нужна помощь, никак сам не могу разобраться.
Есть процедура, которая заставляет работать колесо мыши при прокручивании данных в DBGrid.

Необходимо обращаться к этой процедуре с разных DBGrid и с разных форм.

procedure TForm1.ApplicationEvents1Message(Msg:tagMSG; Handled:Boolean; Form_my:TForm; DBGrid_my:TCustomGrid);
begin
   if Form_my.DBGrid_my.Focused then
   if Msg.message=WM_MOUSEWHEEL then  
      begin
         Msg.message:=WM_KEYDOWN;
         Msg.lParam:=0;
         if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
         Handled:=False;
      end;
end;

Используя эту процедуру из других мест программы
Form1.ApplicationEvents1Message(что сюда нужно написать, и что здесь нужно выставить true?, Form2, DBGrid2);

Помогите пожалуйста разобраться.

[Stilet]

Ну опиши переменку такого типа и подставляй ее:

var ttg:tagMSG;
...
Form1.ApplicationEvents1Message(ttg, Form2, DBGrid2);

А насчет

что здесь нужно выставить true

Это я не знаю что ты там хочеш навернуть.

[AndreyF]

Я так уже пробовал, так не компилируется

var Msg:tagMSG;
Form1.ApplicationEvents1Message(Msg, true, Form3, DBGrid1);

теперь в самой процедуре

procedure TForm1.ApplicationEvents1Message(Msg:tagMSG; Handled:Boolean; Form_my:TForm; DBGrid_my:TCustomGrid);
begin
   if Form_my.DBGrid_my.Focused then
   if Msg.message=WM_MOUSEWHEEL then  
      begin
         Msg.message:=WM_KEYDOWN;
         Msg.lParam:=0;
         if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
         Handled:=False;
      end;
end;

пишет что не знает DBGrid_my и
undeclared identifier: DBGrid_my
?

[Stilet]

Правильно пишет.
DBGrid_my - это параметр, а ты зачем то к нему форму прилепил...

procedure TForm1.ApplicationEvents1Message(Msg:tagMSG; Handled:Boolean; Form_my:TForm; DBGrid_my:TCustomGrid);
begin
   if DBGrid_my.Focused then
   if Msg.message=WM_MOUSEWHEEL then  
      begin
         Msg.message:=WM_KEYDOWN;
         Msg.lParam:=0;
         if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
         Handled:=False;
      end;
end;

Ферштеен?

[AndreyF]

Нет не ферштеен!
Никак не могу усвоить информацию,
мне надо воспользоваться этой процедурой

var   
Handled: boolean;
Msg: tagMSG;

procedure TForm1.ApplicationEvents1Message(Msg:tagMSG; Handled:Boolean; DBGrid_my:TCustomGrid);
begin
   if DBGrid_my.Focused then 
   if Msg.message=WM_MOUSEWHEEL then
      begin
         Msg.message:=WM_KEYDOWN;
         Msg.lParam:=0;
         if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
         Handled:=False;
      end;
end;

с Form2, Form3, Form4 и ...
на каждой из них есть по одному DBGrid.

затем обращаюсь к этой процедуре с другой формы так

procedure TForm4.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Form1.ApplicationEvents1Message(Msg, true, DBGrid1);
end;

Все формы кроме Form1, являются MDIchild - формами.

Как только я не пытался, никак не могу добиться, чтоб колесо мыши заработало на всех DBGrid.

[s.Creator]

Кидаете на основную форму ApplicationEvents1 ( если его еще нет )
устанавливаете ему обработчик события ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); и пишете

procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  form: TForm;
  control: TWinControl;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    form := Screen.ActiveForm;
    if Assigned(form) and Assigned(form.ActiveMDIChild) then
    begin
      if form.ActiveMDIChild.ActiveControl is TCustomGrid then
      begin
         Msg.message:=WM_KEYDOWN;
         Msg.lParam:=0;
         if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
         Handled:=False;
      end;
    end;
  end;
end;

[AndreyF]

ApplicationEvents1 - конечно же был на Form1 - MDIForm.
Я как понимаю теперь на любой активной MDIchild форме если есть DBGrid,
то должно колесу мыши присваиваться VK_UP и VK_DOWN?
Если так то не работает всё равно, может где то ещё что то надо написать?

[s.Creator]

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

ApplicationEvents1 - конечно же был на Form1 - MDIForm.
Я как понимаю теперь на любой активной MDIchild форме если есть DBGrid,
то должно колесу мыши присваиваться VK_UP и VK_DOWN?
Если так то не работает всё равно, может где то ещё что то надо написать?

Должно на любой активной если наследник TCustomGrid в фокусе.
Если фокус на другом элементе, например кнопке, то прокрутки не будет.
Попробуйте щелкнуть на любой ячейке DBGrid и покрутить колесиком.
Проверял, правда, на обычных формах и обычном гриде ( StringGrid1 )

[AndreyF]

У меня получается наследник не TCustomGrid, а TDBGrid.
Фокус на DBGrid1 и всё равно не работает прокрутка...

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  Form: TForm;
  control: TWinControl;
begin
   if Msg.message=WM_MOUSEWHEEL then
      begin
         Form:=Screen.ActiveForm;
         if Assigned(Form) and Assigned(Form.ActiveMDIChild) then
            begin
               if Form.ActiveMDIChild.ActiveControl is TDBGrid then 
                  begin
                     Msg.message:=WM_KEYDOWN;
                     Msg.lParam:=0;
                     if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
                     Handled:=False;
                  end;
            end;
      end;
end;

?

[s.Creator]

На сколько помню TDBGrid - наследник от TCustomGrid (во всяком случае в D7 )/
Попробуй пошагово выполнить.
А вообще если при выделенном TDBGrid нажимать клавиши вверх/вниз это работает?