Objektereignisse bei abgeleiteten Klassen

[bytecook]

Zitat von Jean312:

Wie kann ich aber das OnChange-Ereignis für diese abgeleitete Komponente nutzen? OnChange ist doch von der übergeordneten Klasse TEdit mit vererbt worden?

Suche nach der Routine, die das OnChange Event aufruft. In diesem Falle wird dies von der Prozedur Change, deklariert im TCustomEdit vorgenommen.

Code:

Deklaration:

procedure Change; dynamic;

Implementation:

procedure TCustomEdit.Change;
begin
  inherited Changed;
  if Assigned(FOnChange) then FOnChange(Self);
end;

Willst Du nun diese Routine weiterverwenden, so deklarierst du die Routine in deiner Komponente nochmals wie folgt:

Code:

Deklaration

procedure TEditExt.Change; Override;

Implementation

procedure TEditExt.Change;
begin
  // Hier deine Befehle, wenn die VOR dem alten OnChange erfolgen sollen, 

  inherited Changed;

  // Ansonsten hier.... 
end;

HTH und Gruß,

Peter