Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

SendMessage 


Sparky   (2002-04-15 13:08) [0]

Есть RemoteDataModule при его создании хочу послать :)) сообщение
И соответственно получить его.
Но при посылку все встает колом и молчит
Может я в чем-то не прав.

const
WM_RDM_ADD = WM_USER+1;


procedure TMBServer.RemoteDataModuleCreate(Sender: TObject);
begin
with RDMList.AddRDM(Sender) do
begin
RDM_SESSION_NUMBER:=SESSION_NUMBER;
end;

SendMessage(fMBServerMainForm.Handle,WM_RDM_ADD, RDM_SESSION_NUMBER,0); // На этом виснет
end;


type
TfMBServerMainForm = class(TForm)

procedure AddRDM(var Message: TMessage); message WM_RDM_ADD;



procedure TfMBServerMainForm.AddRDM(var Message: TMessage);
var
TmpStr : String;
Begin
// До этого места не доходит
with RDMList.FindBySN(Message.WParam) do

begin
....
End;
End;



Song   (2002-04-15 13:14) [1]

PostMessage()




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.038 c
1-80948           panCRACKERov          2002-04-12 00:40  2002.04.25  
Как сделать ссылку на сайт в hlp файле?


14-81066          Fellomena             2002-03-18 18:46  2002.04.25  
Возможна ли связка *.lib от Фортрана с Delphi проектами ?


6-81021           Дмитрий Катаев        2002-02-10 00:21  2002.04.25  
Как вытащить исходный текст с помощью HTML?


14-81072          Suntechnic            2002-03-20 22:37  2002.04.25  
Вот, наткнулся в Инете....


14-81076          Дмитрий               2002-03-21 12:09  2002.04.25  
1C-Архив