TMessage для кнопки

[spamer]

Вот так я отлавливаю событие нажатия мышью по форме:

private
   procedure WndProc(var Msg: TMessage); message  WM_LBUTTONDOWN;

.....

procedure TForm1.WndProc(var Msg: TMessage);
begin
Caption := '1';
end;

А как отловить нажатие по Button1(например) через тот же message ???

[Alex Cones]

ИМХО как вариант - дописать после

Caption :='1'

Проверку на координаты курсора и если совпадают с областью кнопы то делать бла бла бла.

[vovk]

А можно узнать смысл сего... Серьёзно просто интерестно. Академический понимаю (изучение), а практический?

[0nni]

установи свою оконную процедуру для кнопки, или обрабатывай ApplicationEvents.onMessage()

[spamer]

vovk все правильно Вы понимаете - изучение. Вот пытаюсь понять для чего нужны эти Message, если есть события для всех компонентов? Если кто может объясните, или дайте де можно прочитать что бы понятно расписано было.

установи свою оконную процедуру для кнопки, или обрабатывай ApplicationEvents.onMessage()

С этим тоже поиграюсь.

[s.Creator]

Сообщение от spamer

vovk все правильно Вы понимаете - изучение. Вот пытаюсь понять для чего нужны эти Message, если есть события для всех компонентов? Если кто может объясните, или дайте де можно прочитать что бы понятно расписано было.

- Message намного больше чем событий
- и пригодятся когда будешь писать свои компоненты расширяющие функционал стандартных
(если кратко )

[0nni]

Я бы сказал, зачем нужны эти события если есть сообщения

[spamer]

Народ помогите. Вот пробую я реализовать как сказал 0nni.

procedure TForm1.Button1Click(Sender: TObject);
begin
ApplicationEvents1.OnMessage := ApplicationEvents1Message;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONDOWN then
  ListBox1.Items.Add('111');
end;

Оно то вроде работает, но как то странно.....что бы добавить несколько строк в листбокс приходится баттон несколько раз нажимать.
Скажите что я не так пишу?

[0nni]

Сообщение от spamer

Народ помогите. Вот пробую я реализовать как сказал 0nni.
[CODE]procedure TForm1.Button1Click(Sender: TObject);
begin
ApplicationEvents1.OnMessage := ApplicationEvents1Message;
end;

Это зачем? просто создай такой обработчик

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.hwnd = Button1.Handle then
  case msg.message  of
    WM_LBUTTONDOWN :
      begin
        ListBox1.Items.Add('111');
      end;
  end;
end;

[spamer]

0nni, спс.

Ну крапаль разобрался с этими мессагами..............а вот правда есть еще 1 вопрос:

Вариант 1

private
   procedure WndProc(var Msg: TMessage); message  WM_LBUTTONDOWN;

.....

procedure TForm1.WndProc(var Msg: TMessage);
begin
          //Какие то  действия
end;

Вариант 2

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message  of
    WM_LBUTTONDOWN :
      begin
        //Какие то  действия
      end;
  end;
end;

Вот эти два варианта событий как я понял одинаковые? Просто первый способ через посылку сообщения message, а второй через визуальный компонент ApplicationEvents? Скажите я правильно понял? Или что то не так?
И какая разница тогда, использовать компонент ApplicationEvents или писать как в первом способе?