Эмуляция щелчка по окну

[Bayazet]

я делаю так:

    ShowMessage('Навести курсор на карту. 2 секунды');
    sleep(2000);
    GetCursorPos(pPoint);
    hMap := WindowFromPoint(pPoint);
    ShowMessage('Навести курсор на тулбар. 2 секунды');
    sleep(2000);
    GetCursorPos(pPoint);
    hToolBar := WindowFromPoint(pPoint);

т.е. таким образом я получаю хендлы пальки тулбара и панельки на которой рисуют саму карту (да-да, никаких тулбаров и паинтбоксов, это дельфи-копейка)
а потом вызываю процедуру кликанья по карте:

procedure ClickToMap(X, Y : integer);
begin
  PostMessage(hMap,WM_LBUTTONDOWN,MK_LBUTTON,MakeWord(x,y));
  PostMessage(hMap,WM_LBUTTONUP,MK_LBUTTON,MakeWord(x,y));
end;

и процедуру кликанья по кнопочке тулбара:

procedure ClickInfoBtn;
begin
  PostMessage(hToolBar,WM_LBUTTONDOWN,MK_LBUTTON,MakeWord(85,1));
  PostMessage(hToolBar,WM_LBUTTONUP,MK_LBUTTON,MakeWord(85,1));
end;

Так вот. клик по карте работает, т.е. карта реагирует, а вот на клик по кнопке тулбара ничего не происходит, хотя должно.
что-то не так?

[Stilet]

Хм... Ну если ты с координатами не провтыкал, то видимо тулбар тот просто не обрабатывает сообщения WM_LBUTTON
Попробуй BM_CLICK и прочие сообщения кликов.

[Bayazet]

а есть еще какой-нибудь способ кликать? не PostMessage?
пробовал

  PostMessage(hToolBar,BM_CLICK,MK_LBUTTON,MakeWord(85,1));

тоже не кликает

[Stilet]

а есть еще какой-нибудь способ кликать?

Не представляю...
В таких ситуациях я обычно с помошью SpyXX вылавливаю какое сообщение приходит окну, и уже отталкиваюсь от его результатов

[Bayazet]

procedure TVirtualMap.MoveMapRight;
begin
  ClickMoveBtn;
  PostMessage(hMap,WM_LBUTTONDOWN,MK_LBUTTON,MakeWord(415,50)); (!)
  PostMessage(hMap,WM_LBUTTONUP,MK_LBUTTON,MakeWord(0,50)); (!)
end;

на строчках с (!) выдает: [DCC Error] perehvat.pas(132): E1012 Constant expression violates subrange bounds
с чего это он вдруг?

[Bayazet]

и еще: можно ли получить Caption панельки по ее хендлу? точнее я понимаю, что можно. только как?