Форум: "Базы";
Текущий архив: 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, которая добавляет объект в список. А в самом объекте предусматриваешь средства идентификации. Вариант не единственный и зависит от обстоятельств, просто он под рукой. Но смысл, я думаю, понятен.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c