Objektereignisse bei abgeleiteten Klassen

[Jean312]

Vielen Dank für die Info. Ist das erste Mal, dass ich mich mit einer Klassenableitung beschäftige.

[Jean312]

Sorry, irgendwie verstehe ich es nicht.
Soweit ich gelesen habe, werden die Eigenschaften der vererbten Klasse mitgegeben. Wenn ich also von TEDit eine Ableitung mache und ein property beispielsweise hinzufüge, bin ich davon ausgegangen, dass alle Eigenschaften von TEdit + das hinzugefügte property in der abgeleiteten Klasse verfügbar sind. Irrtum meinerseits oder falsch verstanden?

[Dejan Vu]

Wo sollen sie denn 'verfügbar' sein? Im Objektinspektor? Dann muss die Property 'Published' sein.

[DeddyH]

Und auch das reicht nicht, sie muss auch in der IDE registriert sein.

[Jean312]

Es geht hier ganz speziell um das OnChange-Ereignis. Die Komponente ist nicht im OI. Die abgeleitete Komponente ist über eine eigene Unit eingebunden.

Code:

type

  { TEditExt }

  TEditExt = Class(TEdit)
  private
    FCanvas:TCanvas;
    FCTextHint:string;
    FRequired:boolean;
    procedure WMPaint(var Message: TWMPaint); message WM_Paint;
    procedure SetCTextHint(const Value:string);
  protected
    procedure WndProc(var Message:TMessage); override;
    procedure Paint; virtual;
    procedure PaintWindow(DC:HDC);override;
    property Canvas:TCanvas read FCanvas;
  public
    constructor Create(AOwner:TComponent);override;
    destructor Destroy; override;
    property CTextHint:string read FCTextHint write SetCTextHint;
    property Required:boolean read FRequired write FRequired Default False;
    procedure PaintRedFrame;
  published
    property onClick;
    property onChange;
  end; 


implementation

{ TEditExt }
...

Während der Laufzeit möchte ich dann in der MainUnit auf das OnChange-Ereignis einzelner Tedit-Komponenten (die mit erweiterten Eigenschaften während der Laufzeit erzeugt werden) reagieren.
Und hier komme ich nicht klar, wie das OnChange-Ereignis dann aufgerufen werden kann. Sorry.

[Perlsau]

Wenn du eine Klasse entwickelst, die ein bereits verfügbares Objekt darstellen soll und zu diesem Zweck von der Klasse dieses verfügbaren Objekts ableitest, hast du erst einmal eine Komponente, die bereits alle Variablen und Methoden der Ursprungskomponente enthält. Die darin mußt du also nicht noch einmal deklarieren, denn sie sind in der neuen Klasse bereits durch Vererbung vorhanden – also eine 1:1-Kopie. Du mußt hier also nichts aus dem Quellcode der Ursprungsklasse kopieren. Nun möchtest du ein Property hinzufügen. Das fügst du hinzu mit allem was dazu gehört. Ansonsten mußt du nichts weiter hinzufügen. Wenn du in der neuen Klasse geerbte Methoden noch einmal deklarierst, überschreibst du damit die ursprünglichen und mußt sie dann natürlich auch selbst implementieren. Wenn du dagegen vorhandene Methoden lediglich erweitern willst, verwendest du den Befehl inherited. Das würde jetzt aber erst mal zu weit führen.

Delphi-Quellcode:

type
  TEditExt = Class(TEdit)
  private
    fMyProperty : Integer;

    function GetfMyProperty : Integer;
    procedure SetfMyProperty(value: Integer);

  protected
  public
  published
    property MyNewProperty : Integer read GetfMyProperty write SetfMyProperty;
  end;

implementation

function TEditExt.GetfMyProperty : Integer;
begin
  Result := fMyProperty;
end;

procedure TEditExt.SetfMyProperty(value: Integer);
begin
  fMyProperty := Value;
end;

Ob das neue Property nun public oder published ist, bleibt dir überlassen.

[Dejan Vu]

Und denk an DeddyH seine Worte ('Registrieren').

[Mavarik]

Zitat von Jean312:

Es geht hier ganz speziell um das OnChange-Ereignis. Die Komponente ist nicht im OI. Die abgeleitete Komponente ist über eine eigene Unit eingebunden.

Daher wäre es hilfreich, wenn Du die Antworten auch lesen würdest...

Da Du Deine abgeleitete Komponente nicht als Komponente in der IDE registriert hast, musst Du natürlich alles was Du sonst im OI einstellst auch zur Laufzeit selber machen. Natürlich kannst Du bei OOP auf "alle" Methoden des Vorfahren zurück greifen...

Daher must Du die Property selber zuweisen... (Siehe die gegebenen Antworten "OnChange := MyOnChange;" oder so)

Mavarik

[mkinzler]

Und für dynamisch erzeugte Komponenten fällt der OI natürlich sowieso flach.