Обработка сообщений.
Надо сказать, что Delphi значительно упрощает жизнь программисту. В ее состав входят компоненты, которые позволяют творить чудеса, в частности многие из них умеют обрабатывать стандартные сообщения, что делает жизнь намного проще.
Пример- перерисовка в stringgrid или скроллинг в memo.
Конечно, многие из них не умеют реагировать на нужные сообщения или же реагируют не так как надо программисту в его программе. И вот тут как раз появляется необходимость отлавливать нужные сообщения в программе.
В первой части мы разберем метод создания потомка от компонента, который зарегистрирован в Delphi.
Давайте, придумаем какую-нибудь интересную задачу. Например, давайте научимся растягивать Listbox, растягивая форму и научимся изменять состояние динамически создаваемых кнопок, двигая мышь над Listbox-ом.

TMYButton = class(TButton)// наша кнопка с расширенными функциями.
  private

public
end;

Создадим 2 сообщения нашего типа:
var mess,unmess:tmymess;
Также создадим массив из 5 динамически создаваемых кнопок.
Теперь определим сообщения:
procedure TForm1.FormCreate(Sender: TObject);
begin
mess.WParam:=1;//активное состояние кнопок

unmess.WParam:=0;//неактивное состояние кнопок

end;

procedure TForm1.WMSIZING(var message: TMessage);
var i:integer;
begin
inherited;
if (list.Width<(form1.width-20)) and (list.Height<(-40+ form1.Height)) then
begin
list.Width:=list.Width+1;
list.Height:=list.Height+1;// условия на то чтобы Listbox не вылезал за пределы формы
end;
if (list.Width+list.Left)= q[1].Left then
begin
for i:=1 to 5 do
q[i].Free;// уничтожение кнопок если Listbox находится непосредственно на них
end;
f:=true;
end;