Code: Alles auswählen
; Um auf ein externes Objekt (in einer DLL zum Beispiel) zugreifen zu
; können, muss zuerst das Objekt-Interface deklariert werden:
;
Interface MyObject
Move(x,y)
MoveF(x.f,y.f)
Destroy()
EndInterface
; CreateObject ist die Funktion, welche das Objekt (aus der DLL) erstellt,
; dessen Interface gerade definiert wurde.
; Erstelle das erste Objekt...
;
Object1.MyObject = MyCreateObject()
; Und das zweite.
;
Object2.MyObject = MyCreateObject()
; Dann können die gerade definierten Funktionen verwendet werden,
; um auf das gewünschte Objekt zuzugreifen.
;
Object1\Move(10, 20)
Object1\Destroy()
Object2\MoveF(10.5, 20.1)
Object2\Destroy()
Müsste die Zeile
Code: Alles auswählen
Object1.MyObject = MyCreateObject()
Code: Alles auswählen
Object1.MyObject = CreateObject()
Kann mir vielleicht jemand ein funktionierendes Beispiel zeigen?