Взаимодействие классов
У меня есть класс tMecan.
и соответственно есть
var mecn5:tMecan;
Он не визуальный. Чтобы выводить на форму какие то данные, создал визуальный компонент.
Tmec = class(TImage)
private
...
protected
{ Protected declarations }
...
public
{ Public declarations }
fMec:tMecan;
constructor Create(AOwner: TComponent); override;
procedure CtrlShow(dat:integer); //Вывод картинки
published
{ Published declarations }
...
end;
var mec:Tmec;
На форму устанавливаю mec:Tmec;
Дальше в FormCreate прописываю
mec.fmec := mecn5;
Вопрос. mec.fmec просто указывает на mecn5? Т.е. все действия с mecn5 должны изменять и свойства mec.fmec?
У меня не все сходится. Теоретически нет ошибок?
У меня получается что просто создается еще один экземпляр класса, с установленными на момент копирования свойствами. Изменение свойств mecn5, не приводит к изменениям этих же свойств mec.fmec.
А хотелось именно этого.
|