Обработка сообщений в форме

[Climber]

Сейчас пробовал запустить под отладчиком такую вещь...
Есть форма и на ней - компонент TDrawGrid со свойством Align = alClient (то есть растянутый на всю клиентскую часть окна).
Есть такой код:

Код: Выделить всё

procedure TTestForm.WMLButtonDown(var Message: TLMLButtonDown);
begin
  inherited;  // Здесь стоит брекпоинт
end;


Так вот, если я запускаю приложение и посылаю форме сообщение через SendMessage:

Код: Выделить всё

SendMessage(TestForm.Handle, WM_LBUTTONDOWN, 0, y*65536+x);   // x и y - координаты "клика"

то функция WMLButtonDown вызывается, а если просто кликаю мышкой (сам) - то нет. То есть получается, между кликом мышкой и отправкой сообщения форме вызывается функция, которая определяет, что находится под курсором. Так? И что это за функция?
Что я хочу сделать: с помощью SendMessage посылать события, чтобы форма их обрабатывала, как будто это был настоящий пользователь: то есть если я шлю сообщения LBUTTONDOWN и LBUTTONUP в точку, где находится контрол, то должно вызываться событие OnClick этого контрола (пока вызывается OnClick формы).
Что я пропустил?

[Mr.Smart]

Нужно посылать в данном случае сообщение самому контролу

[Climber]

Ну до этого-то я и сам догадался. Просто контрол может менять размеры, а у меня есть только координаты. Вот я и хочу определять контрол, куда сообщение попадет.
P. S. На самом деле, исходную задачу я придумал, как решить, а этот вопрос остался для общего развития. Мало ли что в будущем понадобится...

[Mr.Smart]

Посмотрите функцию ScreenToControl.

[Climber]

Спасибо, посмотрю...