Пишу обработчик сообщений для обмена между двумя моими программками, но столкнулся с проблемой возврата значения.
По идее это можно делать и через result и через указатель на адрес например в lparam.
MyProc – обрабатывается, но sendmessage упорно возвращает 1.
Подскажите пожалуйста в чём моя ошибка.

type
TForm1 = class(TForm)
procedure DefaultHandler(var Message); override;
private
{ Private declarations }
public
{ Public declarations }
end;

…

procedure TForm1.DefaultHandler(var Message);
begin
with TMessage(Message) do
begin
if Msg = mymsg then begin
case wparam of
1:Begin
MyProc;
result:=5;
end;
end;
end else Inherited DefaultHandler(Message);
end;

…

Пример вызова:
b:=sendmessage(HWND_BROADCAST,mymsg,1,0);


| Сообщение посчитали полезным:

Проблема в HWND_BROADCAST, если поменять на Form1.WindowHandle, то всё нормально. Просто похоже окно формы в Delphi не top-level окно и поэтому BROADCAST до него не лобирается.

| Сообщение посчитали полезным:

Player пишет:
до него не лобирается
если я правильно понял, то дело не в этом, т.к.:
ToBad пишет:
MyProc – обрабатывается
помоему надо не DefaultHandler объявлять.. Не помню, могу ошибаться. Может еще значение mymsg (<=400) не правильное. Используй WM_USER+1 или наподобие.

-----
radio uno in ibisa ...

| Сообщение посчитали полезным:

Player пишет:
Проблема в HWND_BROADCAST, если поменять на Form1.WindowHandle, то всё нормально. Просто похоже окно формы в Delphi не top-level окно и поэтому BROADCAST до него не лобирается.

BROADCAST до него добирается, в моём обработчике срабатывает процедура MyProc. А вот результат упорно возвращается 1.

| Сообщение посчитали полезным:

Player пишет:
Проблема в HWND_BROADCAST, если поменять на Form1.WindowHandle, то всё нормально.

Да, так работает. Спасибо !!!
А где можно прочитать чем это объясняется ?

Icelot пишет:
Используй WM_USER+1

Это с HWND_BROADCAST не катит. MyMsg назначаю с помощью RegisterWindowMessage.

Жаль конечно, что не получается применить HWND_BROADCAST. Не хотел использовать FindWindow.

| Сообщение посчитали полезным: