Deklaration gegenseitig von einander abhängiger Klassen

[KingIR]

Hi Leute!

Folgendes. Ich meine das auch schonmal gelöst zu haben, komme jetzt aber nicht mehr drauf...
Also, ich habe 2 Klassen. Allerdings hat jede Klasse eine Eigenschaft oder Prozedur die eine Instanz der anderen Klasse benötigt. Da für Delphi die Reihenfolge der Typen-Deklarationen aber leider eine Rolle spielt, kann ich das nicht so ohne weiteres machen.

Delphi-Quellcode:

type
  TDialogControl = class(TObject)
  public
    property Handle: HWND read FHandle;
    constructor Create(Dialog: TDialogWindow; ControlID: Integer);  // <<----
  end;

  TDialogWindow = class(TObject)
  private
    blabla: TDialogControl; // <<----
    function WindowProc(Msg: UINT; wParam: WPARAM; lParam: LPARAM): Integer;
  end;

Leider kennt Delphi nun bei der ersten markierten Zeile die zweite Klasse noch nicht und meckert dementsprechend. Hab schon versucht, vorher eine Dummy-Klasse mit type TDialogWindow = class; anzulegen, brachte aber leider auch keinen Erfolg.

Danke schonmal!

[Christian Seehase]

Moin KingIR,

also bei mir klappt das mit der Forward-Deklaration problemlos. [EDIT] (mit D2006) [/EDIT]
Welchen Fehler bekommst Du denn?

[Der_Unwissende]

Hi,
lös einfach die Abhängigkeiten auf. Hierzu musst du nur mit abstrakten Klassen oder Interfaces arbeiten. Wenn du nun in deinen Konkreten Klassen immer als Typ nur die abstrakte Klasse angibst, müssen nur alle öffentlichen Methoden (abstrakt) deklariert sein.

Gruß Der Unwissende

[KingIR]

Argh, ach Mensch, wie peinlich.
Die Forward-Deklaration funktioniert tatsächlich wunderbar, ich hab nur ne Fehlermeldung für die Create-Zeile gekriegt und dann dummerweise nicht genauer hingeguckt... Die Fehlermeldung wurde von einem anderem Parameter verursacht. Sorry!

@Der_Unwissende:
Jo, stimmt, das wäre auch noch ne Möglichkeit, werd ich dann wohl auch so machen, weil ich von beiden Klassen sowieso ein paar Variationen brauchen werde

Danke jedenfalls.