Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Прочее";
Текущий архив: 2007.01.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.015 c
9-1141842727
Storm
2006-03-08 21:32
2007.01.14
Игры с нуля


15-1166613701
petrovsky
2006-12-20 14:21
2007.01.14
Опять Access violation


15-1166551625
Petr V. Abramov
2006-12-19 21:07
2007.01.14
Знаменательная дата


1-1163786612
DarkFlow
2006-11-17 21:03
2007.01.14
Playlist как у Winamp


15-1167103101
Slider007
2006-12-26 06:18
2007.01.14
С днем рождения ! 26 декабря





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский