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