Скачать: CL | DM;

PostMessage   Найти похожие ветки 

← →
Post_   (2006-12-25 13:41) [0]

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

В первую очередь попытаюсь задать вопрос конкретно:

"Может ли кто, привести конкретный пример (часть кода или весь код), который бы продемонстрировал технологию отправки и приема сообщений переданных PostMessage.
Большей частью интересует прием пользовательских сообщений.. Как их отлавливать и проверять что мы прислали???1" ???

Заранее благодарю за поясняющий пример!

---

← →
Сергей М. ©   (2006-12-25 13:46) [1]

> как отловить сообщение переданное PostMessage,


GetMessage, PeekMessage


> Может ли кто, привести конкретный пример (часть кода или
> весь код), который бы продемонстрировал технологию отправки
> и приема сообщений переданных PostMessage


Этот пример у тебя прямо перед носом - в исх.тексте метода TApplication.Run (forms.pas)

---

← →
Virgo_Style ©   (2006-12-25 13:49) [2]

TForm1 = class(TForm)
...
 protected
 procedure WMDropFiles(var M: TWMDropFiles); message wm_DropFiles;
...

procedure TForm1.WMDropFiles(var M: TWMDropFiles);
var ...
begin
 ...
end;

---

← →
Джуки-Пуки   (2006-12-25 16:10) [3]

const
 MSG_MESSAGE = WM_USER + $00000040; // про диапазоны допустимых значений читай в справке; WM_USER - константа, нижняя граница допустимых пользовательских сообщений... лучше брать повыше...

type
 TForm1 = calss(TForm)
 private
   procedure MsgMessageHandler(var Msg: TMessage); message MSG_MESSAGE; // этот метод будет вызван тогда, когда обработчик сообщений получит сообщение с номером WM_USER + $40
 {...}
 end;

{...}

procedure TForm1.MsgMessageHandler(var Msg: TMessage);
begin
  ShowMessage("Получено сообщение MSG_MESSAGE."#13"WParam = " + IntToStr(Msg.WParam) + #13"LParam = " + IntToStr(Msg.LParam));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PostMessage(Form1.Handle, MSG_MESSAGE, 2006, 13);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 PostMessage(Form1.Handle, MSG_MESSAGE, 2, 15);
end;

---

← →
Post_   (2006-12-25 16:50) [4]

> Джуки-Пуки   (25.12.06 16:10) [3]

Вот СРАЗУ ВИДНО! ХОРОШИЙ ЧЕЛОВЕК! ВСЕ ПОНЯТНО ! ИСЧЕРПЫВАЮЩИЙ ПРИМЕР!
БЛАГОДАРЮ!
НЕ ВИЖУ СИНЕГО ЗНАЧКА! НО ПОМОЕМУ ВЫ МАСТЕР СВОЕГО ДЕЛА!!! ;o)

---

← →
alex_*** ©   (2006-12-25 17:02) [5]

:)  и чем [3] от [2] отличается...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c