[Kompoente] Ereignisse überschreiben

[Martin K]

Klappt es denn so?

Delphi-Quellcode:

type
  TMyMemo = class(TMemo)
  protected
    procedure KeyDown(var Key: Word; Shift: TShiftState; Test: Boolean); reintroduce;
  end;

{...}

procedure TMyMemo.KeyDown(var Key: Word; Shift: TShiftState; Test: Boolean);
begin
  if Test then
    inherited KeyDown(Key, Shift);
end;