Einzelnen Beitrag anzeigen

Benutzerbild von t2000
t2000

Registriert seit: 16. Dez 2005
Ort: NRW
169 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: vererbtes Formular - abstrakter Fehler

  Alt 2. Feb 2021, 11:27
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;
Thomas
(Wir suchen eine(n) Entwickler(in) mit Ambitionen später ggf. die Softwarefirma zu leiten)
Aktuell nicht mehr. Aber ab vielleicht 2023/2024 wird das wieder sehr interessant!
  Mit Zitat antworten Zitat