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}