Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!

Есть код

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var ctrl:TControl;
    i:smallint;
begin
with msg do
if message=WM_MOUSEWHEEL then
begin
// получаем TControll над которым был курсор в момент отправки сообщения
ctrl:=ControlAtPos(ScreenToClient(pt),false,true);
if ctrl is TScrollBox then
  begin
  // получаем "сдвиг" колеса, обычно это 120 или -120 ("от себя" и "на себя" соответственно)
  i:=smallint(hiword(wParam));
  if i<>0 then
  if i<0 then
    PostMessage((ctrl as TScrollBox).Handle,WM_VSCROLL,MakeWParam(SB_LINEDOWN,0),0)
  else PostMessage((ctrl as TScrollBox).Handle,WM_VSCROLL,MakeWParam(SB_LINEUP,0),0);
  // сообщение обработано, дальнейшая обработка не требуется
  Handled:=true;
  end;
end;
end;

Вопрос задал: Pessimist (статус: Посетитель) Вопрос отправлен: 30 декабря 2009, 15:20 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

Pessimist (статус: Посетитель), 30 декабря 2009, 18:28 [#1]: PS на Delphi 7 все работает, а вот на 2007 выдает такую ошибочку

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.