Wann sind meine Eigenschaften verfügbar?

[mkinzler]

Dann kannst du doch die Eigenschaften direkt setzen:

In FormA:

Delphi-Quellcode:

b := TFormB.Create( Application);
b.Canceled := False;

[newgro]

Dachte ich auch schon dran. Leider bringt er nun den gleichen Fehler beim Anlegen der Form

Delphi-Quellcode:

  dlg:=Tfrm_Editor.Create(frm_FormA); <--- hier wieder der EReadError
  dlg.setSourceYear(getYear);
  dlg.showModal;

[mkinzler]

In welcher Methode wird der Code ausgeführt?

[newgro]

OnClick des Button "Daten kopieren"

[mkinzler]

Steht die andere Unit unter Uses?

[newgro]

Ja ist als letztes aufgeführt. Würde er sonst eigentlich trotzdem generieren?

[mkinzler]

Zitat von newgro:

Ja ist als letztes aufgeführt. Würde er sonst eigentlich trotzdem generieren?

Nein. Aber es könnte auch daran liegen das die Eigenschaft Canceled private ist.

[newgro]

Hallo *,

vielleicht interessiert es ja mal noch jemanden. Hier kurz eine Beschreibung meiner Lösung.
Ich habe die Form noch einmal angelegt und nun geht es. Ich habe dann beide Forms verglichen
und gesehen, das ich die Ereignismethoden in den private Bereich verschoben hatte. Nun stehen
sie mit in den "Klassenmethoden" und es geht.

Delphi-Quellcode:

unit frmeditor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TModel = record
    srcYear: integer;
    targetYear: integer;
  end;

type
  Tfrm_editor = class(TForm)
    XFLabel1: TXFLabel;
    btnOk: TXFBitBtn;
    procedure btnOKClick(Sender: TObject); // <-- die Deklarartion stand im private Abschnitt
  private
    { Private-Deklarationen }
    canceled: boolean;
    model: TModel;
  public
    { Public-Deklarationen }
    Constructor Create(form: TForm; srcYear: integer); overload;
  end;

var
  frm_editor: Tfrm_editor
implementation

{$R *.dfm}