Обработчик событий для компонентов формы

[maloun]

Доброго времени суток. Я тут помышляю написать виджетов для форм ввода данных.
Например TSomeWidget - класс отвечающий за несколько компонентами на форме и обрабатывающий их события. И вот хочу спросить совета как лучше обрабатывать события.
Базовый вариант конечно написать в TSomeWidget всех обработчиков для мыши, клавиатуры, фокуса, активации, перетаскивания и прочих.
Но меня привлекает идея о том, чтобы поставить 1 обработчик событий мыши и 1 клавиатуры.

Допустим какой-нить TAbstractWidget принимает набор компонентов и устанавливает им два типа событий OnMouseEvent, OnKeyboardEevent. А все наследуемые от него TSomeWidgtet просто их переопределяют.

Понятно, что можно определить все события, а из них вызывать два заветных эвента,
но может через какой-нить WndProc?
Я назначил TEdit свой WindowProc - он вылетел в эксепшн "A call to an OS function failed".
Как быть, посоветуйте.

[Pavia]

Разделяй и властей.

[maloun]

А если всё же попробовать как-то объединять.
Можно как-то слушать сообщения TControl'ов не наследуясь от них?

Допустим у меня только WndProc на форме и я слушаю все события
приходящие на форму предназначенные и для формы и для компонентов на ней.
Можно из TMessage вычислить компонент которому пойдет событие?
Обновление: (Быстрый гуглинг говорит, что нельзя)

[evg_m]

Можно из TMessage вычислить компонент которому пойдет событие?

события предназнчены какому-то ОКНУ(ActiveWindow: Hwnd), а компоненты WinContriol знают СВОЁ (property handle: HWND)

[maloun]

Кстати слушать TWinControl.WindowProc можно так:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    EditWnd:TWndMethod;
  public
    { Public declarations }
    procedure WndProc(var Msg:TMessage);
  end;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  EditWnd:=Edit1.WindowProc;
  Edit1.WindowProc:=WndProc;
end;

procedure TForm1.WndProc(var Msg:TMessage);
begin
  case Msg.Msg of
    CM_MOUSEWHEEL:
    	ShowMessage('it works');
  end;
  EditWnd(Msg);
end;