Circular unit reference

[fkerber]

Zitat von day:

Hallo

Delphi-Quellcode:

unit ClientMain;

interface

uses
  Windows,
//--------> hier raus  MainView; //MainView wird benötigt damit ich MainView Objekt erzeugen kann

type
  TClientUnit = class(TForm)

  private

    mMainView : TMainFrame;
  public

  end;

var
  ClientUnit: TClientUnit;

implementation
.
//------------------------------>>>>.
uses MainView;

.
procedure TClientUnit.FormCreate(Sender: TObject);
begin

    mMainView := TMainFrame.Create(self);
    mMainView.Visible := True;

end;



unit MainView;

interface

uses
  Windows, 
  ClientMain;  //ClientMain für den zugriff auf die Mainklasse

type
  TMainFrame = class(TForm)
  private
    { Private declarations }
  public
    procedure create(clientMain : TClientMain);
  end;


var
  MainFrame: TMainFrame;

implementation

sollte so gehen.


Ciao Frederic