Einzelnen Beitrag anzeigen

Benutzerbild von maximus Caesar
maximus Caesar

Registriert seit: 26. Sep 2004
Ort: Biberach
319 Beiträge
 
Turbo Delphi für Win32
 
#10

Re: Element '' hat kein übergeordnetes Fenster

  Alt 20. Mär 2005, 14:17
Hier die Unit Variablen, über die ich (fast) alle Objekte erzeuge:


Delphi-Quellcode:
unit Variablen;

interface

uses Tastaturkontrolle, Optionen, Menue1, Menue2, Hintergrund, Blau, Render, Gelb, Gruen, Rot, Auswahl, Wuerfel, Spielfeld, Text, Initalisieren;

type
  TVariable = class
    procedure VariableInitalisieren;
    procedure Objektinitalisieren;
   private
   public
     Ansicht : Integer; //Speichert welches Menü oder Spielfeld aktiv
   end;

var
  Variable : TVariable;
  Tastatur : TTastaturkontrolle;
  Blau : TBlau;
  Gelb : TGelb;
  Gruen : TGruen;
  Rot : TRot;
  Auswahl : TAuswahl;
  Wuerfel : TWuerfel;
  Spielfeld : TSpielfeld;
  Text : TText;
  Initalisieren: TInitalisieren;
  Menue1 : TMenue1;
  Menue2 : TMenue2;
  Rendern : TRendern;
  Hintergrund : THintergrund;
  Optionen : TOptionen;
implementation

procedure TVariable.VariableInitalisieren;
begin
  
end;

procedure TVariable.Objektinitalisieren;
begin
 Initalisieren:= TInitalisieren.Create;
 Text := TText.Create(nil);
 Tastatur := TTastaturkontrolle.Create;

 Rendern := TRendern.Create;

 Blau := TBlau.Create;
 Blau.Initalisieren;

 Gelb := TGelb.Create;
 Gelb.Initalisieren;

 Gruen := TGruen.Create;
 Gruen.Initalisieren;

 Rot := TRot.Create;
 Rot.Initalisieren;

 Auswahl := TAuswahl.Create;
 Auswahl.Initalisieren;

 Spielfeld := TSpielfeld.Create;
 Spielfeld.Initalisieren;

 Wuerfel := TWuerfel.Create;
 Wuerfel.Initalisieren;

 Menue1 := TMenue1.Create;
 Menue1.Initalisieren;

 Menue2 := TMenue2.Create;
 Menue2.Initalisieren;

 Hintergrund := THintergrund.Create;
 Hintergrund.Initalisieren;

 Optionen := TOptionen.Create;
end;

end.
in TForm1.FormCreate wir zuerst das Objekt Variable erzeugt(Variable :=TVariable.Create und danach die Prozedure Objektinitalisieren aufgerufen. da ich in anderen bereichen keine Fehlermeldung bekomme, scheint dies richtig zu funktionieren.
  Mit Zitat antworten Zitat