[Kompoente] Ereignisse überschreiben

[Martin K]

Zitat von xZise:

Also ich muss KeyDown und KeyPress überschreiben bzw. etwas dazuschreiben....

1.) Und weitere Parameter füge ich einfach ein, so wie bei normalen Prozeduren?
2.) Ist "fooclick" eine Prozedur?

KeyPress zu überschreiben geht so (z.B. bei einem TEdit soll nicht der Buchstabe 'A' zugelassen werden):

Delphi-Quellcode:

type
  TMyEdit = class(TEdit)
  protected
    procedure KeyPress(var Key: Char); override;
  end;

{...}

procedure TMyEdit.KeyPress(var Key: Char);
begin 
  if Key = 'A' then
    Key := #0;
  else
    inherited;
end;

Wenn Du zusätzliche Parameter einführen willst bin ich mir nicht ganz sicher, sollte aber theoretisch so gehen:
Anstatt override; verwendest Du reintroduce;.
Bei inherited; musst Du dann inherited KeyPress(Key); schreiben.