procedure TMainForm.WndProc(var Message: TMessage);
begin

   if Message.LParam = longint(Panel1) then begin
      if (Message.Msg = CM_MOUSELEAVE) then begin
        Panel1.Caption := '마우스가 떠날때';
        Panel1.Color :=  clLime;
      end;
      if (Message.Msg = CM_MOUSEENTER) then begin
        Panel1.Caption := '마우스가 들어올때';
        Panel1.Color :=  clRed;
      end;

   end;
   inherited WndProc(Message);
end;


질문에요..

longint(Panel1) 에다가  Panel1 대신 Toolbutton 으로 바꿔서 하면 안되는데
어떻게 해야 하나요..

참고로 coolbar 위에 toolbar 위에 toolbutton 이 놓여져 있는 상태입니다.
그리고, longint(panel) 에 panel 대신  coolbar 를 넣으면 coolbar 는 됩니다.

toolbutton 을 저기에 넣고 사용하고 싶은데요...

부탁드립니다.