Verschachtelte Objekte

[negaH]

WebBrowser1.OleObject.document.frames.item(0).document.links.item(0).click; ist ebenafalls klassische OOP und könnte inetwa so aussehen:

Delphi-Quellcode:

type
  TWebBrowser = class
    property OleObject: TOleObject;
  end;
  
  TOleObject = class
    property document: TDocument;
    property links: TLinksList;
  end;

  TDocument = class
    property frames: TFrameList; 
  end;

  TFrameList = class
    property Item[Index]: TItem;
  end;

  TItem = class
    property document: TDocument;
  end;

  TLinkList = class
    property Item[Index]: TLink;
  end;

  TLink = class
    property OnClick: TNotifyEvent;
  end;

// Hierarchie als Objekte ist dann

  TWebBrowser
    TOleObject
      TDocument
        TFrame(0)
          TDocument
            TLink(0) 
            TLink(1)
        TFrame(1)
          TDocument 
            TLink(0)
        TLink(0)
        TLink(1)

Um Zugriff von TWebBrowser auf den 1. Frame und dessen 1. Link zu erhalten um dessen OnClick aufzurufen muß man also

WebBrowser.OleObject.Document.Frames.Items[0].Document.Links.Item[0].OnClick; aufrufen. Also EXAKT das was du möchtest und auch nur mit stinknormelem OOP realisiert !

Fazit: Nenne mir bitte ein anders praktisches Beispiel das dein Problem realer erklärt.

Gruß Hagen