Главная страница
    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.46 MB
Время: 0.014 c
2-1166796734
Ega23
2006-12-22 17:12
2007.01.14
Может ли функция от интерфейса быть виртуальной?


2-1166798943
КВАНТ
2006-12-22 17:49
2007.01.14
Про шрифты Windows XP


15-1166717314
kaZaNoVa
2006-12-21 19:08
2007.01.14
Чем лучше всего распознать фотки документов?


2-1166643170
addi
2006-12-20 22:32
2007.01.14
Memo


2-1166637366
Slimer
2006-12-20 20:56
2007.01.14
Проблемма с индексами в таблице





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский