Fehler im FormCreate

[MarvinM]

Hallo zusammen!

Ich habe ein Problem beim Öffnen eines anderen Formulars:

Wenn ich mit diesem Code ein Formular aufrufe (das hier heißt Neutral)

Delphi-Quellcode:

procedure THaupt.Datei_NeutralClick(Sender: TObject);
begin
  TNeutral.Create(haupt);
end;

und dann den FormCreate ausführe

Delphi-Quellcode:

procedure TNeutral.FormCreate(Sender: TObject);
begin
  Zeichne := TZeichnen.Create;

  FehlerLabel.Caption := '';
  Zeichne.Enable(false);
end;

dann funktioniert die erste Anweisung (also das FehlerLabel.Caption := '';) einwandfrei, aber wenn ich nun Zeichne.Enable aufrufe, wird dies ausgeführt:

Delphi-Quellcode:

procedure TZeichnen.Enable(Direction: Boolean);
begin
  with Neutral do
  begin
    EDecAnzAtomMitOH.Enabled := direction;
    EDecAnzOH.Enabled := direction;
    [und noch mehr davon]
  end;
end;

Der Fehler (eine EAccessViolation) tritt in der ersten Zeile auf (also EDecAnzAtomMitOH.Enabled := direction;)
Wenn ich mir nun den Debugger zu Neutral ansehe steht da nil.

Wenn ich nun das Formular direkt unter Projekt|Optionen|Formulare beim Start erzeigen lasse, kommt keine Fehlermeldung.

Die Unit (uFrontEndNeutral), in der TZeichnen deklariert ist, ist unter interface eingetragen.
Und in uFrontEndNeutral ist die uNeutral unter impletmentation eingetragen.


Danke schonmal für eure Antworten!

[mkinzler]

Meine Antwort beliebt die Selbe:

Ersetze

Zitat:

Delphi-Quellcode:

TNeutral.Create(haupt);

durch

Delphi-Quellcode:

Neutral := TNeutral.Create(Self);

[MarvinM]

Leider bleibt aber auch durch diese Methode Neutral nil...

[mkinzler]

Wo hast du Neutral deklariert?

[MarvinM]

Also in der uNeutral hier:

Delphi-Quellcode:

type
  TNeutral = class(TForm)
    [...]
  private
    { Private-Deklarationen }
  public
    WebAnzeige: TStringList;
  end;

var
  Neutral: TNeutral;

Und in der anderen Unit (die in der TZeichnen deklariert ist) hier:

Delphi-Quellcode:

implementation

uses
  uNeutral;

Also nicht direkt deklariert...

//EDIT:

Unt in der Unit von der aus das Formular aufgerufen wird (uHaupt) hier:

Delphi-Quellcode:

interface

uses
  uNeutral;

[mkinzler]

Dann sollte es eigentlich gehen.
Hat du WebAnzeige im Konstruktor von TNeutral erzeugt?

[MarvinM]

TNeutral hat bei mir keinen Konstruktor - daher nein.

[mkinzler]

Dann erstelle einen.

[MarvinM]

Ähm... wie müsst der aussehen :oops: ?

[mkinzler]

Delphi-Quellcode:

type
  TNeutral = class(TForm)
    [...]
  private
    { Private-Deklarationen }
  public
   WebAnzeige: TStrings;
   constructor Create( AOwner: TObject);
  end; 

...
   constructor TNeutral.Create(AOwner self);  
   begin
       inherited Create( AOwner);
       WebAnzeige := TStringList.Create;   
   end;