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




Вниз

MIDAS 


Набережных С.   (2002-04-04 22:39) [7]

Примерно так:

procedure TRDMSingle2.RemoteDataModuleCreate(Sender: TObject);
begin
if Fac.ThreadingModel = tmSingle then
Form1.AddRDM(Sender,GetCurrentThreadId)
else
PostMessage(Form1.Handle,My_RDMCREATE,integer(Sender),GetCurrentThreadId);
end;

procedure TRDMSingle2.RemoteDataModuleDestroy(Sender: TObject);
begin
if Form1<>nil then
SendMessage(Form1.Handle, MY_RDMDESTROY,integer(Sender),0);
end;

Здесь Fac - фабрика классов.
Соответственно в Form1 в обработчике My_RDMCREATE вызываешь AddRDM, которая добавляет объект в список. А в самом объекте предусматриваешь средства идентификации. Вариант не единственный и зависит от обстоятельств, просто он под рукой. Но смысл, я думаю, понятен.




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




Наверх








Память: 0.74 MB
Время: 0.029 c
1-80998           Андрей Сенченко       2002-04-12 13:22  2002.04.25  
Хочу порисовать на форме :)


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


3-80775           deleon                2002-04-04 14:42  2002.04.25  
Про хваленный EasyTable


1-80976           Shadow77              2002-04-09 18:43  2002.04.25  
Приложение не должно быть видно в панели задач.


1-80861           Air                   2002-04-13 13:03  2002.04.25  
Как поймать сообщение клиента при дисконнекте?