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?
Announcement
Collapse
No announcement yet.
Standardaktion zu Event hinzufügen
Collapse
X
-
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
Comment