Извещение компонента типа TImage

[xabik]

Сообщение от evg_m

XMLDocument ничего не знающий по MyImage, но могущий с ним общаться путем процедур Event_X_XML

TMyXMLDocumet =class;

TXMLLink =class(TObject)
private
  FXML: TMyXMLDocument;
public
  property XML: TMyXMLdocument;
protected
// процедуры и функции посредством который XMLdocument 
 может сообщить/узнать необходимую информацию
  procedyre Event_1_XML(); virtual;
  function Event_2_XML: TDate; virtual;
end;

TMyXMLdocument =class(TXMLDocumnt)
private
  FXMLLink: TXMLLink;
public
  property XMLLink: TXMLLink;
end;

теперь MyImage

TImageXMLLink =class;

TMyImage =class(TImage)
private
  FXMLLink: TImageXMLLink;
  procedure SetXML(val: TMyXMLDocument);
  function GetXML: TXMLdocument;
public
  XML: TXMLDocument read GetXML write SetXML;
end;

наследник класса общения, который раньше знал только по MyXMLDocument теперь знает и проMyImage
TImageXMLLink =class(TXMLLink)
private
  FImage: TMyImage;
proyected
  property MyImage: TMyImage;
// переписываем процедуры  общения
  procedyre Event_1_XML(); override;
  function Event_2_XML: TDate; override;
end;

procedure TMyImage.SetXML(val: TMyXMLdocumant);
begin
  fxMLLink.XML:=val;
end;

function TMyImage.GetXML: TMyXMLDocument;
begin
  result:=FxmlLink.XML;
end;

/////////////////////////////
// конечно же где-то ОДИН РАЗ должно быть (лучше в конструкторе)
  fXMLLink:=TImageXMLLink.Create;
  fXMLLink.MyImage:=self;

// и где-то (дестррукторе)
  FXMLLink.Free;
///////////////////////////////////////////

как проходит общение

procedure TMyXMLdocument.Active;
begin
  ........
  XMLLink.Event_1_XML; // "сообщаем" о событии
end;

Вот с этого момента не понятно. Блин целый день сидел не въехал! Объект
XMLLink ещё же не существует в MyXMLdocument как мы можем выполнять процедуры из него? Каким образом процедура из объекта XMLLink способна сообщить что то объекту MyImage?
В несколько иных выражениях подобное сообщает мне среда, когда я пытаюсь сделать активным документ. Теперь вообще ни черта не работает...

[xabik]

Эххх... Вообщем то что здесь было написано не работает. Сделал по своему Просто сделал свойство не у TMyImage а у TMyXMLDocument типа TMyImage и при активации документа менял это объект который записан в это поле. Всё оказалось гораздо проще, а перекрестная инициализация объектов так и не удалась.

Хотя решение данной проблемы возможно если компоненты будут в одном модуле, но это противоречит правильному написанию программного кода в соответствии с которым, каждому компоненту отдельный модуль.

[evg_m]

XMLLink ещё же не существует в MyXMLdocument как мы можем выполнять процедуры из него?

пока не существует, то да не можем. Но как только его заполнить

procedure TMyImage.SetXML(val: TMyXMLdocumant);
begin
  fxMLLink.XML:=val;
end;

TXMLLink =class(TObject)
private
  FXML: TMyXMLDocument;
  procedure SetXML(xml: TMyXMLDocument);
public
  property XML: TMyXMLdocument write SetXML;
protected
...

procedure TXMLLink.SetXML(xml: TMyXMLdocumant)
begin
  self.Fxml:=xml;
  xml.xmlLink:=self; // теперь XMLDocument  "знает" о своей связи
end;

и мы можем ею пользоваться.

if xmlllink<>nil then  // вдруг связи нет.
   xmlLink.event1();