ScrollBox 里放一个 panel 鼠标滚轮消息被panel截了，如何在发给ScrollBox

[nathan8467]

如题，我做了控件要有滚动条，但是ScrollBox里要放panel。在panel上进行鼠标滚轮操作都被panel给截了，ScrollBox得不到消息，请问怎么再发给panel

[wlp555ren]

直接发给Panel，有两个滚动消息，Panel接到后，如果有滚动条，它就会执行。。
你试试。。查控制滚动条的资料。。

[老冯]

type
TFormDemo = class(TForm)
ScrollBox: TScrollBox;
Panel: TPanel;
procedure FormCreate(Sender: TObject);
private
OldScrollBoxWindowProc: TWndMethod;
procedure NewScrollBoxWindowProc(var Message: TMessage);
procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;

var
FormDemo: TFormDemo;

implementation

{$R *.dfm}

{ TFormDemo }

procedure TFormDemo.NewScrollBoxWindowProc(var Message: TMessage);
var
Pace: Integer;
begin
if Message.Msg = WM_MouseWheel then
begin
Pace := Message.wParam ;
if Pace > 120 then
ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position + 10
else
ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position - 10;
end;
OldScrollBoxWindowProc(Message);
end;

procedure TFormDemo.FormCreate(Sender: TObject);
begin
OldScrollBoxWindowProc := ScrollBox.WindowProc;
ScrollBox.WindowProc := NewScrollBoxWindowProc;
Application.OnMessage := OnMessageOwn;
end;

procedure TFormDemo.OnMessageOwn(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_MOUSEWHEEL then
begin
SendMessage(ScrollBox.Handle, WM_MouseWheel, HiWord(Msg.wParam), Msg.lParam);
Handled := False;
end;
end;

-----------------------------------

上面是截获滚轮消息并传递给ScrollBox, 滚动的步长我设为10

[老冯]

原理都是如此， 你可以根据你的实际情况和要求进行修改

[nathan8467]

换句话说就是如何能获得给panel的鼠标消息，并且能知道哪些是鼠标滚轮的

[老冯]

马上给你写个范例

[nathan8467]

对不起这段时间比较忙，忘了结帖了，问题解决了，多谢

[飞天揽月]

sanmaotuo(老冯) 正解 接分