Thema: Delphi Circular unit reference

Einzelnen Beitrag anzeigen

day

Registriert seit: 10. Mai 2004
223 Beiträge
 
#4

Re: Circular unit reference

  Alt 7. Sep 2004, 20:55
wenn ich sie aber oben raus nehme, dann ist TMainFrame (MainView) im private bereich nicht mehr bekannt.



Code:
 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;
  Mit Zitat antworten Zitat