Hi,


ich hab grad nen komischen Problem .


Also, ich hab eine MDI-Form (Main), ein Child (Doc) und die Optionen Form (Option).


In der Main hab ich den Code:

markieren

Delphi-Quellcode:

procedure Tfmain.tbOptionenClick(Sender: TObject);
begin
  fOption.ShowModal;
end;

Option:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfOption.FormShow(Sender: TObject);
begin
  LoadOption;
end;

procedure TfOption.LoadOption;
begin
  Storage.RestoreFormPlacement;
  Optionen.NewDocAtStart := cbNewDocAtStart.Checked;
  if gbEditor.ItemIndex = 0 then
    Optionen.Editor := etRichText
  else
    Optionen.Editor := etCode;
  Optionen.Font.Name := cbSchriften.Text;
  Optionen.Font.Size := seSize.Value;
end;

Soweit alles klar.

Jetzt wird aber noch der Code ausgeführt:

markieren

Delphi-Quellcode:

procedure Tfmain.tbNeuClick(Sender: TObject);
begin
  Application.CreateForm(TfDoc, fDoc);
end;

Daraufhin bekomm ich eine Zugriffsverletzung, weil er auf Optionen.Font zugreifen will, aber zu diesem Zeitpunkt noch nicht definiert ist. Das komische ist nun, ich klicke auf den Button um die Optionen zu öffnen, aber der Code um ein MDIChild zu erstellen wird auch ausgeführt. Liegts vielleicht an der TFormStorage der RxLib?

Hi!

Was steht denn im OnCreate der TfDoc drin?


Ciao Frederic

Hi,

das hier:

zusammenfalten · markieren

Delphi-Quellcode:

begin
  Inc(MDICount);
  Caption := 'Unbenanntes Dokument ' + IntToStr(MDICount);

  FModified := false;

  if Optionen.Editor = etRichText then
  begin
    pcPages.ActivePageIndex := 0;
    FEditor := etRichText;
    fmain.cbSchriften.Enabled := true;
  end
  else
  begin
    pcPages.ActivePageIndex := 1;
    FEditor := etCode;
    fmain.cbSchriften.Enabled := false;
  end;

  RichEdit.Font := Optionen.Font;
  fmain.cbSchriften.ItemIndex := fmain.cbSchriften.Items.IndexOf(Optionen.Font.Name);
end;

Hi,

hab den Fehler gefunden. Hatte vergessen bei Optionen.Font das TFont zu erstellen