vererbtes Formular - abstrakter Fehler

[t2000]

Delphi-Quellcode:

type
  TBasisView = class(TForm)
    TrackingTimer: TTimer;
    procedure TrackingTimerTimer(Sender: TObject);
  private
    FViewmodel           : TsngViewmodel;
    FTrackingTimerTime   : Cardinal;
    FOnTrackingTimer     : TNotifyEvent;
    FHandleEnterAsOk     : Boolean;
    FHandleEscAsCancel   : Boolean;

    procedure RestartTrackingTimer;
  protected
    procedure edEnter(Sender: TObject);
    procedure edExit(Sender: TObject);
    procedure edKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure edEditChange(Sender: TObject);
    procedure edCheckboxChange(Sender: TObject);
    procedure edRadioChange(Sender: TObject);
    //procedure IsDialogKey(const Key: Word; const KeyChar: WideChar; const Shift: TShiftState;var IsDialog: boolean); override;
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
    function CloseQuery: Boolean; override;
//    {$REGION 'function HandleDialogKey'}
//    /// <summary>Behandelt zentral in der TForm Tastatureingaben.
//    /// <para>MUSS in der abgeleiteten Form überschrieben werden!</para></summary>
//    /// <returns>Boolean: Tastaturereignis abgehandelt ja/nein</returns>
//    {$ENDREGION}
//    function HandleDialogKey(const Key: Word; const KeyChar: WideChar; const Shift: TShiftState;var IsDialog: boolean): boolean; virtual;
    procedure Init; virtual;

    property Viewmodel           : TsngViewmodel read FViewmodel           write FViewmodel;
    property TrackingTimerTime   : Cardinal      read FTrackingTimerTime   write FTrackingTimerTime;
    property OnTrackingTimer     : TNotifyEvent  read FOnTrackingTimer     write FOnTrackingTimer;
    property HandleEnterAsOk     : Boolean       read FHandleEnterAsOk     write FHandleEnterAsOk;
    property HandleEscAsCancel   : Boolean       read FHandleEscAsCancel   write FHandleEscAsCancel;
  end;