Standardaktion zu Event hinzufügen

[Delphianer]

Hallo, ich habe eine abgeleitete Komponente erstellt und möchte einem Ereignis der Basisklasse eine Standardaktion hinzufügen. Weiß evtl jemand wie so etwas funktioniert?

[Torsten Grundke]

Hallo Delphianer, (origineller Name)

der folgende QuellCode demonstriert wie ein Standardverhalten für das Ereignis <b> OnKeyPress </b> realisiert werden kann.
<pre><b>
unit Edit1;
<p>
interface
<p>
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
<P>
type
TEdit1 = class(TEdit)
private
procedure KeyPress(Sender: TObject; var key: char);
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
constructor create(AOwner: TComponent); override;
{ Public-Deklarationen }
published
{ Published-Deklarationen }
end;
<P>
procedure Register;
<P>
implementation
<p>
constructor TEdit1.create(AOwner: TComponent);
begin
inherited;
if not(assigned(OnKeyPress)) then OnKeyPress := KeyPress;
end;
<P>
procedure TEdit1.KeyPress(Sender: TObject; var key: char);
begin
beep;
end;
<P>
procedure Register;
begin
RegisterComponents('Beispiele', [TEdit1]);
end;
<P>
end.
</b></pre>

Wenn weitere Info's gewünscht werden gib Bescheid.

Tschüß
<p>
Torste

[Delphianer]

Hallo Torsten, danke, hat geklappt! Cia