Форум: "Прочее";
Текущий архив: 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.022 c
