unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
OldWinProc: TWndMethod;
procedure NewWinProc(var Message: TMessage);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.NewWinProc(var Message: TMessage);
begin
case Message.Msg of
WM_HSCROLL: caption := '水平：WM_HSCROLL'; //移动panel
WM_VSCROLL: caption := '垂直：WM_VSCROLL';
end; //end of case
OldWinProc(Message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OldWinProc := ScrollBox1.WindowProc;
ScrollBox1.WindowProc := NewWinProc;
end;
end.
