Thema: Delphi Frage zu Inherited

Einzelnen Beitrag anzeigen

BAMatze

Registriert seit: 18. Aug 2008
Ort: Berlin
759 Beiträge
 
Turbo Delphi für Win32
 
#1

Frage zu Inherited

  Alt 11. Mai 2009, 22:45
Hallo und Guten Abend an alle DP´ler,

Ich hab da mal eine Frage zu inherited. Und zwar schreibe ich mir gerade auf, was ich bis jetzt so über Komponentenerstellung kennen gelernt habe und habe einen Quellcode geschrieben der wie folgt aussieht:

Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in [#0..#7, #9..#15, #17..#26, #28..#47, #58..#255]) then key := #0
  else inherited;
end;

end.
Ich weiß ist nichts wirklich weltbewegendes, aber eins ist mir dabei aufgefallen: Die von mir eigentlich unbeabsichtigte Verwendung von inherited. Eigentlich kenne ich das nur bei der Erstellung von Komponenten, damit die ursprüngliche, vererbte Methode in der überschriebenen aufgerufen werden kann. Die Procedure, so wie sie dort steht macht anscheinend genau was ich möchte. Leider habe ich in der Hilfe zu inherited nur Erklärungen gefunden, die auf die Vererbung von Methoden zurückführen, was ich (glaube ich) zumindest ja eigentlich nicht mache oder wenn dann völlig ohne meines Wissens.

Wie ist die anscheinend richtige Verwendung des Begriffes inherited aber ohne Vererbung zu veerstehen? Kann mir das vieleicht mal jemand erklären?

Vielen Dank
BAMatze

[quote]
2. Account Sero
  Mit Zitat antworten Zitat