Главная страница
    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.013 c
15-1167024474
Slider007
2006-12-25 08:27
2007.01.14
С днем рождения ! 23 декабря


3-1161609116
worldmen
2006-10-23 17:11
2007.01.14
Создение деревьев и работа с ними. Дайте ссылки.


2-1166632717
Grey-SPB
2006-12-20 19:38
2007.01.14
Кнопка отмены или выхода (без закрытия всей прогр.)


1-1163803640
SkySpeed
2006-11-18 01:47
2007.01.14
Как определелить конец распечатки информации?


2-1166771534
Officeman
2006-12-22 10:12
2007.01.14
форматирование строки. strtoint





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