Wie man die Mausradeingabe steuert, um unter Cursor zu steuern, anstatt zu fokussieren?

Verwende ich eine Reihe von Bildlauf-Steuerelemente: TTreeViews, TListViews, DevExpress cxGrids und cxTreeLists, etc. Wenn das Mausrad gedreht wird, wird das Steuerelement mit dem Fokus erhält den input-egal, was die Kontrolle der Maus cursor über.

Wie richten Sie den mouse-wheel-Eingang für was auch immer Steuern Sie die Maus über? Die Delphi-IDE funktioniert sehr gut in dieser Hinsicht.

InformationsquelleAutor der Frage avenmore | 2010-02-12

  1. 22

    Versuchen Sie überschreiben Ihre form ist MouseWheelHandler - Methode wie folgt aus (habe ich nicht getestet, dies gründlich):

    procedure TMyForm.MouseWheelHandler(var Message: TMessage);
var
  Control: TControl;
begin
  Control := ControlAtPos(ScreenToClient(SmallPointToPoint(TWMMouseWheel(Message).Pos)), False, True, True);
  if Assigned(Control) and (Control <> ActiveControl) then
  begin
    Message.Result := Control.Perform(CM_MOUSEWHEEL, Message.WParam, Message.LParam);
    if Message.Result = 0 then
      Control.DefaultHandler(Message);
  end
  else
    inherited MouseWheelHandler(Message);

end;

    InformationsquelleAutor der Antwort Ondrej Kelle

Schreibe einen Kommentar