[Oleg]

Как обработать отправленное сообщение окну. И как правильно послать:

Код:

SendMessage(Wnd, 0, 0, 0);

Как обработать сообщение ?, т.е. окну пришло сообщение и нужно сделать опреденные действия, но где обработчик ? Обьясните пожалуйста...

[Oleg]

Вот статья из DelphiWorld:

Код:

 const
   MY_MESSAGE = WM_USER + 4242;

   type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
     // Handler that receive the Message 
    procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   txt: string;
 begin
   txt := 'Hello World';
   SendMessage(Form1.Handle, MY_MESSAGE, 0, DWORD(PChar(txt)));
 end;

 // To receive this custom Message that is addressed to form1.handle 
// you need a message handler. 

procedure TForm1.MessageReceiver(var msg: TMessage);
 var
   txt: PChar;
 begin
   txt := PChar(msg.lParam);
   msg.Result := 1;
   ShowMessage(txt);
 end;
 end.

Но между двумя формами не получается(пересылая сообщение 2 форме и находя её идентификатор с помощью:

Код:

var
wnd:hwnd;
begin
Wnd := FindWindow(nil,'Form2');
txt := 'Hello World';
SendMessage(wnd, MY_MESSAGE, 0, DWORD(PChar(txt)));

А ОБРАБОТКУ !!!!
делаю через

Код:

procedure TForm1.MessageReceiver(var msg: TMessage);

Так нужно делать ?

[Rokuell]

Идентификатор второй формы можно и не искать, это же один проект, можно заменить некоторые типы, чтоб компилятор не ругался...
Похоже верно.
Вобщем, вот пример:

[Oleg]

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

Идентификатор второй формы можно и не искать, это же один проект

.
Это не один проект, а совершенно другая программа.

[Oleg]

const MY_MESSAGE = WM_USER + 4242;
- Что это за константа и для чего.
Вопрос о передаче сообщения другой программе остается в силе.

[Rokuell]

думал, что посылаешь сообщение другой форме из того же проекта...
Но если нет, то идентификатор окна надо искать, как ты и сделал...

Код:

const MY_MESSAGE = WM_USER + 4242;

это идентификатор сообщения, обычно я беру WM_USER + 4000, и дальше(WM_USER + 4001 ...), однозначно определяет сообщение, т.е его номер.
меньшие значения брать не стоит, т.к они используются самой Windows (впрочем так можно обрабатывать нестандартные сообщения, напр: WM_HELP посылается окну, когда нажимается клавиша F1).
Главное указать в другой программе ту же константу.

[Oleg]

А зачем туже константу, если 2 программа только принимает сообщение, а не отправляет. Или я че-то не догоняю
И если можно, напиши пример, а то чето я пробовал, но сообщение не приходит

[Rokuell]

"зачем туже константу" - а как иначе тогда в принимающей программе разобраться, какое сообщение пришло? Представь: Ты отправляешь два сообщения, в параметрах одного (напр в lParam) будет ссылка на текст в памяти ( Integer(PAnsiString(...)) ) а в другом сообщении будет передаваться просто число, и как ты их различишь? Поэтому в каждом сообщении должен присутствовать уникальный идентификатор этого сообщения, чтобы принимающая программа могла вызвать правильный обработчик!

PS: Кстати, передача строки таким образом (через сообщение) работает только в пределах одной программы (т.е её адресного пространства)
поэтому для передачи текста можно использовать например FileMapping, пример того, что это такое в исходнике.

[Oleg]

Спасибо за пример !
С Наступающим Новым Годом !!!

[Oleg]

Я вчера заметил, что если в uses добавлен Dialogs, то размер файла увеличивается на ~350!!!Kb. Вот так