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

Вниз

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()



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
14-81076
Дмитрий
2002-03-21 12:09
2002.04.25
1C-Архив


4-81117
BVS
2002-02-06 17:15
2002.04.25
Как создать динамический масив?


3-80793
koks
2002-04-04 12:30
2002.04.25
ADO -> Access 2000 ????


7-81090
Hel
2002-01-30 15:20
2002.04.25
Регистрация библиотеки программным путем?


3-80765
IronHawk
2002-04-02 11:34
2002.04.25
Приветствую Мастеров ! Как удалять одинаковые строки в базе 2 ?