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




Вниз

Как связать объекты? 


UserL   (2002-03-14 12:22) [0]

Доброе время суток!!!
Вопрос в следующем. Создаются динамически два объекта, один из которых подразумеваеться главным. Причем они друг с другом ничем не связаны, и главность условная, просто для того, чтоб не главный объект знал что делаеться с главным и наоборот. Как отдать главному объекту указатель на второй (менее главный) объект?



DieHard   (2002-03-14 12:32) [1]


Type
TNotMainObject = class;

TMainObject = class (...)
private
FNotMainObject:TNotMainObject;
...
public
...
property NotMainObject:TNotMainObject read GetNotMainObject write SetNotMainObject;
...
end;

TNotMainObject = class (...)
private
FMainObject:TMainObject;
...
public
...
property MainObject:TMainObject read GetMainObject write SetMainObject;
...
end;



DieHard   (2002-03-14 12:34) [2]

Ну конечно соответсвующие методы GetXXX и SetXXX обращаются к соответствующим полям



UserL   (2002-03-14 13:23) [3]

И как сделать чтоб к примеру удаляя главный объект, второй объект тоже удалился? Я не совсем понял. Извеняюсь за свою необразованность.



DieHard   (2002-03-14 13:28) [4]

destructor TMainObject.Destroy;
begin
if Assigned(FNotMainObject) then FNotMainObject.Free;
inherited;
end;



Владислав   (2002-03-14 13:34) [5]

Можно использовать в качестве родителя твоего класса класс TComponent. Там это уже реализовано.



_Mike_   (2002-03-14 14:15) [6]

При создании "главного" объекта указывать владельцем form1,
а при создании "другого" - "главный" объект. Тогда при закрытии
формы все объекты корректно удалятся. Другой обращается к главному так:
(owner as tMain).left
а наоборот так:
(controls[0] as tOther).left

Например, вот так:

PROCEDURE tForm1.FormCreate(sender: tObject);
BEGIN
// создадим "главный" объект
main:=tMain.Create(form1);
WITH main DO BEGIN
left:=8;
top:=8;
//...
END;

// создадим "другой" объект
other:=tOther.Create(main);
WITH other DO BEGIN
left:=8;
top:=8;
//...
END;

END;




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




Наверх





Память: 0.72 MB
Время: 0.025 c
4-91129           Хлор                  2002-01-10 03:31  2002.03.28  
Как игнорировать действия пользователя


1-90857           MoonShiner            2002-03-16 19:57  2002.03.28  
ошибка в kernel32


4-91115           Stormick              2002-01-28 23:22  2002.03.28  
Мастера проблема (опять HOOK), вернее DLL


1-90851           Евгений Поляничев     2002-03-05 09:26  2002.03.28  
Формат ячеек в Excel


3-90755           DeNN                  2002-02-28 18:23  2002.03.28  
Что за база такая???