D5 /W10 Kein Scrollen im Quellcode mit Mausrad

[Frickler]

Zitat von Bernhard Geyer:

Evtl. mal eine Update der Delphi-IDE durchführen.
D5 wird vermutlich dieses Windows-Feature noch nicht unterstützten.

Doch klar. Normalerweise unterstützt D5 das Scrollen im Quelltext. In selbst geschriebenen Programmen muss man ins Hauptformular eine "ApplicationEvents" Komponente droppen und dann ein OnMessage Event definieren, etwa so (hier als Beispiel für TDBGrid):

Delphi-Quellcode:

procedure TMainMenu.AppEventsMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of
    WM_MOUSEWHEEL:
    begin
      if (Screen.ActiveForm.ActiveControl <> nil) and
         (Screen.ActiveForm.ActiveControl.ClassName = 'TDBGrid') then
      begin
        // die Mousewheel Message wird in einen Tastendruck umgewandelt
        Msg.message := WM_KEYDOWN;
        Msg.lParam := 0;

        if Msg.wParam > 0 then
          Msg.wParam := VK_UP
        else
          Msg.wParam := VK_DOWN;

        // wir sind noch nicht fertig, schliesslich soll der Tastendruck ausgewertet werden
        Handled := False;
      end;
    end;
  end;
end;

Das gilt dann für alle Formulare des Projektes.