SendMessage [D6, NT4]
Sparky © (2002-04-15 13:08:00)
Есть 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:00) [1]
PostMessage()
Наверх 
ЧАТ |
Орешник |
|
