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