Form的消息

Question

如何在Form中截获对Scrollbox操作的消息，比如对滚动条的操作，ScrollBox中控件的操作等！

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure EditWndProc(var Message: TMessage);  public
    { Public declarations }
  end;var
  Form1: TForm1;
  EditHandle: THandle;
  EditPointer:Pointer;implementation{$R *.dfm}{ TForm1 }procedure TForm1.EditWndProc(var Message: TMessage);
begin
  case Message.Msg of
      WM_VSCROLL  : ShowMessage('ok'); //这里捕获的是垂直滚动条消息
   end;
   Message.Result:=CallWindowProc(EditPointer, EditHandle, Message.Msg, Message.WParam, Message.LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
Var P:Pointer;
begin
  EditHandle:=ScrollBox1.Handle;
  if EditHandle<>0 then
  begin
    EditPointer := Pointer(GetWindowLong(EditHandle, GWL_WNDPROC));
    P := Classes.MakeObjectInstance(EditWndProc);
    SetWindowLong(EditHandle, GWL_WNDPROC, Longint(P));
  end;
end;
end.

Answer 2

1、scrollbox產生的消息與Form沒有必然聯系，除了通知消息，如WM_COMMAND,WM_Notify，點擊scrollbox會發此類消息給父窗口，然后由父窗口再傳給自己，這點可以查看delphi中的button的click觸發原理；
2、消息分對列消息和非隊列消息，scrollbox和它的子控件所產生的消息可能都包含了這兩種。
   對于隊列消息，你可以在application.onmessage進行攔截，判斷消息傳遞目標....
   對于非隊列消息，采用子類化（替代窗口過程）方法，攔截、判斷所以，你要知道，你要處理的都是寫什么類型的消息，再根據實際情況選擇解決方案

Answer 3

因為scrollbox內所含控件類及數目未知，采用子類化的方法，不是一個很好的解決方法。
所以要先看是處理什么消息....