如何向继承自 TGraphicControl 的组件添加鼠标滚轮支持？
要向继承自 TGraphicControl 的组件添加鼠标滚轮支持，您需要重写组件的 MouseWheel 事件处理程序。以下是一个简单的示例：
type
TMyGraphicControl = class(TGraphicControl)
protected
procedure MouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint); override;
end;
implementation
procedure TMyGraphicControl.MouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint);
begin
// 在这里添加您的鼠标滚轮支持代码
inherited;
end;在这个示例中，我们创建了一个名为 TMyGraphicControl 的新类，该类继承自 TGraphicControl。我们重写了 MouseWheel 事件处理程序，以便在组件上添加鼠标滚轮支持。在 MouseWheel 方法中，您可以添加您自己的代码来处理鼠标滚轮事件。
请注意，在您的代码中调用 inherited 方法，以确保事件处理程序按预期工作。
如果您需要更多的帮助，请随时提问。
相关·内容
1回答
如何在TcxComboBox中抑制鼠标轮
delphi、combobox、mousewheel
我需要禁用滚动的项目与鼠标轮的所有组合组件在表单上。最好是有或多或少的通用解决方案，因为表单的设计可能会发生变化，如果忽略新的组合体组件，而不需要对源代码进行任何额外的工作，那就更好了。我有两种组合: TComboBox和TcxComboBox (来自DevExpress ExpressBars套装)。我试着走这条路
procedure TSomeForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
begi
浏览 1提问于2013-10-16得票数 7
回答已采纳
1回答
如何“捕获”自定义组件中的onmouse轮事件
delphi、lazarus
我对德尔菲很陌生，我想练习一下。
在尝试实现一个基本的自定义组件时，我想不出如何“捕获”诸如"OnMouseWheel“或"OnMouseMove”等事件。(组件只应允许用户缩放到TImage)
目前，我编写了一些公共函数，如LMouseWheel(.)，现在组件的用户必须实现Onmouse轮函数，但只需要调用公共MouseWheel(.)-Method才能使组件正常工作。默认情况下，鼠标轮方法会被调用吗？
代码是我的自定义组件的抽象。当用户在我的组件上滚动鼠标轮时，我必须做什么才能立即调用LMouseWheel(.)-Method？
unit TLZoomage;
{$IF
浏览 0提问于2019-04-17得票数 0
回答已采纳
2回答
如何在TDBCtrlGrid上启用鼠标滚轮滚动？
delphi、datagrid、scroll、delphi-xe2、vcl
TDBCtrlGrid对鼠标轮一点反应也没有。
我试过这个：
procedure TForm1.FormMouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
begin
if DBCtrlGrid1.ClientRect.Contains(DBCtrlGrid1.ScreenToClient(MousePos)) then
begin
DBCtrlGrid1.ScrollBy(0, WheelDelta);
浏览 1提问于2014-06-07得票数 2
回答已采纳
1回答
组件中的Delphi鼠标滚轮事件
delphi、mousewheel
我想写一个组件，使用鼠标滚轮来缩放类似于谷歌地球的东西。
我有一个使用onMouseWheel的组件，我有MaxZoom，MinZoom和Zoom属性，还有一个更好的选项，就是用位图StretchDraw，我正在尝试获取表单中组件区域的位置
我所理解的是，我必须找到每个父级，直到我找到tCustomform，并添加所有组件的顶部和组件左侧，以获得对象的位置，以找到我的对象的位置。有没有更好的方法
一旦我有了位置，我就可以从鼠标光标位置缩放地图，如果鼠标在我的对象上并从哪里缩放。
有没有人看过代码？
浏览 3提问于2010-12-03得票数 5
2回答
滚动框鼠标轮delphi
delphi、vcl
如何将OnMouseWheel添加到两个滚动框的相同窗体中？我将该方法应用于ScrollBox1，但不知道如何将该方法添加到ScrollBox2
procedure TForm3.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
LTopLeft, LTopRight, LBottomLeft, LBottomRight: SmallInt;
LPoint: TPoint;
begin
inh
浏览 0提问于2018-10-31得票数 1
回答已采纳
5回答
如何向从TGraphicControl继承的组件添加鼠标滚轮支持？
delphi、vcl、mousewheel
我已经创建了一个继承自TGraphicControl的delphi组件。是否可以添加对鼠标滚轮的支持？
-编辑
我已经公开了如下所示的MouseWheel事件，但它们没有被调用。
TMyComponent = class(TGraphicControl)
published
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
-编辑
如下所示，我尝试捕获WM_MOUSEWHEEL和CM_MOUSEWHEEL消息，但似乎不起作用。但是，我已经设法捕获了CM_MOUSEENTER
浏览 0提问于2009-01-19得票数 4
1回答
我需要在单击并拖动鼠标时实现平移，并向/远离使用鼠标滚轮的鼠标光标进行缩放/取消缩放。(在Delphi 2010中，图像锚定在窗体的左、右、上、下。)
我刚刚安装了Graphics32，并且看到了它的内置滚动条和.Scale是如何实现这一点的。至少能做到这一点是非常容易的。
问题：
对于这类事情，Graphics32是一个好工具吗？还有没有其他的(也许更简单？)可以让我查一下的工具吗？
有没有人有任何关于如何实现上述内容的指导或示例代码？
谢谢。
浏览 6提问于2011-05-19得票数 1
回答已采纳
1回答
为什么我的控件不捕获MouseWheel消息？
controls、c++builder、c++builder-2006
使用C++Builder 2006.
我正在尝试修改一个TCustomControl派生类，我需要这个类来捕获鼠标轮事件(或消息)。我试着用的答案，但我不明白这个事件。
这是我的相关代码：
TMouseWheelHandler.h
class PACKAGE TMouseWheelHandler : public TCustomControl
{
private:
typedef TCustomControl inherited;
protected:
virtual void __fastcall Paint();
void __fastcall WMSize
浏览 1提问于2021-09-22得票数 0
回答已采纳
2回答
如何修复TScrollBar MouseWheel故障？
delphi、scroll、delphi-2006
我在TFrame中有一个，当我使用鼠标滚轮时，它既不能上下滚动ScrollBox也不能滚动。
我试着用
TScrollBox(Sender).Perform(WM_VSCROLL,1,0);
在FrameMouseWheelDown上，但不会触发。
有什么想法吗？
浏览 3提问于2012-10-18得票数 2
回答已采纳
1回答
在VisualCLX窗体中筛选(禁用)鼠标轮消息
delphi、delphi-7、clx
我继承了一个Delphi7 (VisualCLX)应用程序来维护，我想过滤一些窗口消息，比如应用程序的主窗体(TForm)上的鼠标轮(WM_MOUSEWHEEL)，在VisualCLX上可以吗？怎么做到的？
我知道这在VCL上是可能的，但我正在寻找旧的交叉平台(CLX)的一些解决方案.
Note
我需要禁用鼠标轮事件，因为它一直在更改活动页面(TPageControl)，这在for Cross (CLX)中非常烦人，因此任何其他解决问题的方法都是受欢迎的.
浏览 3提问于2013-01-15得票数 1
回答已采纳
7回答
如何将鼠标滚轮输入指向光标下的控制，而不是焦点？
delphi、mousewheel
我使用了许多滚动控件: TTreeViews、TListViews、DevExpress cxGrids和cxTreeLists等。当鼠标滚轮旋转时，无论鼠标光标位于哪个控件上，带有焦点的控件都会收到输入。
如何将鼠标滚轮输入指向鼠标光标所在的控件？在这方面，Delphi IDE工作得非常好。
浏览 3提问于2010-02-12得票数 40
回答已采纳
1回答
如果VCL控件具有子控件，则LButton-scroll注册为Ctrl-scroll
windows、delphi、zooming、mousewheel、window-messages
如果窗口具有窗口化的子控件，则窗口VCL控件似乎会将LButton-scroll注册为Ctrl-scroll。如果用户使用的是Logitech MX Master鼠标，至少会发生这种情况。
考虑下面的最小示例：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TFor
浏览 12提问于2021-03-13得票数 1
7回答
如何使用鼠标滚轮滚动TScrollbar？
delphi、scrollbar、message
我有一个在OnScroll事件中有代码的TScrollBar。
我想使用鼠标滚轮滚动它，但旋转鼠标滚轮不会滚动滚动条，也不会触发OnScroll事件。
有什么想法吗？
浏览 2提问于2011-08-15得票数 9
2回答
Direct2D缩放与Pan
delphi、direct2d
一直试图将样本中的代码放在一起，用Direct2D制作缩放/pan图像，但效果不太好。
基本上图片会拖过窗户，但一旦我放开鼠标，它就会掉回原来的位置，我想让它停留在它被丢弃的位置。
所有的图像都会超出客户的大小，所以我也想去那些地方。
变焦仍在进行中，但运气不佳。
这就是我目前所处的位置：
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
const
ZoomFactor: a
浏览 1提问于2014-08-07得票数 1
回答已采纳
3回答
如何确定鼠标光标是否在控件内
delphi
我正在向TScrollBox添加对鼠标滚轮移动的支持(使用FormMouseWheel过程)，并且我需要确定鼠标是否在组件内部。
基本上，我需要确定鼠标是否在TScrollBox中，这样我就可以相应地处理滚动代码。
你知道该怎么做吗？
编辑:这是代码(包括这个问题的答案)，因为它可能会对其他人有所帮助：
procedure TForm1.FormMouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
var
Msg
浏览 0提问于2009-11-12得票数 16
回答已采纳
1回答
如何在德尔福-柏林访问触摸板手势？
delphi、windows-10、gestures、delphi-10.1-berlin
我有两台内置多点触控功能的笔记本电脑，一台是宏碁开关，另一台是华硕Zenbook，一直在尝试让我的Delphi应用程序感知手势。
我曾认为触摸板手势会映射到触摸屏手势，但这似乎不是这样，因为在触摸板上进行缩放或平移并不会触发ongesture事件。
触摸板手势可以在Firefox等其他应用程序上使用，因此必须能够捕获它们。
看起来两个手指垂直滚动被映射到Delphi mousewheelup和mousewheel事件中。我似乎想不出如何捕获其他类型的事件。
有关于如何做到这一点的线索吗？
更新-我找到了关于触控板手势的MS文档，它们似乎被转换为鼠标滚轮事件。
似乎在Delphi鼠标捕获这些消
浏览 13提问于2016-07-21得票数 1
1回答
抑制特定控件上的鼠标滚动事件，而不是其父控件？
delphi、scroll、combobox、mousewheel
我有一个表单，它嵌入在滚动框中。我在滚动框中实现滚动，如下所示：
procedure TfrmPO.sbItemsMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
sbItems.Perform(WM_VSCROLL, SB_PAGEDOWN, 0);
end;
procedure TfrmPO.sbItemsMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPo
浏览 5提问于2016-03-01得票数 2
回答已采纳
2回答
在Delphi组件中同时使用和发布事件
delphi、events
我有一个类，它是TImage32的后代。我需要像OnMouseMove一样使用事件，所以代码在Create()中分配我的OnMouseMove事件。但是，如果用户在Delphi中安装该组件并分配另一个OnMouseMove事件，则将替换我的事件。
我的当前解决方案是继承TCustomImage32，不发布OnMouseMove属性(所有其他属性是)，而是创建一个新的OnMouseMove2属性，用户可以分配该属性，如果分配了OnMouseMove2，代码将在指定的OnMouseMove事件中调用OnMouseMove2。
这个问题有更好的解决办法吗？要保留事件名称，例如OnMouseMove，
浏览 5提问于2022-10-29得票数 1
回答已采纳
2回答
如何像to浏览器一样在使用ctrl+mousewheel时进行TWebBrowser缩放？
delphi、delphi-2007、twebbrowser、iwebbrowser2
根据
和
要让托管的WebBrowser使用control键和鼠标滚轮进行缩放，应该只需要使用pvaIn值100调用IWebBrowser2.ExecWB(OLECMDID_OPTICAL_ZOOM, ...)，
但是在调用它之后，ctrl+mousewheel仍然不会缩放内容
我在Delphi 2007中使用的代码：
const
OLECMDID_OPTICAL_ZOOM = 63;
var
pvaIn, pvaOut: OleVariant;
begin
pvaIn := 100;
pvaOut := NULL;
WebBrowser1.ControlInterface
浏览 12提问于2012-04-21得票数 11
1回答
在c++构建器中使用鼠标滚轮进行TScrollbox滚动
delphi、c++builder
我已经在表单的选项卡表中添加了一个滚动框。当我点击滚动框中的上下滚动按钮时，我可以滚动内容。但是我想用鼠标滚轮上下滚动内容。我已经尝试了下面的代码。
void __fastcall TForm1::ScrollBox1MouseWheelUp(TObject *Sender, TShiftState Shift,
TPoint &MousePos, bool &Handled)
{
Form1->ScrollBox1->VertScrollBar->Position -= 3;
}
void __fastcall TForm1::Scro
浏览 2提问于2015-12-26得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
