Kein Loaded bei MDI?

[thkerkmann]

Hallo,

versuchs mal so:

Delphi-Quellcode:

procedure TNeutral.Loaded;
begin
  inherited;
  
  FehlerLabel.Caption := '';
  Zeichne.Enable(Self, false);

end;

Zeichne.Enable sieht so aus:

Delphi-Quellcode:

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

dann geht's bestimmt.

Die Referenz von Neutral hast Du wahrscheinlich zu dem Zeitpunkt noch gar nicht initialisiert.

Gruss