Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.03;
Скачать: CL | DM;

Вниз

создание и обработка своих сообщений   Найти похожие ветки 

 
angelsaint   (2006-05-09 12:38) [0]

доброго времени суток мастера. нужно сделать следующее: послать форме свое собственное сообщение и чтобы форма на него отреагировала. Но, процедура обработки должна получать не msg: TMessage, а мой собственный тип данных. Как послать сообщение и передать нужную мне структуру?
с помощью SendMessage, PostMessage я что-то не пойму ак это можно сделать...

 TMyMess = record
   Mess: integer;
   Data: string[250];
 end;


 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   procedure WMCall(var mess: TMyMess);  message MY_SUPER_MESS;
 end;


 
Eraser ©   (2006-05-09 13:31) [1]


> angelsaint   (09.05.06 12:38)

WM_COPYDATA


 
angelsaint   (2006-05-09 13:41) [2]


> Eraser

непонял


 
Eraser ©   (2006-05-09 14:04) [3]


> angelsaint   (09.05.06 12:38)

для того, чтобы передать данные нужно использовать сообщение WM_COPYDATA, пример есть в MSDN.


 
begin...end ©   (2006-05-09 15:30) [4]

> angelsaint

Уточните, где находится эта форма -- в том же приложении, откуда посылается сообщение, или в другом.


 
Leonid Troyanovsky ©   (2006-05-09 17:22) [5]


> begin...end ©   (09.05.06 15:30) [4]


WM_COPYDATA forever.

--
Regards, LVT.


 
begin...end ©   (2006-05-09 17:31) [6]

> Leonid Troyanovsky ©   (09.05.06 17:22) [5]

Я не вижу причин, по которым в пределах одного приложения нужно было бы использовать именно WM_COPYDATA.


 
Leonid Troyanovsky ©   (2006-05-09 18:27) [7]


> begin...end ©   (09.05.06 17:31) [6]


А чтоб не было разницы, в своем -чужом.

--
Regards, LVT.


 
begin...end ©   (2006-05-09 18:55) [8]

> Leonid Troyanovsky ©   (09.05.06 18:27) [7]

Очень сильный аргумент.



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

Текущий архив: 2006.09.03;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.126 c
15-1154425746
Nic
2006-08-01 13:49
2006.09.03
"Другие новости" на первом


2-1155323259
4izh
2006-08-11 23:07
2006.09.03
как получить имена полей в listview


15-1155309115
Rouse_
2006-08-11 19:11
2006.09.03
Небольшой анонсик одной полезной утилиты, PEDump Shell Extension


3-1151456492
merko
2006-06-28 05:01
2006.09.03
из Delphi в ADOConnection не видно SQL Server 2000


15-1155364751
GeLLeR
2006-08-12 10:39
2006.09.03
Видеокарта