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!