Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi

Дата: 30.06.00


Как послать message всем?


SA> Hадо послать мессагy всем заинтеpесованным объектам - pазличным
SA> классам - фоpмам, контpолам и т.д.? Пpобовал делать так:
SA> const
SA> FM_FINDPHOTO = $0510;
SA> SendMessage(HWND_BROADCAST,FM_FINDPHOTO,0,0);
SA> Hи чеpта не ловится, пока напpямyю хэндл не yкажешь :(

Для использовать hwnd_Broadcast нужно сперва зарегистрировать уникальное сообщение
FM_FindPhoto:=RegisterWindowMessage('MyMessageToAll');

Чтобы поймать это сообщение в другом приложении нужно перекрыть DefaultHandler

procedure TForm1.DefaultHandler(var Message);
begin
with TMessage(Message) do
begin
if Msg = Fm_FindPhoto then MyHandler(WPARAM,LPARAM) else
Inherited DefaultHandler(Message);
end;
end;

Для посылки сообщения дочерним контролам можно использовать процедуру Broadcast.

Чтобы вернуться оцените этот вопрос/ответ:
   

Прислать свои комментарии


Новое на сайте

Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо