Определение области воздействия мышью

[chandrasecar]

Имеется программа, которая призвана определить, куда пользователь нажал мышью. Т.е. нажимаем на какой-либо объект управления, а программа выдает все сведения о данном объекте: системное имя, координаты, ширина, высота... Делает она это неплохо, только проблема в следующем: когда нажимаем на заблокированную кнопку на TPanel, то объект воздействия определяется как TPanel; или при нажетие на кнопку ToolButton на ToolBar'е, объект воздействия определяется TToolBar, а по идее должен TToolButton.

Вот код, который обрабатывает нажатие мыши и определяет информацию об объекте воздействия:

  
procedure TForm1.WndProc(var Msg: TMessage);
  var
    Sender: HWND;                   // Handle найденного окна
    SenderRect: TRect;             // Координаты окна
    Buff: array [0..255] of char; // буфер
    SenderText: String;          // Текст окна
    ClassName: String;          // Класс окна
begin

if (Msg.Msg = MWM_LBUTTONDOWN) then
  begin

        Sender:=WindowFromPoint(Mouse.CursorPos);
        GetWindowRect(Sender, SenderRect);
        GetWindowText(Sender, Buff, SizeOf(Buff));
        SenderText:=StrPas(Buff);
        GetClassName(Sender, Buff, SizeOf(Buff));
        ClassName:=StrPas(Buff);

  end;
end;

Вот сама программа, нажмите на "Start Hook" и попробуйте понажимать на контролы на Panel1 и Panel2.

Как изменить код, чтобы при нажатии на ToolButton он определял именно этот контрол а не родителя? Похожие ситуации возникают часто при нажатии на элементы управления в сторонних приложених.